在VBScript中有没有办法获得可以出现在任何目录中的文件的完整路径?

时间:2012-12-26 15:15:41

标签: excel-vba vbscript wsh vba excel

目前我在脚本语言中使用硬代码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\完整路径?这样我就可以从我的脚本中删除这样的硬编码。

谢谢,

1 个答案:

答案 0 :(得分:3)

您可以使用文件浏览器,如其他答案建议或输入框,但两者都对用户来说很烦人,如果您将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)