[已解决]宏1是对单工作簿执行的，现在我想对N个工作簿分别执行宏1，如何实现呢？

qiaodong64

宏1是对单工作簿执行的，现在我想对N个工作簿分别执行宏1，如何实现呢？

最佳答案

月排行榜 / 总排行榜

Excel学徒123

2017-4-18 14:45

qiaodong64 发表于 2017-4-18 14:22
把宏1放到功能区了，这样的话需要一个一个文件点开，执行宏1，然后保存。有木有更加方便的方式呢

这对新手来说 已经非常方便了，要不然你做个工作簿循环的代码吧，然后再处理

跳转到最佳答案楼层

Excel学徒123

做到功能区里面去

qiaodong64

Excel学徒123 发表于 2017-4-18 13:04
做到功能区里面去

把宏1放到功能区了，这样的话需要一个一个文件点开，执行宏1，然后保存。有木有更加方便的方式呢

Excel学徒123

qiaodong64 发表于 2017-4-18 14:22
把宏1放到功能区了，这样的话需要一个一个文件点开，执行宏1，然后保存。有木有更加方便的方式呢

这对新手来说 已经非常方便了，要不然你做个工作簿循环的代码吧，然后再处理

qiaodong64

Excel学徒123 发表于 2017-4-18 14:45
这对新手来说 已经非常方便了，要不然你做个工作簿循环的代码吧，然后再处理

好啦，测试成功Sub qiaoqiao2()    Dim ph$, fn$, sh As Worksheet
    ph = ThisWorkbook.Path & "\"
    fn = Dir(ph & "*.xls")
    Do While fn <> ""
        If fn <> ThisWorkbook.Name Then
            With Workbooks.Open(ph & fn)
                n = Worksheets.Count
                For i = 1 To n
                  Worksheets(i).Activate
                 test
                Next
                .Close True
            End With
        End If
        fn = Dir
    Loop
End Sub

Excel学徒123

qiaodong64 发表于 2017-4-18 16:04
好啦，测试成功Sub qiaoqiao2()    Dim ph$, fn$, sh As Worksheet
    ph = ThisWorkbook.Path & "\"
...

[em17]