Question

我想通过允许用户从他/她的本地浏览和定位文件然后在拉出的文件上执行某些功能来创建一个拉取文件的宏。

我不确定如何在宏中加入浏览文件功能。

Answer 1

使用Application.FileDialog，在SO和互联网上的其他地方有很多示例，例如here

Answer 2

下面将打开并设置wkbFileToOpen，然后您就可以将其用作工作簿进行操作。

Dim vFileToOpen As Variant
Dim wkbFileToOpen As Workbook

'Ask the user to select the file, you can change your desired file extensions and file types
vFileToOpen = Application.GetOpenFilename("Excel Files (*.xls),*.xls,", 1, "Select the workbook", , False)

'if the user cancels, then vFileToOpen will be false, so we need to check there's a value
If Not vFileToOpen Then

    Workbooks.Open vFileToOpen
    Set wkbFileToOpen = ActiveWorkbook

End If

通过宏调用excel文件

2 个答案: