請教使用userform命令紐設定連結檔案問題

chaoyiho

各位大大好 :
小弟是剛開始學vba的新手
這是小弟所寫的一段指令
Private Sub CommandButton1_Click()
Dim file As String
Set file = GetObject("G:\MTD\MSS\0000工作檔\123123.docx")
    file.Application.Visible = True
Set f = CreateObject("Scripting.FileSystemObject")
    If f.FileExists("G:\MTD\MSS\0000工作檔\123123.docx") = False Then MsgBox "文件不存在"
End Sub

這一段都一直被要求定義file 真的完全不知道要怎麼辦才有辦法使我的語法可以一按按鈕就連結開啟我要的檔案

還請各位前輩指導!!!!

luhpro

回復 1# chaoyiho

參考看看 :
excel vba 可否開啟 word檔???

請問如何使用VB開啟WORD檔,並讀取內容?

chaoyiho

:'(  感謝大哥~~~!!!!!   果然可以用了
可是 要是要讓USERFORM的按鈕連結到另一個USERFORM 這一條程式碼似乎就又不可行了..
難道是不同的開啟軟體不同 程式碼的寫入就會有所不同嗎?
這樣子我又該如何寫入呢?
常常都會有顯示未定義
求請前輩賜教~~~~!!!!回復 2# luhpro

clio

Dim file As String
Set file = GetObject("G:\MTD\MSS\0000工作檔\123123.docx")

file已經被設為String的資料型態，下一行一定無法執行
試試
Dim file As Object

chaoyiho

回復 4# clio


   感謝前輩  我現在身邊並無程式碼 禮拜三在回覆一次!!!