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! 代碼

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 147
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-6-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

11^#

發表於 2012-10-9 20:53 | 只看該作者

回復 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

複製代碼

學海無涯_不恥下問

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

10^#

發表於 2012-10-9 19:27 | 只看該作者

回復 5# maiko
Hi , 我家是win7+Excel2010 ,

我又試了一遍 , 確實 .InitialFileName 也會隨使用者操作後改變路徑 , 只是當初沒想到還能這樣做為回傳結果 , 但如果沒特殊需求我還是會用 .SelectedItems取回結果啦 , 少個斜線就用笨方法 & "\" 自己加上去:L

然後win7+Excel2010下 , 使用 .InitialFileName也跟你一樣少一層 , 但跟Application.DefaultFilePath不一致 , 反而是跟curDir一致 , 供您參考

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

9^#

發表於 2012-10-9 19:13 | 只看該作者

補上在Win7 + Excel 2007的 FileDialog 介面

這是WinXP + Excel 2007 的 FileDialog 介面

問題會不會出在兩個介面所得的路徑不同，可能已經不是用InitialFileName，也不是用SelectedItems(1)所能取得的路徑了，是不是還有其它的方法取得這樣的路徑呢？謝謝！

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

8^#

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

回復 maiko
1#問說: 2003 d:\SaveExcel\20121009 可是在2007時拿到的路徑是：d:\SaveExcel\
我的回覆 ...
GBKEE 發表於 2012-10-9 17:16

你誤會了我的意思了，我並不是要「預設檔案位置」或者要改變「預設檔案位置」，我是想通過選擇檔案路徑然後給出完整的路徑字串，如：d:\SaveExcel\20121009\，這樣的字串，而我在2003時，使用InitialFileName是可以完整的取得檔案路徑：d:\SaveExcel\20121009\，而在2007時，使用InitialFileName就只能取得：d:\SaveExcel\，就是差了一層路徑。

而我用stillfish00大提供的取得的檔案路徑卻是：d:\SaveExcel\20101009，後面少了「\」這個，正是這樣的困擾才問這裡的高手看看有什麼方法解決完整路徑字串的問題，謝謝！

請用代碼在Excel上試試。謝謝！

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

7^#

發表於 2012-10-9 17:16 | 只看該作者

回復 5# maiko
1#問說:  2003  d:\SaveExcel\20121009 可是在2007時拿到的路徑是：d:\SaveExcel\
我的回覆是指出可能是 Application.DefaultFilePath 2003,2007 的「預設檔案位置」路徑不同
你問 :     InitialFileName只是開啟Dialog時一開始的位置就是「預設檔案位置」
            所以在開啟Dialog時已經改變了檔案位置，所以按了確定以後所得到的路徑已經不是「預設檔案位置」的路徑。是對的

Sub Ex()
Application.DefaultFilePath = "D:\TEST"
'可修改「預設檔案位置」
End Sub

複製代碼

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

6^#

發表於 2012-10-9 16:49 | 只看該作者

請各位高手用代碼試試看，哪裡出錯了？有什麼地方要改進？謝謝！

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

5^#

發表於 2012-10-9 16:09 | 只看該作者

回復 maiko
2# 說 InitialFileName只是你開啟Dialog時一開始的位置
預設如圖
GBKEE 發表於 2012-10-9 15:33

1. 你的意思是不是說在選項中的「預設檔案位置」沒有「\」，那麼取得的路徑最後面就沒有「\」？

2. 還是說InitialFileName只是開啟Dialog時一開始的位置就是「預設檔案位置」？

如果是1.的話，那麼我在WinXP + Excel 2007，用InitialFileName就可以得到完整的路徑，如：d:\SaveExcel\20121009\
如果是2.的話，因為在開啟Dialog時已經改變了檔案位置，所以按了確定以後所得到的路徑已經不是「預設檔案位置」的路徑。

忽然，我得到了一個好像跟Windows有關的問題，就是：
用Win7 + Excel 2007的話，用.InitialFileName取到的路徑就會少一層；
用WinXP + Excel 2007的話，用.InitialFileName取到的路徑就很完整。
當然Excel 2003在哪個Windows都沒有問題。

不知道這個是不是Windows本身的FileDialog介面不同所得到的路徑不同？
這個是WinXP + Excel 2007擷取的FileDialog介面：

Win7 + Excel 2007暫時擷取不到，等下再補上。

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

4^#

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

回復 1# maiko
2# 說 InitialFileName只是你開啟Dialog時一開始的位置
預設如圖

Option Explicit
Sub Ex() ' 2003, 2007 分別執行看看有無差別
MsgBox Application.DefaultFilePath
End Sub

複製代碼