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

【问题标题】：How to open file using Open File Dialog如何使用打开文件对话框打开文件
【发布时间】：2016-08-24 06:02:51
【问题描述】：

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

【问题讨论】：

看看这个answer，可能对你有帮助
嗨，Karthikeyan！感谢您的答复。我能够使用您提供的链接中的代码，但我正在寻找一个更明确的，它是 excel 文件对话框的原生代码。

标签： excel vbscript fileopendialog

【解决方案1】：

如有疑问，请阅读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

【讨论】：

嗨安斯加尔！这很酷，我已经初步测试了脚本，它按我的预期工作。感谢您的帮助。