返回列表 上一主題 發帖

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

minshing

帖子
5 
主題
1 
精華
0 
積分
11 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
10 
性別
男 
註冊時間
2011-7-17 
最後登錄
2013-12-1 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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
收藏 分享

minshing

帖子
5 
主題
1 
精華
0 
積分
11 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
10 
性別
男 
註冊時間
2011-7-17 
最後登錄
2013-12-1 
3#
發表於 2011-7-17 14:28 | 只看該作者
可以了!!
非常感謝大大解答!!感恩喔!!

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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 )

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題