返回列表 上一主題 發帖

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

chaoyiho

帖子
51 
主題
9 
精華
0 
積分
65 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
20 
註冊時間
2016-3-30 
最後登錄
2016-7-21 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2016-3-30 14:51 | 只看該作者

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

各位大大好 :
小弟是剛開始學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 真的完全不知道要怎麼辦才有辦法使我的語法可以一按按鈕就連結開啟我要的檔案

還請各位前輩指導!!!!
收藏 分享

chaoyiho

帖子
51 
主題
9 
精華
0 
積分
65 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
20 
註冊時間
2016-3-30 
最後登錄
2016-7-21 
5#
發表於 2016-4-3 11:55 | 只看該作者
回復 4# clio


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

TOP

clio

帖子
132 
主題
31 
精華
0 
積分
167 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-4-14 
最後登錄
2024-2-28 

2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章
4#
發表於 2016-3-31 09:48 | 只看該作者
Dim file As String
Set file = GetObject("G:\MTD\MSS\0000工作檔\123123.docx")

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

TOP

chaoyiho

帖子
51 
主題
9 
精華
0 
積分
65 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
20 
註冊時間
2016-3-30 
最後登錄
2016-7-21 
3#
發表於 2016-3-31 08:41 | 只看該作者
:'(  感謝大哥~~~!!!!!   果然可以用了
可是 要是要讓USERFORM的按鈕連結到另一個USERFORM 這一條程式碼似乎就又不可行了..
難道是不同的開啟軟體不同 程式碼的寫入就會有所不同嗎?
這樣子我又該如何寫入呢?
常常都會有顯示未定義
求請前輩賜教~~~~!!!!回復 2# luhpro

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2016-3-30 22:46 | 只看該作者
本帖最後由 luhpro 於 2016-3-30 22:50 編輯

回復 1# chaoyiho

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

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

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題