目录 一、总说明 1 当前需求 2 操作和注意点 3 运行代码 二、代码逐句拆解 - 前 1 Sub&End Sub 2 Dim As 3 关闭屏幕自动刷新 4 MyPath = ActiveWorkbook.Path ① 拆解 ActiveWorkbook.Path ② 拆解 MyName = Dir(MyPath & "" & "*.xlsx") ③AWbName = ActiveWorkbook.Name 三、代码逐句拆解 - 中 1 Num = 0 和 Num = Num + 1 2 Do While 3 IF Then ; Workbooks.Open( ) 4 With Workbooks(1).ActiveSheet 5 选取表内所有单元格 四、代码逐句拆解 - 后 1 WbN = WbN & Chr(13) & Wb.Name 2 Wb.Close False 3 MyName = Dir 4 LOOP