如a.xls中宏为
Sub Macro1()
Workbooks.Open Filename:="D:\我的文档\b.xls"
ActiveWindow.Close
End Sub
如b.xls中宏为
Sub Macro1()
Workbooks.Open Filename:="D:\我的文档\c.xls"
ActiveWindow.Close
End Sub
如c.xls中宏为
Sub Macro1()
Workbooks.Open Filename:="D:\我的文档\d.xls"
ActiveWindow.Close
End Sub
如a.xls,b.xls,c.xls中Workbook_Open事件
Private Sub Workbook_Open()
Macro1
End Sub