vba获取所有打开的多个工作簿文件名

2025-02-23 07:52:42

推荐回答（3个）

回答1：

　　下面的VBA代码先用Application.GetOpenFilename方法显示“打开”文件对话框，然后打开所选择的一个或多个Excel工作簿文件。
Sub OpenWorkbooks()
   On Error Resume Next
   Dim SelectFiles As Variant
      '显示打开文件对话框
      SelectFiles = Application.GetOpenFilename("Excel 文件 (*.xl*)," & "*.xl*", , "打开", , True)
      '未选择
      If TypeName(SelectFiles) = "Boolean" Then
         Exit Sub
      End If
      '打开所选工作簿
      For i = 1 To UBound(SelectFiles)
      Workbooks.Open SelectFiles(i)
      Next i
End Sub

回答2：

无法实现获取工作簿，只能获取sheet

回答3：

楼上正解