vba打开文件夹里子文件夹中的所有表格
时间: 2023-12-06 12:03:44 浏览: 41
Sub OpenAllExcelFiles()
Dim MyFolder As String
Dim MyFile As String
Dim MyPath As String
Dim MyWorkbook As Workbook
'设置文件夹路径
MyFolder = "C:\Test"
'获取文件夹路径
MyPath = MyFolder & "\"
'循环遍历文件夹中的所有文件
MyFile = Dir(MyPath & "*.xlsx")
Do While MyFile <> ""
'打开当前文件
Set MyWorkbook = Workbooks.Open(MyPath & MyFile)
'遍历当前工作簿中的所有工作表
For Each Sheet In MyWorkbook.Sheets
'如果当前工作表是表格类型,则打开
If Sheet.ListObjects.Count > 0 Then
Sheet.Activate
End If
Next Sheet
'关闭当前工作簿,继续下一个文件
MyWorkbook.Close SaveChanges:=False
MyFile = Dir
Loop
End Sub