通过宏调用Excel文件

Question

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

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

Answer 1

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

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