返回列表 上一主題 發帖

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

jimmyhk

帖子
107 
主題
8 
精華
0 
積分
127 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-8-29 
最後登錄
2023-11-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-8-31 02:31 | 只看該作者

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

FileDialog, 資料夾, 儲存
本帖最後由 jimmyhk 於 2011-9-14 19:17 編輯

我建立了一個表單, 當按了 CommandButton2 之後就會開一個瀏覽資料夾的物件,
用作選擇資料夾, 及後把選擇了的資料夾路徑存放到 Data_Field 的 D24 內,
內容如下:

Private Sub CommandButton2_Click()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    If fd.Show = -1 Then MsgBox "現在將儲存到 " & fd.SelectedItems(1) & "/  .  請按確定繼續"

Sheets("Data_Field").Select
Range("D24").Value = fd.SelectedItems(1)  '如果使用者在 FileDialog 開啟時沒有按確定, 按了取消鍵, 就會停在這裡.   應怎麼辦?
Unload ChoiceSaveLocation
End Sub
收藏 分享

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2011-8-31 13:52 | 只看該作者
回復 1# jimmyhk
試試看
  1. Private Sub CommandButton2_Click()
  2.     Dim fd As FileDialog
  3.     Set fd = Application.FileDialog(msoFileDialogFolderPicker)
  4.     If fd.Show = -1 Then
  5.        If MsgBox("現在將儲存到 " & fd.SelectedItems(1) & "/  .  請按確定繼續", vbYesNo) = vbYes Then
  6.             Sheets("Data_Field").Select
  7.             Range("D24").Value = fd.SelectedItems(1)  
  8.             Unload ChoiceSaveLocation
  9.         End If
  10.     End If
  11. End Sub
複製代碼

TOP

jimmyhk

帖子
107 
主題
8 
精華
0 
積分
127 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-8-29 
最後登錄
2023-11-17 
3#
發表於 2011-9-1 23:49 | 只看該作者
哦~~~  於裡面再加一個 if case...  um.....  好
試一下先~

TOP

jimmyhk

帖子
107 
主題
8 
精華
0 
積分
127 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-8-29 
最後登錄
2023-11-17 
4#
發表於 2011-9-14 19:15 | 只看該作者
回復 2# GBKEE

最後我轉了另一個方法處理,
不知這個好不好~
  1. Private Sub CommandButton2_Click()
  2.     Dim fd As FileDialog
  3.     Set fd = Application.FileDialog(msoFileDialogFolderPicker)
  4.     fd.InitialFileName = "d:\"  '如果用家按取消就會執行 RunAgain
  5. On Error GoTo RunAgain
  6.     If fd.Show = -1 Then MsgBox "檔案將儲存到 " & fd.SelectedItems(1) & "\  , 請按確定繼續."

  8. RunAgain:
  9. Select Case Err.Number
  10. Case 5
  11. Unload ChoiceSaveLocation
  12. ChoiceSaveLocation.Show
  13. End Select

  15. Sheets("Data_Field").Select
  16. Range("D24").Value = fd.SelectedItems(1)

  18. If Range("D24") <> Range("G24") Then
  19.     AskChangeDefaultBox.Show
  20.     Else
  21.     Sheets("Input").Select
  22.     Unload ChoiceSaveLocation
  23. End If
  24. Unload ChoiceSaveLocation
  25. End Sub
複製代碼

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2011-9-14 19:46 | 只看該作者
回復 4# jimmyhk
使用 On Error GoTo RunAgain   在這程序中一有 錯誤 就會導引到 RunAgain  要小心使用
  1. Private Sub CommandButton2_Click()
  2.     Dim fd As FileDialog
  3.     Set fd = Application.FileDialog(msoFileDialogFolderPicker)
  4.     fd.InitialFileName = "d:\"  '如果用家按取消就會執行 RunAgain
  5. On Error GoTo RunAgain
  6.     If fd.Show = -1 Then MsgBox "檔案將儲存到 " & fd.SelectedItems(1) & "\  , 請按確定繼續."
  7.               '**************這MsgBox 有按沒按都沒作用?????**********
  8. Sheets("Data_Field").Select
  9. Range("D24").Value = fd.SelectedItems(1)
  10. If Range("D24") <> Range("G24") Then
  11.     AskChangeDefaultBox.Show
  12.     Else
  13.     Sheets("Input").Select
  14.     Unload ChoiceSaveLocation
  15. End If
  16. Unload ChoiceSaveLocation
  17. Exit Sub
  18. '''''''一般處裡錯誤都會置於程序底部   '''''''
  19. RunAgain:
  20. Select Case Err.Number
  21. Case 5
  22. Unload ChoiceSaveLocation
  23. ChoiceSaveLocation.Show
  24. End Select
  25. Resume          '返回產生錯誤的程式碼
  26. End Sub
複製代碼

TOP

jimmyhk

帖子
107 
主題
8 
精華
0 
積分
127 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-8-29 
最後登錄
2023-11-17 
6#
發表於 2011-9-14 19:54 | 只看該作者
回復 5# GBKEE
  1. Private Sub CommandButton2_Click()
  2.     Dim fd As FileDialog
  3.     Set fd = Application.FileDialog(msoFileDialogFolderPicker)
  4.     fd.InitialFileName = "d:\"  '如果用家按取消就會執行 RunAgain
  5. On Error GoTo RunAgain
  6.     If fd.Show = -1 Then MsgBox "檔案將儲存到 " & fd.SelectedItems(1) & "\  , 請按確定繼續."
  7.               '**************這MsgBox 有按沒按都沒作用?????**********  <這是沒有用的, 只是作一個小提醒
  8. Sheets("Data_Field").Select
  9. Range("D24").Value = fd.SelectedItems(1)
  10. If Range("D24") <> Range("G24") Then
  11.     AskChangeDefaultBox.Show
  12.     Else
  13.     Sheets("Input").Select
  14.     Unload ChoiceSaveLocation
  15. End If
  16. Unload ChoiceSaveLocation
  17. Exit Sub
  18. '''''''一般處裡錯誤都會置於程序底部   ''''''' <- 明白
  19. RunAgain:
  20. Select Case Err.Number
  21. Case 5 '  **我就是怕會有其他錯誤, 所以決定只有 Case 5 才執行重選.  
  22. Unload ChoiceSaveLocation
  23. ChoiceSaveLocation.Show
  24. End Select
  25. Resume          '返回產生錯誤的程式碼 <- 在這加這一句的原因是 ?  因為現在如果使用者在按取消後已會自動重新行一次 Unload ChoiceSaveLocation 和 ChoiceSaveLoction.show, 加入的目的是?
  26. End Sub
複製代碼

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2011-9-14 20:13 | 只看該作者
本帖最後由 GBKEE 於 2011-9-14 20:14 編輯

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

TOP

jimmyhk

帖子
107 
主題
8 
精華
0 
積分
127 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-8-29 
最後登錄
2023-11-17 
8#
發表於 2011-9-14 20:37 | 只看該作者
回復 7# GBKEE


消失是有關錯誤已解決還是給錯誤訊息彈出後可以繼續執行其他步驟?

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2011-9-15 06:45 | 只看該作者
回復 8# jimmyhk
Resume
一般都是錯誤已處裡完後, 那個錯誤已消失了.可回去原來的那一行繼續程式碼的運行.

TOP

jimmyhk

帖子
107 
主題
8 
精華
0 
積分
127 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-8-29 
最後登錄
2023-11-17 
10#
發表於 2011-9-15 06:54 | 只看該作者
回復 9# GBKEE


哦~  明白~  thx~~~

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題