如何同宏批量处理同个文件夹的多个EXCEL,宏我已经录制好了，就是要自动打开文件执行宏然后保存关闭？

Question

这是我录制的宏/** * Macro1 Macro * 宏由 PC-03 录制，时间: 2021/07/28 */function Macro1(){ ActiveSheet.PageSetup.Zoom = 85; ActiveSheet.PageSetup.Zoom = 85; ActiveSheet.PageSetup.Zoom = 85; ActiveSheet.PageSetup.Zoom = 85; ActiveSheet.PageSetup.Zoom = 85; ActiveSheet.PageSetup.LeftMargin = 62.362202; ActiveSheet.PageSetup.RightMargin = 42.519600; ActiveSheet.PageSetup.TopMargin = 42.519600; ActiveSheet.PageSetup.BottomMargin = 42.519600; ActiveSheet.PageSetup.HeaderMargin = 36; ActiveSheet.PageSetup.FooterMargin = 36; Rows.Item("19:19").Select(); Selection.RowHeight = 30; Rows.Item("25:25").Select(); Selection.RowHeight = 30;}

Answer 1

Sub VBA打开文件夹内所有Excel表格()
Dim myPath$, myFile$, WB As Workbook '这个$ 是相当于定义字符串
myPath = "F:\" '把文件路径知定义给变量，这里请自行更改，记得最后要加一个反斜杠
myFile = Dir(myPath & "*.xls*") '依次找寻指定路径中的*.xls，或者xlsx文件
Do While myFile <> "" '当指定路径中有文件时进行循环
If myFile <> ThisWorkbook.Name Then '如果我们这个宏文件在需要处理的文件夹之中，这个判断就会跳过下面的操作
Set WB = Workbooks.Open(myPath & myFile) '打开符合要求的文件
WB.Close 0 '不保存文件直接关闭
End If
myFile = Dir '找寻下一个*.xls，或者xlsx文件
Loop
Set WB = Nothing '释放变量内存
End Sub追问

录制的宏放在哪里？还有这个没自动保存啊

追答

这里就是录制宏代码，按快捷键F5能运行

追问

我知道，你这个只是说重复执行，至于执行的什么命令，应该插入在哪里