Question

我有一个VBScript打开一个excel文件并从中获取数据。 excel文件的路径是硬编码的，因此文件必须命名相同，并且必须位于同一位置。

Set objWorkbook = objWbs.Open("C:\Users\name\Desktop\form.xls")

我想这样做，以便在运行脚本时显示一个资源管理器，然后使用者可以选择他们想要使用的文件，它将采用该文件的路径并使用该路径而不是硬编码之一。

我在询问问题之前进行了搜索，但找不到解决方法。这可能吗？或类似的解决方案，我将如何去做？

谢谢。

Answer 1

这不适用于所有文件类型，但奇怪的是.xls是受支持的文件之一。

Set objShell = CreateObject("Shell.Application")

On Error Resume Next
Set objFile=objShell.BrowseForFolder(0, "Choose a XLS file:", &h4001&, "c:\") 

If Not objFile is Nothing Then

    WScript.Echo objFile.Title
    WScript.Echo objFile.self.Path

End If

获取所选文件的文件路径

1 个答案: