让一个文件夹的所有excel文档自动运行一段宏代码?

yoorel

让一个文件夹的所有excel文档自动运行一段宏代码?  自己录制一个宏几百个这样的文件怎么才能一键让所有文件运行宏？

65861954

在一个空白excel里写代码：1、打开所有文件。2、每打开一个文件，循环里面的工作表，对每个工作表使用你录制的宏，3、循环

yoorel

65861954 发表于 2024-6-18 20:25
在一个空白excel里写代码：1、打开所有文件。2、每打开一个文件，循环里面的工作表，对每个工作表使用你录 ...

啊  不会写。。。。。

65861954

这是最基础的内容了。不会的话说明你根本没学过。

65861954

1. Sub test()
   
2. Dim str()
   
3. Dim i As Integer
   
4. Dim wb, wb1 As Workbook
   
5. Dim sht As Worksheet
   
6. 
   
7. On Error Resume Next '这一句上课时候没加，加上以后防止点了取消发生的错误
   
8. Set wb1 = ActiveWorkbook
   
9. Set sht1 = ActiveSheet
   
10. On Error Resume Next
    
11. str = Application.GetOpenFilename("Excel数据文件,*.xls*", , , , True)
    
12. 
    
13.     For i = LBound(str) To UBound(str)
    
14.         Set wb = Workbooks.Open(str(i))
    
15.         For Each sht In wb.Sheets
    
16.             sht.Copy after:=wb1.Sheets(wb1.Sheets.Count)
    
17.             wb1.Sheets(wb1.Sheets.Count).Name = Split(wb.Name, ".")(0) & sht.Name
    
18.         Next
    
19.         wb.Close
    
20.     Next
    
21. 
    
22. 
    
23. End Sub

复制代码

这是类似的代码，只需要把中间代码换成你的代码就OK

yoorel

65861954 发表于 2024-6-18 20:58
这是类似的代码，只需要把中间代码换成你的代码就OK

中间的哪一段？

ykcbf1100

yoorel 发表于 2024-6-20 18:27
中间的哪一段？

你想调用bas代码？