excel多个文件宏批处理

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

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

㈡ 如何批量对同一个文件夹内几百个EXCEL文件都同时执行这个宏命令

'如果要批量清除工作表保护密码，建议代码如下，否则将粗体字部分代码改成：

'Call 你的程序名称

'（注：如果要批量破解密码，几百个工作簿，上千个工作表，你可能要破解几个月，如果密码复杂点，或许几年都破解不出来，还是建议用以下代码清除为好）

Sub 批量清除工作表保护密码()

Dim myPath$, myFile$, AK As Workbook, sh As Worksheet

Application.ScreenUpdating = False

myPath = ThisWorkbook.Path & ""

myFile = Dir(myPath & "*.xls")

Do While myFile <> ""

If myFile <> ThisWorkbook.Name Then

Set AK = Workbooks.Open(myPath & myFile)

For Each sh In Worksheets

sh.Protect AllowFiltering:=True

sh.Unprotect

Next

AK.Close True

End If

myFile = Dir

Loop

Application.ScreenUpdating = True

End Sub

㈢ 对多个excel文件，使用宏批处理

sub 多文件写入
Dim XLS
Xls = Dir(excel文件夹路径 & "\*.xls") '指定要遍历excel文件的路径及文件类型
Do While Xls <> ""
Set Xls = Workbooks.Open(excel文件夹路径 & "\" & Xls) '打开excel文件
Sheets(1).Select
Sheets(1).Cells(1, 1).Value = "AAAA" '在A1单元格输入AAAA（行序号，列序号）
Xls.Close True
Xls = Dir '下一个excel文件
Loop
Set Xls = Nothing '释放变量内存
end sub

㈣ 如何对N个excel文件，批量执行同一个宏

软件版本：Office2007

举例说明如下：

1.Alt+F11，输入代码如下：

代码解释：先查找当前文件夹下所有的xlsx文件，并通过循环依次打开文件

然后对当前激活状态的Excel文件执行宏命令（此处是给A1单元格赋值）

保存当前Excel文件，并关闭

继续打开下一个，重复上述操作。