使用vba查找文件的路径

Question

我编写了一个打开对话框的功能，让用户选择一个文件夹。此函数返回一个字符串，该字符串只是所选文件夹的路径。

FolderPath = BrowseForFolder()

现在的想法是，这个FolderPath引用了一个特殊的文件夹，里面有大量的excel（.xml）文件。我想要做的是获取此特殊文件夹中每个.xml文件的特定位置（有其名称）。我不希望用户选择所有文件管理器，因为会有很多文件管理器。所以简而言之，我需要很多字符串来表示FolderPath

中这些.xml文件的路径

Answer 1

Sahil，我会用脚本对象来做这件事。

Dim FileCollection as Collection
Dim FSO as Scri[ting.FileSystemObject
Dim FLD as Scripting.Folder
Dim FIL as Scripting.File

您必须设置对Microsoft Scripting Runtime库的引用，或将它们全部声明为Objects并使用CreateObject即时构建它们。使用Set FLD = FSO.GetFolder（FolderPath）将对象与路径字符串连接起来。然后在FLD.Files中使用For Each FIL循环查找xml文件的内容，并使用FileCollection.Add File.Path将它们放入集合中。