【3】VBA跨工作簿調(diào)用sub，工作簿間調(diào)用模塊  

8）excel vba 跨工作簿的過程或函數(shù)調(diào)用程序?qū)懛?/p>

https://wenku.baidu.com/view/d064de9b29ea81c758f5f61fb7360b4c2f3f2a7f.html

7)在 別的工作簿調(diào)用 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里面的每個工作表內(nèi)的SUB只能在工作表上調(diào)用。你可做一個通用的模塊，將一此與具體工作表無關(guān)的SUB操作編為通用的子程序。

6)在一個工作簿中用VBA讓另一個工作簿執(zhí)行錄制的宏

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 復(fù)制并重名工作簿()

  Application.Run "氣站" & Format(Now(), "yyyy-mm-dd") & "日報表" & " .xls" & "!" &   更新日報表

End end Sub

注：更新日報表 為錄制宏的名字

前面部分為工作表名，

操作準是不行，

  BBS:需要先打開相應(yīng)的工作薄，例如：

WorkBooks.Open "氣站" & Format(Now(), "yyyy-mm-dd") & "日報表" & " .xls"

Application.Run "氣站" & Format(Now(), "yyyy-mm-dd") & "日報表" & " .xls" & "!" & 更新日報表

5)EXCEL用VBA調(diào)用其它工作簿宏怎么不行

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 調(diào)用宏（）

Application.Run "氣站2014-01-19日報表" & ".xlsm" & "!" & 更新日報表

End Sub

注 更新日報表 為所要調(diào)用工作簿宏的名

"氣站2014-01-19日報表" & ".xlsm" 為調(diào)用的工作簿

運行出現(xiàn)如下圖

  BBS:那個文件也要打開吧。其實都在打開狀態(tài)下不要代碼也可以，只需在 運行宏的窗口的位置改為想要的代碼的文檔即可

 可以使用錄制功能。應(yīng)該是沒有.xlsm 

 Application.Run "工作簿1!宏1"

4)Application.Run "b.xls!auto_open"

https://zhidao.baidu.com/question/184323411.html

3）vba 跨工作簿運行模塊,?。璒k,很詳細！

https://blog.csdn.net/qq_29663489/article/details/81163125

　vba中用Call程序名，是指用當(dāng)前工作簿中的程序，若要運行其他工作簿的程序，則要使用（要先打開這個工作簿） application.Run "'b.xls'!模塊1.宏1"

  除此之外，此方法還可以用于傳遞參數(shù)（跨工作簿）

2)vba 如何跨工作簿調(diào)用SUB 并傳入此SUB里需要的數(shù)據(jù) 

https://bbs.csdn.net/topics/392037046

　工作簿1調(diào)用工作簿2里sub，工作簿2sub里需要的數(shù)據(jù)如何從工作簿1傳送過去？

　BBS：打開工作簿2作為一個對象，run其中的sub

1）如何在新的工作簿里直接調(diào)用另一個工作簿的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跨工作薄調(diào)用宏　　Ok!
https://wenku.baidu.com/view/e31caf4ee45c3b3567ec8b72.html

【】