如何使用打开文件对话框打开文件

问题描述：

我一直在网上搜索如何使用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"

看看这个【答案】（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

嗨Ansgar！这很酷，我已经对脚本进行了初步测试，并且按照我的预期工作。谢谢你的帮助。 –

如何使用打开文件对话框打开文件

相关推荐