【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.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跨工作薄調(diào)用宏 Ok!
https://wenku.baidu.com/view/e31caf4ee45c3b3567ec8b72.html
【】
聯(lián)系客服