张雨生 带我去月球:可否提供vba程序在excel中自动打开其它的excel表格?

来源:百度文库 编辑:神马品牌网 时间:2024/04/29 10:11:47
可否提供详细的步骤,因为我对vba一点经验都没有,谢谢大家啦!
我在工具菜单中打开VB编辑器,然后再代码窗口写入你提供的代码,对象是通用,过程是WORKBOOK_OPEN,然后写入你提供的代码,可是我重新打开,没什么没有执行这个过程?我还漏了什么吗?

Private Sub Workbook_Open()
Workbooks.Open ("C:\MyFolder\MyBook.xls")
End Sub
这个代码是对的.
是不是宏安全性设置成低了?
菜单[工具]->[宏]->[安全性]->设成"高"

另外这个代码一定要写在thisworkbook的代码窗口里:
双击VB编辑器左侧thisworkbook对象,然后在右侧的代码窗口里写.

在thisworkbook中添加以下代码,可实现每次打开当前文件时,自动打开指定的Mybook.xls文件:

Private Sub Workbook_Open()
Workbooks.Open ("C:\MyFolder\MyBook.xls")
End Sub