返回列表 上一主題 發帖

[發問] ChDrive/ ChDir問題

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2016-12-19 20:14 | 顯示全部帖子
回復 1# acdx
ChDrive : 改變工作磁碟機
ChDir : 改變工作目錄
依題目的意思是希望 GetOpenFilename 選擇檔案時的預設路徑為該檔路徑，
但當檔案在分享資料夾(路經通常為 "\\電腦名稱\資料夾路徑\檔案")
無法用ChDir切換工作目錄到 "\\電腦名稱\資料夾路徑\"

替代方法，這邊舉兩種 :
1. 改用 Application.FileDialog(msoFileDialogOpen)，FileDialog可以直接設定InitialFileName
  1. Sub m1()
  2.     Dim filename As String
  3.     With Application.FileDialog(msoFileDialogOpen)
  4.         .AllowMultiSelect = False
  5.         .InitialFileName = ActiveWorkbook.Path
  6.         .Filters.Clear
  7.         .Filters.Add "Excel files", "*.xlsx;*.xls"
  8.         .Show

  10.         If .SelectedItems.Count = 0 Then Exit Sub   'cancel
  11.         filename = .SelectedItems(1)
  12.     End With
  13.    
  14.     MsgBox filename
  15. End Sub
複製代碼
2. 用 windows API : SetCurrentDirectory切換工作目錄，再用 GetOpenFilename
  1. Private Declare Function SetCurrentDirectory Lib "kernel32" _
  2. Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long

  4. Sub m2()
  5.     Dim filt As String, filename As String
  6.     SetCurrentDirectory ActiveWorkbook.Path
  7.     filt = "excel files (*.xls;*.xlsx),*.xls;*.xlsx"
  8.     filename = Application.GetOpenFilename(FileFilter:=filt, FilterIndex:=5, Title:="選擇檔案", MultiSelect:=True)
  9. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題