我想要得到它,所以我有一个带按钮的Excel文件,该按钮打开文件浏览器,以便用户可以选择他们所选择的excel文件。一旦他们选择了该文件,我希望空白按钮文件中的宏可以在用户提供数据的文件中运行。
另一种选择是执行该过程,但是让宏在宏文件中运行,然后在宏运行后自动导出新文件?有点想知道什么是最好的方法以及如何编写它。
Sub browseFilePath()
On Error GoTo err
Dim fileExplorer As FileDialog
Set fileExplorer = Application.FileDialog(msoFileDialogFilePicker)
'To allow or disable to multi select
fileExplorer.AllowMultiSelect = False
With fileExplorer
If .Show = -1 Then 'Any file is selected
[filePath] = .SelectedItems.Item(1)
Else ' else dialog is cancelled
MsgBox "You have cancelled the dialogue"
[filePath] = "" ' when cancelled set blank as file path.
End If
End With
err:
Exit Sub
End Sub
到目前为止,我只是通过按钮浏览文件。