返回列表下一主題上一主題發帖

GetOpenFilename 指定網路芳鄰路徑

t591nm

中學生 Rank: 2

帖子: 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

大學生 Rank: 4

帖子: 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