標題: [發問] 如何開啟另一excel檔的表單 [打印本頁]

---

作者: minshing    時間: 2011-7-17 10:34     標題: 如何開啟另一excel檔的表單

本帖最後由 minshing 於 2011-7-17 11:06 編輯

小弟剛學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    時間: 2011-7-17 13:47

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

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

---

作者: minshing    時間: 2011-7-17 14:28

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)