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

xdwy81129 · 发表于 2012-12-4 05:31

【请教达人】【请教达人】【请教达人】【请教达人】
【请教达人】【请教达人】【请教达人】【请教达人】【请教达人】【请教达人】
1.只打开“问题请教”工作簿，点击“按钮 1”
2.上面的操作希望实现如下功能
（1）用新的excel程序打开同路径下的“操作我”工作簿，因为内含宏，所以请自动启用宏
（2）用“操作我”工作簿内的代码“Sub M操作”对它自己（操作我.xls）
说明，总共打开的excel程序是2个

新建操作.rar (11.28 KB, 下载次数: 6)

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

新建操作.rar (18.4 KB, 下载次数: 3)

hwc2ycy · 发表于 2012-12-4 07:32

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

本帖最后由 hwc2ycy 于 2012-12-4 07:38 编辑

新建操作.rar (16.12 KB, 下载次数: 16)

无聊的疯子 · 发表于 2012-12-4 10:26

hwc2ycy 发表于 2012-12-4 07:32

添加一个判断，可以不要 on error resume

If Len(Dir(ActiveWorkbook.Path & "" & wb)) = 0 Then
MsgBox "文件不存在，打开失败", , "错误"
Exit Sub
End If

复制代码

hwc2ycy · 发表于 2012-12-4 14:18

无聊的疯子发表于 2012-12-4 10:26
添加一个判断，可以不要 on error resume

这个可以有，不过貌似如果是重复打开呢，这个还是有用的。

，钻下牛角尖。

无聊的疯子 · 发表于 2012-12-4 16:20

hwc2ycy 发表于 2012-12-4 14:18
这个可以有，不过貌似如果是重复打开呢，这个还是有用的。，钻下牛角尖。

重新创建一个 Excel 程序来打开工作薄就不会存在重新打开的提示了!!

xdwy81129 · 发表于 2012-12-4 20:28

hwc2ycy 发表于 2012-12-4 07:32

我上的附件有个开头的

Sub 按钮1_单击()
Dim luwj$
luwj = ActiveWorkbook.Path & "\"
Shell ("D:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE" & " " & luwj & "操作我.xls"), 1 '示例
End Sub

问题的关键前提是
（1）用新的excel程序打开同路径下的“操作我”工作簿，因为内含宏，所以请自动启用宏
（2）用“操作我”工作簿内的代码“Sub M操作”对它自己（操作我.xls）

xdwy81129 · 发表于 2012-12-4 20:29

无聊的疯子发表于 2012-12-4 16:20
重新创建一个 Excel 程序来打开工作薄就不会存在重新打开的提示了!!

求问的就是用新的excel.exe程序来操作，希望帮忙解答为感

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

你试用excel.application，上次疯子试过。

xdwy81129 · 发表于 2012-12-4 20:39

hwc2ycy 发表于 2012-12-4 20:36
你试用excel.application，上次疯子试过。

不知道怎么加语句呀

，我水平还还待提高

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

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

最佳答案

点评

评分

评分

评分