如何使用打開文件對話框打開文件

我一直在網上搜索如何使用VBScript中的打開文件對話框打開文件的解決方案。有人能指引我走在正確的軌道上嗎？如何使用打開文件對話框打開文件

我的代碼如下打開Excel文件，但我希望它更動態，因爲輸入文件名可以更改而不是硬編碼。

Set objExcel = CreateObject("Excel.Application") 
objExcel.DisplayAlerts = 0 
Set objShell = WScript.CreateObject("WScript.Shell") 
path = objShell.CurrentDirectory 
inFileName = "InputFile.xlsx" 
inFilePath = path + "\" + inFileName 

'Open target workbook 
Set objWorkbook1 = objExcel.Workbooks.Open(inFilePath, False, True) 
MsgBox "Reading Data from " & inFileName & vbNewLine, vbOkOnly + vbInformation, _ 
     "Reading Data"

來源

2016-08-24 Alvin Gasta

看看這個【答案】（http://stackoverflow.com/a/21565999/3802503），可以幫助你 –

嗨卡菲基恩！感謝您的答覆。我能夠使用你提供的鏈接中的代碼，但我正在尋找一個更加確切的，這是一個原生的Excel文件對話框。 –

如有疑問，請閱讀documentation。

Set dialog = objExcel.FileDialog(3) 
dialog.AllowMultiSelect = True 
dialog.Show 

For Each f In dialog.SelectedItems 
    Set objWorkbook = objExcel.Workbooks.Open(f) 
    '... do stuff ... 
    objWorkbook.Close 
Next

來源

2016-08-24 08:07:23

嗨Ansgar！這很酷，我已經對腳本進行了初步測試，並且按照我的預期工作。謝謝你的幫助。 –

如何使用打開文件對話框打開文件

回答

相關問題