VBA - 试图打开文件夹中的所有工作簿

Question

我正在尝试循环并打开一个名为(BU)的文件夹中的所有文件，该文件夹与我的宏所在的工作表位于同一目录中。我能够看到 myfile 正确获取第一个文件名，但是当工作簿尝试打开时出现运行时错误 1004。任何帮助，将不胜感激。

Sub LoopAndOpen()

  Dim myfile As String, Sep As String, stringA As String, path1 As String
  Sep = Application.PathSeparator
  path1 = ActiveWorkbook.Path & Sep & "BU" & Sep

  myfile = Dir(path1 & "*.xlsm")

  Do While myfile <> ""

     Workbooks.Open myfile
     myfile = Dir()
  Loop

End Sub

编辑:我最终使用了 Unicco 的程序，并且效果很好。

Answer 1

您可以改用此过程。

将“ThisWorkbook.Path”和“.xlsm”修改为您想要的目的。使用 InStr(objFile, ".xlsm") 或 InStr(objFile, ".xlsx") 如果您想同时打开标准文件和带有宏的 Excel 文件。

Option Explicit
Sub OpenAllFiles()

    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFolder = objFSO.GetFolder(ThisWorkbook.Path)

    For Each objFile In objFolder.Files
        If InStr(objFile, ".xlsm") Then
            Workbooks.Open (objFile)
        End If
    Next

End Sub