excel如何在一个excel中用宏运行另一个excel中的宏?
3个回答
展开全部
为啥不能拷回来用
借用别人给的例子供你参考
建立一个带宏的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
Set xl_wb =Workbooks.Open(xl_wb_name) '非必须打开这个文件,但这样操作方便关闭这个文件
Application.Run "'" & xl_wb_name &"'!test_hello" '这里需要用分隔符单引号和连接符生成调用文件路径和宏名
xl_wb.Close savechanges:=False
End Sub
借用别人给的例子供你参考
建立一个带宏的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
Set xl_wb =Workbooks.Open(xl_wb_name) '非必须打开这个文件,但这样操作方便关闭这个文件
Application.Run "'" & xl_wb_name &"'!test_hello" '这里需要用分隔符单引号和连接符生成调用文件路径和宏名
xl_wb.Close savechanges:=False
End Sub
展开全部
亲,其实就一句话:
Application.Run "文件名全称+!+宏名称"
例如:Application.Run "abc.xlsm!Sheet1.统计"
Application.Run "文件名全称+!+宏名称"
例如:Application.Run "abc.xlsm!Sheet1.统计"
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你另存为宏模板试试,祝你成功
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询