- 帖子
- 5
- 主題
- 1
- 精華
- 0
- 積分
- 11
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2007
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-7-17
- 最後登錄
- 2013-12-1
|
本帖最後由 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 |
|
發表於 2011-7-17 10:34
| 
發表於 2011-7-17 13:47
| 