[已解决]【请教达人】操作新E簿，让其自己执行代码

hwc2ycy · 发表于 2012-12-4 20:55

Dim app As Excel.Application
Set app = CreateObject("excel.application")

复制代码

hwc2ycy · 发表于 2012-12-4 20:58

Sub 按钮1_单击()
Dim luwj$, wb$
Dim app As Excel.Application
wb = "操作我.xls"
luwj = ActiveWorkbook.Path & "" & wb
On Error Resume Next
Application.AutomationSecurity = msoAutomationSecurityLow
Set app = CreateObject("excel.application")
app.Application.AutomationSecurity = msoAutomationSecurityLow
app.Workbooks.Open luwj
If Err.Number <> 0 Then MsgBox "打开失败": Exit Sub
app.Application.AutomationSecurity = msoAutomationSecurityByUI
End Sub

复制代码

hwc2ycy · 发表于 2012-12-4 21:01

本帖最后由 hwc2ycy 于 2012-12-4 21:03 编辑

Sub 按钮1_单击()
Dim luwj$, wb$
Dim app As Excel.Application
wb = "操作我.xls"
luwj = ActiveWorkbook.Path & "" & wb
On Error Resume Next
Set app = CreateObject("excel.application")
app.Visible = True
app.Application.AutomationSecurity = msoAutomationSecurityLow
app.Workbooks.Open luwj
If Err.Number <> 0 Then MsgBox "打开失败": Exit Sub
app.Application.AutomationSecurity = msoAutomationSecurityByUI
End Sub

复制代码

忘了VISIBLE了，可以了。我刚试了下，是在新进程打开的。

xdwy81129 · 发表于 2012-12-4 21:08

hwc2ycy 发表于 2012-12-4 21:01
忘了VISIBLE了，可以了。我刚试了下，是在新进程打开的。

谢谢，我也测试了，可是宏没有被执行，即"操作我.xls"自己里面的宏（sub M操作）对自己执行

期盼完全解决

hwc2ycy · 发表于 2012-12-4 21:10

打开后是不是这样子？
或者你加个MSGBOX在里面。

hwc2ycy · 发表于 2012-12-4 21:28

刚测了下，THISWORKBOOK里OPEN事件第一位，标准模块里的AUTO_OPEN第2位。
我之前直接打击宏能自动运行是因为Application.AutomationSecurity的值为1，当我设成3后，双击，里面的宏都不会自动运行了。

通过代码，在新的EXCEL.EXE进程里打开的工作簿，其宏代码能自动运行。WORK_OPEN事件，AUTO_OPEN都能运行。

hwc2ycy · 发表于 2012-12-4 21:31

本帖最后由 hwc2ycy 于 2012-12-5 18:57 编辑

新建操作.rar (17.11 KB, 下载次数: 5)

xdwy81129 · 发表于 2012-12-4 21:50

hwc2ycy 发表于 2012-12-4 21:31

谢谢耐心解答，可是希望的目的是只通过“问题请教.xls”去执行打开工作簿里面的宏，而不是让工作簿的事件去执行，想做的就是怎么学习写代码操作新的excel.exe里面的宏去执行宏。

期盼可以见到答案

hwc2ycy · 发表于 2012-12-4 22:27

操作我里的自动运行的部分全注释掉了。

hwc2ycy · 发表于 2012-12-5 18:58

新建操作.rar (17.11 KB, 下载次数: 14)

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

[已解决]【请教达人】操作新E簿，让其自己执行代码

评分