【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里面的每個(gè)工作表內(nèi)的SUB只能在工作表上調(diào)用。你可做一個(gè)通用的模塊,將一此與具體工作表無關(guān)的SUB操作編為通用的子程序。 6)在一個(gè)工作簿中用VBA讓另一個(gè)工作簿執(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") & "日?qǐng)?bào)表" & " .xls" & "!" & 更新日?qǐng)?bào)表 End end Sub 注:更新日?qǐng)?bào)表 為錄制宏的名字 前面部分為工作表名, 操作準(zhǔn)是不行, BBS:需要先打開相應(yīng)的工作薄,例如: WorkBooks.Open "氣站" & Format(Now(), "yyyy-mm-dd") & "日?qǐng)?bào)表" & " .xls" Application.Run "氣站" & Format(Now(), "yyyy-mm-dd") & "日?qǐng)?bào)表" & " .xls" & "!" & 更新日?qǐng)?bào)表 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日?qǐng)?bào)表" & ".xlsm" & "!" & 更新日?qǐng)?bào)表 End Sub 注 更新日?qǐng)?bào)表 為所要調(diào)用工作簿宏的名 "氣站2014-01-19日?qǐng)?bào)表" & ".xlsm" 為調(diào)用的工作簿 運(yùn)行出現(xiàn)如下圖 BBS:那個(gè)文件也要打開吧。其實(shí)都在打開狀態(tài)下不要代碼也可以,只需在 運(yùn)行宏的窗口的位置改為想要的代碼的文檔即可 可以使用錄制功能。應(yīng)該是沒有.xlsm Application.Run "工作簿1!宏1" 4)Application.Run "b.xls!auto_open" https://zhidao.baidu.com/question/184323411.html 3)vba 跨工作簿運(yùn)行模塊,?。璒k,很詳細(xì)! https://blog.csdn.net/qq_29663489/article/details/81163125 vba中用Call程序名,是指用當(dāng)前工作簿中的程序,若要運(yùn)行其他工作簿的程序,則要使用(要先打開這個(gè)工作簿) 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作為一個(gè)對(duì)象,run其中的sub 1)如何在新的工作簿里直接調(diào)用另一個(gè)工作簿的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! 【】 |
|