VBA跨工作簿间调用宏

【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./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

【】