2003與2007得到的路徑差異 - Excel程式區

Happkkevin

　暱稱: Kevin

帖子: 56
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: Window7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2011-6-25
最後登錄: 2016-1-17

12^#

發表於 2012-10-9 23:14 | 只看該作者

進入這主題學到不少
搜尋學到，順便分享一下，較常用DefaultFilePath避免上述變化
有空試試，學習一下FileDialog搭配運用

自Excel XP(2002)起，Application多了一個FileDialog屬性。FileDialog 屬性傳回 FileDialog 物件，此物件代表檔案對話方塊的執行個體。

用法：
Application.FileDialog(fileDialogType)
fileDialogType 必選的 MsoFileDialogType。檔案對話方塊的類型。
MsoFileDialogType 可以是這些 MsoFileDialogType 常數之一。

msoFileDialogFilePicker 允許使用者選取檔案。
msoFileDialogFolderPicker 允許使用者選取資料夾。
msoFileDialogOpen 允許使用者開啟檔案。
msoFileDialogSaveAs 允許使用者儲存檔案。

FileDialog 物件提供檔案對話方塊功能，類似 Microsoft Office 應用程式中的標準 [開啟舊檔] 及 [儲存檔案] 對話方塊功能。運用這些對話方塊，整合方案的使用者可以很容易地指定該方案應使用的檔案及資料夾。

使用 FileDialog 物件
以 FileDialog 屬性傳回 FileDialog 物件。FileDialog 屬性位在每個單獨的 Office 應用程式 Application 物件中。屬性使用一個引數 DialogType，以確定屬性所傳回的 FileDialog 物件類型。下列是 FileDialog 物件的 4 種類型：

[開啟舊檔] 對話方塊：讓使用者選取一或多個檔案，可使用 Execute 方法在主應用程式中開啟。
[另存新檔] 對話方塊：讓使用者選取一個檔案，可使用 Execute 方法儲存目前的檔案。
[檔案選擇器] 對話方塊：讓使用者選取一或多個檔案。在 FileDialogSelectedItems 集合中擷取使用者所選取的檔案路徑。
[資料夾選擇器] 對話方塊：讓使用者選取路徑。在 FileDialogSelectedItems 集合中擷取使用者所選取的路徑。

每個主應用程式只能例示 FileDialog 物件的單個實例。因此，即使當建立多個 FileDialog 物件時，亦保留 FileDialog 物件的許多屬性。因此，請確認在顯示該對話方塊前，已設定適合您目的之所有屬性。

為了使用 FileDialog 物件顯示對話方塊，您必須使用 Show 方法。一旦顯示對話方塊，就會在使用者結束該對話方塊之後才執行程式碼。

100 字節以內
不支持自定義 Discuz! 代碼

Happkkevin

　暱稱: Kevin

帖子: 56
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: Window7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2011-6-25
最後登錄: 2016-1-17

13^#

發表於 2012-10-9 23:48 | 只看該作者

回報一下測試結果，供參考
Win7+OFFICE 2010
OpenPath4
使用後測試結果 d:\SaveExcel\20121009
但下次選取時為跳到目錄為 d:\SaveExcel

OpenPath5
使用後測試結果d:\SaveExcel\
一樣下次選取時為跳到目錄為 d:\SaveExcel

Sub OpenPath4()
Dim fd As FileDialog, FileName As String, FileFolder As String
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.AllowMultiSelect = False
If .Show = -1 Then
FileFolder = .SelectedItems(1) '#1
Else
End
End If
End With
[F2] = FileFolder '#2
End Sub

複製代碼

Sub OpenPath5()
Dim fd As FileDialog, FileName As String, FileFolder As String
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.AllowMultiSelect = False
If .Show = -1 Then
FileFolder = .InitialFileName
Else
End
End If
End With
[F2] = fd.InitialFileName
End Sub

複製代碼

100 字節以內
不支持自定義 Discuz! 代碼

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

14^#

發表於 2012-10-10 07:37 | 只看該作者

回復 8# maiko
而我用stillfish00大提供的取得的檔案路徑卻是：d:\SaveExcel\20101009，後面少了「\」
不一樣的 1# 是 Sheet1.Range("F2") = fd.InitialFileName
stillfish00 2# 是 Sheet1.Range("F2") = FileFolder

maiko

帖子: 95
主題: 28
精華: 0
積分: 127
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 20
註冊時間: 2011-3-8
最後登錄: 2024-4-1

15^#

發表於 2012-10-10 07:58 | 只看該作者

回復 maiko
而我用stillfish00大提供的取得的檔案路徑卻是：d:\SaveExcel\20101009，後面少了「\」 ...
GBKEE 發表於 2012-10-10 07:37

FileFolder = .InitialFileName
也就是：
FileFolder = fd.InitialFileName
對等公式。
試過了，結果一樣，唯有像 stillfish00 大說的一樣，在後面加上 & "\" ，那麼無論甚麼版本的Excel都可以用到，統一樣式，不會讓以後改了版本就用不到。

謝謝這麼多位高手的幫助，讓我更了解了FileDialog的屬性，謝謝！

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

16^#

發表於 2012-10-10 08:28 | 只看該作者

回復 15# maiko
很抱歉沒說清楚請再看 2# 的程式碼有 FileFolder = .SelectedItems(1)
stillfish00 2# 是 Sheet1.Range("F2") = FileFolder 是最後沒有 "\"

maiko

帖子: 95
主題: 28
精華: 0
積分: 127
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 20
註冊時間: 2011-3-8
最後登錄: 2024-4-1

17^#

發表於 2012-10-10 11:26 | 只看該作者

回復 maiko
很抱歉沒說清楚請再看 2# 的程式碼有 FileFolder = .SelectedItems(1)
stillfish00 2 ...
GBKEE 發表於 2012-10-10 08:28

那麼依你所見，是不是Sheet1.Range("F2") = FileFolder 最後是沒有「\」，那麼應該用什麼才會有「\」？不用後面自己加& "\"？

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

18^#

發表於 2012-10-10 12:42 | 只看該作者

回復 17# maiko

Option Explicit
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) '選擇的資料夾
[F2] = .SelectedItems(1) '最後沒"\"
[F3] = fd.InitialFileName '有"\"
Else
End
End If
End With
End Sub

複製代碼

maiko

帖子: 95
主題: 28
精華: 0
積分: 127
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 20
註冊時間: 2011-3-8
最後登錄: 2024-4-1

19^#

發表於 2012-10-10 15:14 | 只看該作者

回復 maiko
GBKEE 發表於 2012-10-10 12:42

謝謝大大的熱心幫忙，不過大大好像不明白我前面所講的要求：

InitialFileName如果用在2003上是完全可以取得完整的路徑，如：d:\SaveExcel\20121009\
可是InitialFileName如果用在2007上卻是得到的路徑會少了一層，如：d:\SaveExcel\，這也就是你說的後面有"\"，可是路徑不完整。

如果用SelectedItems(1)，那麼在2003或2007（因為我沒有2010，可是之前有大大在2010上試過）是可以取得到比較完整的路徑，如：d:\SaveExcel\20121009，後面就沒有"\"，就如stillfish00大說過的那樣，唯有自己加上& "\"，不知道這樣說明你能清楚嗎？

請試多幾次代碼的區別，謝謝大大的熱心幫忙！

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

20^#

發表於 2012-10-10 15:44 | 只看該作者

回復 19# maiko
可是InitialFileName如果用在2007上卻是得到的路徑會少了一層
我只有2003版所以這差異我無從參與的.