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”以达到所需的目的。 如果要同时打开标准和带有宏的Excelfile，请使用InStr（objFile，“ .xlsm”）或InStr（objFile，“ .xlsx”）。

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

Answer 2

Dir()仅返回文件名，而不返回完整路径：除非当前目录碰巧是您要搜索的目录，否则您需要将完整路径传递给Open() 。 最好永远不要依赖这种情况。