excel - 在 VBScript 中，有没有办法获取可以存在于任何目录中的文件的完整路径？

Question

目前，我正在使用PATH脚本语言对 .EXCEL 文件进行硬编码，如下所示：

    Set objExcel1 = CreateObject("Excel.Application")
    strPathExcel1 = "D:\VA\GE_Wing_To_Wing_Report.xlsx"
    Set objWB = objExcel1.Workbooks.open(strPathExcel1)

在 VBScript 中，有没有办法"D:\VA\在运行时获取任何文件的完整路径？这样我就可以从我的脚本中删除这样的硬代码。

谢谢，

Answer 1

您可以像其他答案建议的那样使用文件浏览器或输入框，但两者都对用户来说很烦人，如果将 excel 文件与脚本放在同一个地图中，则可以仅引用没有路径的文件名，您可以将其放入您在主脚本或页面中加载的配置文件，或者最后您可以将其作为参数提供给脚本，您可以在控制台命令或快捷方式中提供该参数。让我知道你喜欢哪个，然后我可以给你举个例子。

编辑：正如所承诺的，实际上在 Excel 的情况下它有点困难但并非不可能，请参阅这个例子

Set objExcel1 = CreateObject("Excel.Application")
objExcel1.visible = true
strPathExcel1 = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".") & "\GE_Wing_To_Wing_Report.xlsx"
Set objWB = objExcel1.Workbooks.open(strPathExcel1)