vba - Excel VBA 使用 Workbook.Open 与 Dir(Directory) 的结果

Question

这看起来很简单，我已经让它工作了很多次，但是在我的 Dir 调用(遍历目录)和打开当前文件之间总是有一些问题。这是相关的代码:

SourceLoc = "C:\ExcelWIP\TestSource\"
SourceCurrentFile = Dir(SourceLoc)

'Start looping through directory
While (SourceCurrentFile <> "")
Application.Workbooks.Open (SourceCurrentFile)

我得到的是文件访问错误，因为 Application.Workbooks.Open 试图打开“C:\ExcelWIP\TestSource\\FILENAME”(注意额外的斜杠)

但是，当我从 SourceLoc 中取出最后一个斜杠时， Dir(SourceLoc) 的结果是 ""(它不搜索目录)。

令人沮丧的是，当我以其他方式编辑 sub 时，这段代码的功能来来去去。我已经让它按原样工作，并且我已经将“/”从目录路径中取出使其工作，而目前，我无法让它们一起正常工作。

我已经搜索了在线帮助和 ms 文章，但似乎没有任何原因表明它会不断上升和下降(除非它停止工作，否则不会被编辑)以及为什么目录路径的格式有时会与最终'/' 有时没有。

有任何想法吗？

Answer 1

这将打开该目录子中的所有 .xlsx 文件。

    Sub OpenFiles()
    Dim SourceCurrentFile As String
    Dim FileExtension as String: FileExtension = "*.xlxs"
    SourceLoc = "C:\ExcelWIP\TestSource\"
    SourceCurrentFile = Dir(SourceLoc)
    SourceCurrentFile = Dir()
    'Start looping through directory
    Do While (SourceCurrentFile <> "")
    Application.Workbooks.Open (SourceLoc &"\"& SourceCurrentFile)
    SourceCurrentFile = Dir(FileExtension)
    Loop
    End Sub