自动打开多个工作簿并触发其模块里的宏自动运行

lijian8003 · 发表于 2013-3-17 03:10

自动依次打开成百上千个工作簿，并触发这些工作簿中模块里的宏自动运行，这样的设想在技术上能够办到吗？

zhaogang1960 · 发表于 2013-3-17 03:28

请参考：

Sub 打开工作簿并运行它的宏()
Dim f$
f = ThisWorkbook.Path & "\Book1.xls"
Workbooks.Open f
Application.Run "'" & f & "'!模块1.Macro1"
End Sub

复制代码

zhaogang1960 · 发表于 2013-3-17 03:29

请参考附件

新建文件夹.rar (10.92 KB, 下载次数: 334)

lijian8003 · 发表于 2013-3-17 13:44

zhaogang1960 发表于 2013-3-17 03:28
请参考：

谢谢您给与的帮助！一个工作簿 f = ThisWorkbook.Path & "\Book1.xls"
，2个工作簿为 f = ThisWorkbook.Path & "\Book1.xls"& "\Book2.xls"，是这样吗？

zhaogang1960 · 发表于 2013-3-17 14:00

lijian8003 发表于 2013-3-17 13:44
谢谢您给与的帮助！一个工作簿 f = ThisWorkbook.Path & "\Book1.xls"
，2个工作簿为 f = ThisWorkbo ...

很多工作簿可以用循环查找，关键是各个工作簿中模块里的宏叫什么名字

lijian8003 · 发表于 2013-3-17 14:12

本帖最后由 lijian8003 于 2013-3-17 14:34 编辑

zhaogang1960 发表于 2013-3-17 14:00
很多工作簿可以用循环查找，关键是各个工作簿中模块里的宏叫什么名字

各个工作簿模块里的宏名都一样，工作簿命名为01_1，01_2.....; 02_1，02_2......如果需要，也可以每个工作簿模块里的宏命名不同的名字。

能否打开book1，运行宏，保存，关闭；再打开book2，运行宏，保存，关闭；再打开book3，运行宏，保存，关闭......这样就可以实现无人值守一键运行成百上千个工作簿了。

再有，如果cpu、内存富余，可以每次打开2个或3个工作簿，同时运行宏，保存，关闭......再依次打开另外2个或3个工作簿，同时运行宏，保存，关闭......

可以实现这样的操作吗？

lijian8003 · 发表于 2013-3-17 14:22

zhaogang1960 发表于 2013-3-17 14:00
很多工作簿可以用循环查找，关键是各个工作簿中模块里的宏叫什么名字

具体实践您的代码，有一个疑问：每次打开一个工作簿，excel都要自动更新数据，好像您的代码执行宏运算时，抢在数据自动更新前了。

zhaogang1960 · 发表于 2013-3-17 15:01

lijian8003 发表于 2013-3-17 14:12
各个工作簿模块里的宏名都一样，工作簿命名为01_1，01_2.....; 02_1，02_2......如果需要，也可以每个工 ...

VBA没有多线程功能，只能逐个打开、运行程序了：

Sub 循环打开工作簿并运行它的宏()
Dim p$, f$
Application.ScreenUpdating = False
p = ThisWorkbook.Path & ""
f = Dir(p & "*.xls")
Do While f <> ""
If f <> ThisWorkbook.Name Then
With Workbooks.Open(p & f)
Application.Run "'" & f & "'!模块1.Macro1"
.Close True '关闭保存
End With
End If
f = Dir
Loop
Application.ScreenUpdating = True
MsgBox "ok"
End Sub

复制代码

lijian8003 · 发表于 2013-3-17 15:18

zhaogang1960 发表于 2013-3-17 15:01
VBA没有多线程功能，只能逐个打开、运行程序了：

谢谢！具体尝试一下。每次打开一个工作簿，excel都要自动更新数据，您写的代码依次自动打开工作簿执行宏运算，是在excel数据自动更新后吗？

lijian8003 · 发表于 2013-3-17 16:09

本帖最后由 lijian8003 于 2013-3-17 16:11 编辑

zhaogang1960 发表于 2013-3-17 15:01
VBA没有多线程功能，只能逐个打开、运行程序了：

代码运行流程，一气呵成，谢谢！唯一的遗憾是，自动打开工作簿并触发宏代码运行时，被打开的工作簿数据没有自动刷新。或许用VBA打开工作簿，禁止了工作簿自动刷新数据？手动打开工作簿，数据能够自动刷新的。

		自动登录	找回密码
密码			免费注册

[讨论] 自动打开多个工作簿并触发其模块里的宏自动运行

评分

评分

评分

点评

最新热点 /1