返回列表 上一主題 發帖

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

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

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

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

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

TOP

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

TOP

        靜思自在 : 有心就有福,有願就有力,自造福田,自得福緣。
返回列表 上一主題