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編輯器，去工具/參考...