如何用excel宏打开另一个excel文件?

如题所述

Sub test_hello()

MsgBox "hello"
End Sub
这个文件中的模块是被调用的对象。
再建立一个Excel文件,创建下面的宏用来调用上面的对象。
Sub test_calling()
Dim xl_wb As Excel.Workbook
Dim xl_wb_name As String
With Application.FileDialog(msoFileDialogFilePicker)     '使用文件对话框选取要调用宏所在的文件
.AllowMultiSelect = False
If .Show = -1Then
xl_wb_name =.SelectedItems(1)
End If
End With

调用程序:
Sub openfile()
Workbooks.Open ("被调用文件.xls")
Workbooks("被调用文件.xls").Sheets("Sheet1").test
End Sub

被调用文件,Sheet1代码:
Public Sub test()
Beep
End Sub。

温馨提示:内容为网友见解,仅供参考
无其他回答
相似回答