如果是很多个工作簿很多个工作表 Sub test() DirPath = ThisWorkbook.Path fs = Dir(DirPath & "\*.xls*") Do Until fs = "" r = r + 1 Fname = DirPath & "\" & fs If Fname <> "False" Then Workbooks.Open Fname For i = 1 To Sheets.Count Sheets(i).Select ''加入录制单一列印页面的巨集程序 Next Workbooks(fs).Close False fs = Dir Loop End Sub 如果是工作簿内有很多个工作表 For i = 1 To Sheets.Count ''With Sheets(i) Sheets(i).Select ''加入录制单一列印页面的巨集程序 Next
