运行到Wb.Close False 这行代码关闭Wb工作簿时会把代码工作簿一起关了。第二次循环到该句前一句时就报错，请问各位是哪里的问题。
Option Explicit
Sub test()
Dim n%, m%, Folder$, File$, Wb As Workbook, Time!, Time1!, Time2!
With Application.FileDialog(msoFileDialogFolderPicker)
.Show '打开文件夹
Folder = .SelectedItems(1) & "\" '文件夹路径赋值
End With
Time1 = Timer '提取当前时间
'Application.ScreenUpdating = False '冻结屏幕
File = Dir(Folder & "*.xlsx") '遍历XLSX文件
Do While File <> ""
Set Wb = GetObject(Folder & File) '文件完整路径赋值给Wb
n = n + 1
ThisWorkbook.Sheets(1).Cells(n, 1) = Mid(File, 2, 4) '提取文件名的第2到5位填入代码工作簿的第一个工作表的第n行第1列的单元格
ThisWorkbook.Sheets(1).Cells(n, 2).Resize(, 7) = Wb.Worksheets(1).Range("A1:G1").Value '将Wb工作簿的第一个工作表的A1:G1区域的值赋值给代码工作簿第一个工作表的第n行第2列开始的单元格
Wb.Close False '关闭Wb工作簿且不保存
Set Wb = Nothing '释放Wb工作簿
File = Dir
Loop
'Application.ScreenUpdating = True
Time2 = Timer
Time = Time2 - Time1
MsgBox "总用时" & Round(Time, 1) & "秒" & Chr(10) & "平均用时" & Round(Time / n, 1) & "秒"
End Sub
Option Explicit
Sub test()
Dim n%, m%, Folder$, File$, Wb As Workbook, Time!, Time1!, Time2!
With Application.FileDialog(msoFileDialogFolderPicker)
.Show '打开文件夹
Folder = .SelectedItems(1) & "\" '文件夹路径赋值
End With
Time1 = Timer '提取当前时间
'Application.ScreenUpdating = False '冻结屏幕
File = Dir(Folder & "*.xlsx") '遍历XLSX文件
Do While File <> ""
Set Wb = GetObject(Folder & File) '文件完整路径赋值给Wb
n = n + 1
ThisWorkbook.Sheets(1).Cells(n, 1) = Mid(File, 2, 4) '提取文件名的第2到5位填入代码工作簿的第一个工作表的第n行第1列的单元格
ThisWorkbook.Sheets(1).Cells(n, 2).Resize(, 7) = Wb.Worksheets(1).Range("A1:G1").Value '将Wb工作簿的第一个工作表的A1:G1区域的值赋值给代码工作簿第一个工作表的第n行第2列开始的单元格
Wb.Close False '关闭Wb工作簿且不保存
Set Wb = Nothing '释放Wb工作簿
File = Dir
Loop
'Application.ScreenUpdating = True
Time2 = Timer
Time = Time2 - Time1
MsgBox "总用时" & Round(Time, 1) & "秒" & Chr(10) & "平均用时" & Round(Time / n, 1) & "秒"
End Sub
