使用 FileDialog 問題 [已解決] - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 使用 FileDialog 問題 [已解決]

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

[發問] 使用 FileDialog 問題 [已解決]

超級版主 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兔年全勤獎章

1^# 跳轉到 »

發表於 2011-8-31 13:52 | 顯示全部帖子

回復 1# jimmyhk
試試看

Private Sub CommandButton2_Click()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show = -1 Then
If MsgBox("現在將儲存到 " & fd.SelectedItems(1) & "/ . 請按確定繼續", vbYesNo) = vbYes Then
Sheets("Data_Field").Select
Range("D24").Value = fd.SelectedItems(1)
Unload ChoiceSaveLocation
End If
End If
End Sub

複製代碼

超級版主 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兔年全勤獎章

2^#

發表於 2011-9-14 19:46 | 顯示全部帖子

回復 4# jimmyhk
使用 On Error GoTo RunAgain 在這程序中一有錯誤就會導引到 RunAgain 要小心使用

Private Sub CommandButton2_Click()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
fd.InitialFileName = "d:\" '如果用家按取消就會執行 RunAgain
On Error GoTo RunAgain
If fd.Show = -1 Then MsgBox "檔案將儲存到 " & fd.SelectedItems(1) & "\ , 請按確定繼續."
'**************這MsgBox 有按沒按都沒作用?????**********
Sheets("Data_Field").Select
Range("D24").Value = fd.SelectedItems(1)
If Range("D24") <> Range("G24") Then
AskChangeDefaultBox.Show
Else
Sheets("Input").Select
Unload ChoiceSaveLocation
End If
Unload ChoiceSaveLocation
Exit Sub
'''''''一般處裡錯誤都會置於程序底部 '''''''
RunAgain:
Select Case Err.Number
Case 5
Unload ChoiceSaveLocation
ChoiceSaveLocation.Show
End Select
Resume '返回產生錯誤的程式碼
End Sub

複製代碼

超級版主 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兔年全勤獎章

3^#

發表於 2011-9-14 20:13 | 顯示全部帖子

本帖最後由 GBKEE 於 2011-9-14 20:14 編輯

回復 6# jimmyhk
Resume 這加這一句的原因是
一般都是錯誤已處裡完後, 錯誤已消失了.可回去原來的那一行程式碼.

超級版主 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^#

發表於 2011-9-15 06:45 | 顯示全部帖子

回復 8# jimmyhk
Resume
一般都是錯誤已處裡完後, 那個錯誤已消失了.可回去原來的那一行繼續程式碼的運行.

靜思自在 : 小事不做、大事難成。

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