1. vba选择文件并打开

超链接即可。单元格写好内容，按ctrl+K，地址填写完整路径：点这个单元格就自动打开那个文件了。批量的话这样：=HYPERLINK("E:\work\"&A1&".xls",A1)

2. vba选择文件并导入

运行之后，选择那个“文件2”，点确定，就把“文件2”里"sheet3"的A1：L1000复制到运行文档“sheet1”的B2：M1001了~附件文档的模块1里，按alt+f11打开编辑器Sub a()Dim aWith Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = False.InitialFileName = ThisWorkbook.PathIf .Show = -1 ThenSet a = Workbooks.Open(.SelectedItems(1))a.Sheets("sheet3").AutoFilterMode = Falsea.Sheets("sheet3").Range("A1:L1000").Copy ThisWorkbook.Sheets("sheet1").Range("B2")a.Close FalseEnd IfEnd WithEnd Sub

3. vba选择文件并打开文件名相同而扩展名不同

1、首先我们打开一个工作样表作为例子。

2、我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Sub rename() Name "\.xls" As "\.xls"End Sub。

3、我们知道在excel中保存一个文件为另一个文件时可以重新命名，save as 就是本例中as 代码的作用。name是命名函数，所以name as 就是将文件重命名。

4、不过需要注意的是，name改名修改的文件是未打开文件，如果是打开的文件直接运行代码的话，程序会报错。

5、文件的名称需要使用双引号包括起来，需要填写完整的路径和文件名称，包括文件的后缀名。大家需要注意文件的后缀名是需要通过系统设置来显示的。

6、最后，使用name重命名文件只要是符合未打开这一要素，就可以改名任何文件，包括但不限于excel的文件。当然后缀也可以修改，但是会以默认的关联程序打开。

4. vba选择文件并打开表格

方法/步骤如下

1、首先，打开或者新建一个Excel表格。

2、按下Alt+F11打开VBA编辑界面，并点击左侧任意工作表，出现右侧代码编辑

3、VBA中利用Filecopy函数实现文件的复制，被复制的文件路径作为函数第一个参数，而复制到的文件路径作为第二个参数，输入代码：

Sub 鱼木混猪()

FileCopy "D:\鱼木混猪.txt", "D:\ymhz.txt"

End Sub

4、点击代码中任意位置，然后点击“运行子程序”按钮

5、这样，到文件复制的文件夹中就可以看到，利用VBA将指定的文件复制了一份

5. vba 打开

注意 c:\a 目录下的文件不要太多,免得死机 Sub 打开excel表格() Dim myPath$, myFile$, AK As WorkbookApplication.ScreenUpdating = False '冻结屏幕，以防屏幕抖动 myPath = "c:\a\" '把文件路径定义给变量 myFile = Dir(myPath & "*.xls") '依次找寻指定路径中的*.xls文件 Do While myFile <> "" '当指定路径中有文件时进行循环 If myFile <> ThisWorkbook.Name Then Set AK = Workbooks.Open(myPath & myFile) '打开符合要求的文件 End If myFile = Dir '找寻下一个*.xls文件 Loop Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用 End Sub

6. vba选择文件并打开文档

不知道这样符不符合你的要求(一个打开，一个恢复显示)：Sub 后台打开() Application.ScreenUpdating = False Workbooks.Open Filename:="D:\excel.xls" ActiveWindow.Visible = False Application.ScreenUpdating = TrueEnd SubSub 取消隐藏() Windows("excel.xls").Visible = TrueEnd Sub

7. vba 选择文件

方法如下

1

打开Excel开发工具下的Visual Basic。

2

在项目工程区域，鼠标右击选择“插入”，点击“用户窗体”。

3

添加窗体后，在其右侧会自动出现一个工具箱。

4

点击“视图”下的工具箱可以控制它的显示和不显示。

5

点击工具箱中的控件，添加至用户窗体中。

6

点击执行按钮后，可以在Excel工作表中显示窗体界面，且可以使用控件按钮

8. vba 选择打开文件

'在文件对话框对中返回选择一个文件夹的路径.Public Function ChooseFolder() As StringDim dlgOpen As FileDialogSet dlgOpen = Application.FileDialog(msoFileDialogFolderPicker)With dlgOpenIf .Show = -1 ThenChooseFolder = .SelectedItems(1)End IfEnd WithSet dlgOpen = NothingEnd Function'--------------------------------------------------------'在文件对话框对中，选择一个文件。

9. vba 打开指定文件

【数据准备】

1，excel中记录你需要下载的所有网址

2，设置下载的文档保存路径 【功能实现】 1，利用VBA启动IE浏览器 2，打开你所需要下载的URL

3，触发该网址中的下载按钮