运行到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

直接问AI就好

看着像个倒计时？
我用VBA想着做过，但是AI告诉我，VBA因为某些“限制”性的原因。
做这个很难，而且运行起来回错误百出。。。

你不要把这个代码工作簿放到你要操作的那个文件夹里面，这样把代码工作簿也操作了，混乱。要么你发这个文件夹你也可以，那你就加一个判断哇file<>This workbook点name

第一个DIM那插入这行
dim WbA as workbook, WbB as workbook
time1下面插入这行
set wba = thisworkbook
Set Wb = GetObject(Folder & File)这个改为
set wbb = wrokbooks.open(FileName:=Folder & File,UpdateLinks:=0)
最好把application.DisplayAlerts = false这个也设置上，不然工作簿打开有提示就卡住了

这个没有问题啊，我试了一下，估计是你的文件有问题

赞一个