对与此同时打开N个工作薄，如果对每个工作薄执行同一个宏

2013-10-01

对同时打开N个工作薄，如果对每个工作薄执行同一个宏用excel打开了N个（15个）工作薄，然后对其执行同一个宏，

对同时打开N个工作薄，如果对每个工作薄执行同一个宏
用excel打开了N个（>15个）工作薄，然后对其执行同一个宏，现在只能一个一个执行，编写怎样一个宏，可以对这些打开的宏，用另一个宏执行？？
[解决办法]


Sub test_sub()

Cells(1, 1) = 1
End Sub

Sub fun()

Dim ws As EXCEL.Worksheet

For Each ws In ThisWorkbook.Worksheets

    ws.Activate
    test_sub '让每个工作表都执行test_sub

Next

End Sub

[解决办法]
看起来我似乎理解错了
试试看看这个怎么样


Sub test_sub()

Cells(1, 1) = 1
End Sub

Sub fun()

Dim wb As EXCEL.Workbook
Dim ws As EXCEL.Worksheet

For Each wb In EXCEL.Workbooks

    For Each ws In wb.Worksheets
    
        ws.Activate
        test_sub '让每个工作薄的工作表都执行test_sub，也就是 A1 单元格赋值1
    
    Next
Next

End Sub

热点排行

VBA

对与此同时打开N个工作薄，如果对每个工作薄执行同一个宏