VB脚本Excel宏

Question

我使用以下代码从名为ABC.txt的文件中提取数据。 Insted，我想打开一个弹出窗口来选择文件。

有人可以为我提供代码吗？

Const Extract_Temp As String = "D:\Work\Tool_Specific\ABC.txt"

Answer 1

尝试FileDialog对象：

Dim fd As FileDialog, aFile As Variant

Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.AllowMultiSelect = False
fd.InitialFileName = ThisWorkbook.Path
fd.title = "Pick a file."
fd.Show

aFile = fd.SelectedItems(1)

Set fd = Nothing

修改

您必须引用“Microsoft Office 12.0对象库”（或“14.0”或您拥有的任何版本）才能使用此代码。 VBA编辑器，转到工具/参考...