怎么对同一文件夹下的所有工作簿执行同样的宏啊

c7566357

我这里有一个文件夹，文件夹下面有多个工作簿，每个工作簿有两张工作表，我想把第一张工作表的数据提取到第二张工作表的指定位置，我就录制了一段宏，怎么一次性对文件夹下面的所有工作簿执行这个宏呀，难道要一个一个的打开一个一个的执行吗？

于箱长

你录制的宏在哪呢？
在你录制的宏基本上加dir和循环

c7566357

于箱长 发表于 2022-4-6 21:33
你录制的宏在哪呢？
在你录制的宏基本上加dir和循环

怎么加呀，
这是我录制的宏代码
Sub 复制()
'
' 复制 宏
'

'
    Range("A2").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("Sheet1 (2)").Select
    Range("B2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("C2").Select
    ActiveSheet.Paste
    Sheets("Sheet1 (2)").Select
    Range("C2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("E2").Select
    ActiveSheet.Paste
End Sub

于箱长

c7566357 发表于 2022-4-6 22:16
怎么加呀，
这是我录制的宏代码
Sub 复制()

https://club.excelhome.net/thread-1258425-1-1.html
你先学习一下liulang0808老师关于dir的操作吧，加油

c7566357

有没有大神给个构建好的批处理框架也行呀，我是小白

云微笑

https://zhuanlan.zhihu.com/p/26379510  这里有合适的代码，你看下

c7566357

云微笑 发表于 2022-4-8 15:56
https://zhuanlan.zhihu.com/p/26379510  这里有合适的代码，你看下

感谢感谢，解决了！