返回列表 上一主題 發帖

GetOpenFilename 指定網路芳鄰路徑

t591nm

帖子
51 
主題
9 
精華
0 
積分
73 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2015-7-28 
最後登錄
2015-12-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-11-13 11:23 | 只看該作者

GetOpenFilename 指定網路芳鄰路徑

ChDrive "D\"
ChDir "D:\test\123\"
fileToOpen = Dir(Application.GetOpenFilename("All Files(*.xls),*.xls"))
以上是預設好開啟舊檔時的路徑為D曹test資料夾底下的123資料夾
且可正確執行

那如果想將路徑改為網路芳鄰中的資料夾呢?
ex:Microsoft Windows Network中的Domain中的Woc底下的test資料夾
我寫成這樣
ChDrive "Domain\\"
ChDir "Woc\test"
fileToOpen = Dir(Application.GetOpenFilename("All Files(*.xls),*.xls"))

可是ChDir "Woc\test"這行卻因找不到路徑而錯誤

有試著用檔案總管開啟Domain
但卻出現無法存取Domain,找不到網路路徑
但是我卻可以開啟Woc底下的東西
請問該如何修改呢
謝謝
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2015-11-13 15:28 | 只看該作者
回復 1# t591nm
因為前一句的 ChDrive 是切換硬碟，你給它網路上的電腦，無法切換過去
三種替代方案:
1. 手動建立連線磁碟機 如 Z: 對應到 \\Domain\Woc\test
    然後改成ChDrive "Z:"
    再GetOpenFilename

2. 改用 Application.FileDialog(msoFileDialogOpen)
    設定其 InitialFileName 為 "\\Domain\Woc\test"

3. 用 API
    Private Declare Function SetCurrentDirectory Lib "kernel32" _
    Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long
    呼叫
    SetCurrentDirectory "\\Domain\Woc\test"
    再GetOpenFilename
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

t591nm

帖子
51 
主題
9 
精華
0 
積分
73 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2015-7-28 
最後登錄
2015-12-17 
3#
發表於 2015-11-13 17:15 | 只看該作者
回復 2# stillfish00


我嘗試用第2種
但還是不行
路徑依然沒變(還是在系統預設路徑)
因為我下面還有牽扯到須要將該筆檔案複製到另一工作表

如果用第1種
但卻不知道該怎麼建立連線磁碟機

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
4#
發表於 2015-11-13 18:00 | 只看該作者
回復 3# t591nm
我試過可以，檢查你路徑是不是填錯或寫法寫錯吧
共用資料夾路徑都是  \\電腦名稱\資料夾名稱
你的"Domian"是網路芳鄰的電腦嗎.....???

"連線磁碟機" google 一下，第一項就有了....
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

t591nm

帖子
51 
主題
9 
精華
0 
積分
73 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2015-7-28 
最後登錄
2015-12-17 
5#
發表於 2015-11-16 13:35 | 只看該作者
回復 4# stillfish00


謝謝回覆
我知道問題出在哪了
是在於搞錯了電腦名稱
其實Woc才是電腦名稱

另外關於網路磁碟機
因為電腦屬於XP
也沒接觸過這區塊
所以才會不知道怎麼連結

感謝大大回覆

TOP

        靜思自在 : 人事的艱難與琢磨，就是一種考驗。
返回列表 上一主題