[已解决]求多种办法

hwc2ycy

1. Sub auto_open()
   
2.     Workbooks.Open ThisWorkbook.Path & "\Book1.xlsm"
   
3.     Application.Run "Book1.xlsm!Sheet1.CommandButton1_Click"      '没有问题
   
4.     Workbooks("Book1.xlsm").Save
   
5.     Workbooks("Book1.xlsm").Close
   
6. End Sub

复制代码

hwc2ycy

两文件放一个目录中，我这测试是OK的。

hwc2ycy

你直接换成表单按钮指定的宏名就可以了。

hwc2ycy

1. Sub auto_open()
   
2.     Workbooks.Open ThisWorkbook.Path & "\Book1.xlsm"
   
3.     Application.Run "Book1.xlsm!a"      '没有问题
   
4.     Workbooks("Book1.xlsm").Save
   
5.     Workbooks("Book1.xlsm").Close
   
6. End Sub
   

复制代码

759857387

hwc2ycy 发表于 2013-3-11 20:49

谢谢hwc2ycy老师的耐心帮助。

hwc2ycy

759857387 发表于 2013-3-11 20:57
谢谢hwc2ycy老师的耐心帮助。

我不是老师，{:3312:}

759857387

hwc2ycy 发表于 2013-3-11 20:58
我不是老师，

别谦虚啦，我都跟你学了那麽多，相信你不久就会成为MVP