- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 142
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2026-7-16
                
|
回復 9# maiko
InitialFileName是可以用來指定對話視窗中的預備目錄
若未指定InitialFileName則會以選項中的預設存檔目錄作為對話視窗預設目錄
而SelectedItems才是所選擇的資料夾
所以,妳要寫入的應該是 SelectedItems而不是InitialFileName
這樣SelectedItems不管是2003或2007都是不含最後的斜線- Sub OpenPath()
- Dim fd As FileDialog, FileName As String, FileFolder As String
- Set fd = Application.FileDialog(msoFileDialogFolderPicker)
- With fd
- .InitialFileName = "E:\" '指定對話視窗的目錄
- .AllowMultiSelect = False
- If .Show = -1 Then
- FileFolder = .SelectedItems(1) '選擇的資料夾
- Else
- End
- End If
- End With
- [F2] = FileFolder
- End Sub
複製代碼
|
|