【3】VBA跨工作簿调用sub,工作簿间调用模块
8)excel vba 跨工作簿的过程或函数调用程序写法
https://wenku.baidu.com/view/d064de9b29ea81c758f5f61fb7360b4c2f3f2a7f.html
7)在 别的工作簿调用 01.xls 的过程
https://zhidao.baidu.com/question/679958372928172812.html?qbl=relate_question_4&word=vba%B2%BB%CD%AC%B9%A4%D7%F7%B1%A1%BC%E4%B5%C4sub
就这样写:Application.Run "01.xls!01"
EXCEL里面的每个工作表内的SUB只能在工作表上调用。你可做一个通用的模块,将一此与具体工作表无关的SUB操作编为通用的子程序。
6)在一个工作簿中用VBA让另一个工作簿执行录制的宏
https://zhidao.baidu.com/question/919661898902579139.html?qbl=relate_question_3&word=vba%B2%BB%CD%AC%B9%A4%D7%F7%B1%A1%BC%E4%B5%C4sub
Sub 复制并重名工作簿()
Application.Run "气站" & Format(Now(), "yyyy-mm-dd") & "日报表" & " .xls" & "!" & 更新日报表
End end Sub
注:更新日报表 为录制宏的名字
前面部分为工作表名,
操作准是不行,
BBS:需要先打开相应的工作薄,例如:
WorkBooks.Open "气站" & Format(Now(), "yyyy-mm-dd") & "日报表" & " .xls"
Application.Run "气站" & Format(Now(), "yyyy-mm-dd") & "日报表" & " .xls" & "!" & 更新日报表
5)EXCEL用VBA调用其它工作簿宏怎么不行
https://zhidao.baidu.com/question/2139185189464198908.html?qbl=relate_question_3&word=vba%B2%BB%CD%AC%B9%A4%D7%F7%B1%A1%BC%E4%B5%C4sub
sub 调用宏()
Application.Run "气站2014-01-19日报表" & ".xlsm" & "!" & 更新日报表
End Sub
注 更新日报表 为所要调用工作簿宏的名
"气站2014-01-19日报表" & ".xlsm" 为调用的工作簿
运行出现如下图
BBS:那个文件也要打开吧。其实都在打开状态下不要代码也可以,只需在 运行宏的窗口的位置改为想要的代码的文档即可
可以使用录制功能。应该是没有.xlsm
Application.Run "工作簿1!宏1"
4)Application.Run "b.xls!auto_open"
https://zhidao.baidu.com/question/184323411.html
3)vba 跨工作簿运行模块, -Ok,很详细!
https://blog.csdn.net/qq_29663489/article/details/81163125
vba中用Call程序名,是指用当前工作簿中的程序,若要运行其他工作簿的程序,则要使用(要先打开这个工作簿) application.Run "'b.xls'!模块1.宏1"
除此之外,此方法还可以用于传递参数(跨工作簿)
2)vba 如何跨工作簿调用SUB 并传入此SUB里需要的数据
https://bbs.csdn.net/topics/392037046
工作簿1调用工作簿2里sub,工作簿2sub里需要的数据如何从工作簿1传送过去?
BBS:打开工作簿2作为一个对象,run其中的sub
1)如何在新的工作簿里直接调用另一个工作簿的SUB程序
http://club.excelhome.net/thread-1057861-1-1.html
BBS:Sub Macro1()
? ? Dim wb As Workbook
? ? On Error Resume Next
? ? Set wb = Workbooks(ThisWorkbook.Path & "\b.xls")
? ? If wb Is Nothing Then
Set wb = Workbooks.Open(ThisWorkbook.Path & "\b.xls")
? ? On Error GoTo 0
? ? Application.Run "'b.xls'!模块1.宏1"
End Sub
On Error Resume Next
On Error GoTo 0
【2】vba跨工作薄调用宏 Ok!
https://wenku.baidu.com/view/e31caf4ee45c3b3567ec8b72.html
【】
联系客服