[發問] 如何開啟另一excel檔的表單

minshing

小弟剛學vba
請各位幫個忙!!謝謝!!
我有兩個excel檔(a.xlsm及b.xlsm)
a檔的功用是工作流程
b檔的功用是資料庫，我在b檔已經做好一個輸入表單userform1
我想在a檔某一流程叫出b檔內的userform1出來輸入資料使用(註:userform1已對應好b檔內的sheet)
但是一直執行錯誤
我的程式碼如下，麻煩幫小弟更正錯誤，謝謝!!
(錯誤行:Workbooks(Filename).UserForm1.Show )

Sub 開啟輸入表單()
    p = ThisWorkbook.Path
    Filename = "b.xlsm"
    Dim w As Workbook, c As Boolean
    For Each w In Workbooks
    If LCase(w.Name) = Filename Then c = True: Exit For
    Next
    If Not c Then Workbooks.Open Filename:=p & "\" & Filename
    Workbooks(Filename).UserForm1.Show
End Sub

GBKEE

回復 1# minshing
Private Sub Ex()   'b檔 建一私用巨集
     UserForm1.Show
End Sub
Run "b檔!ThisWorkbook.Ex"                 'b檔的巨集 如在物件模組(如是  ThisWorkbook )

Run "b檔!Ex"                                                'b檔的巨集 如在一般模組(Module1 )

minshing

可以了!!
非常感謝大大解答!!感恩喔!!