0

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

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

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

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

谢谢你。

4

1 回答 1

2

这不适用于所有文件类型，但奇怪的是 .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
于 2013-10-22T13:57:26.390 回答