Vraag : De routine van het de behandelingseinde van de fout op fout

Ik laat de gebruiker selecteer een dossier van Excel om een spreadsheet in een lijst met de volgende code in te voeren: 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

Private SubCommand1_Click ()
    Op Fout GoTo Error_Handler
    Schemerige fdg als FileDialog, vrtSelectedItem als Variant
    Schemerige strSelectedFile als Koord
    
    Reeks fdg = Application.FileDialog (msoFileDialogFilePicker)
    
    Met fdg
        .AllowMultiSelect = Vals
        .InitialView = msoFileDialogViewDetails
        Als. Toon = -1 toen
            Voor Elke vrtSelectedItem in .SelectedItems
            strSelectedFile = vrtSelectedItem
        Volgende vrtSelectedItem
        Anders
        Eind als
        Schemerige StrSQL als Koord
        StrSQL = „Schrapping * van Schroot; “
        DoCmd.SetWarnings Vals
        DoCmd.RunSQL StrSQL
        DoCmd.SetWarnings Waar
        DoCmd.TransferSpreadsheet acImport, Vals Ware acSpreadsheetTypeExcel12, „Schroot“, strSelectedFile,
        

        
        Eind met
        Vastgestelde f-d = niets
Exit_Procedure:
     Sub van de uitgang
   
        
Error_Handler:
DisplayUnexpectedError Err.Number, Err.Description
        
Sub van het eind



And de fout behandelingscode: 
1:
2:
3:
4:
5:
6:

Public SubDisplayUnexpectedError (ErrorNumber als Koord, ErrorDescription als Koord)
Selecteer Geval Err.Number
       Geval 2522
          MsgBox „u selecteerde geen dossier van Excel“
       Uitgezocht eind
Sub van het eind


If die zij annuleer in het venster hebben gekozen FileDialog niets ingevoerd wordt en de lijst leeg verlaten=wordt=. Ik krijg het berichtvakje dat ik wil, maar de code zet en voert niets in de lijst voort in. Hoe ga ik de code weg als de fout voorkomt? Ik ben nieuw en nog nieuwer aan VBA aan fout behandeling. Dank voor om het even welke hulp u kan me op this. geven

Antwoord : De routine van het de behandelingseinde van de fout op fout

probeer dit


Als len ((strSelectedFile) versiering & "") >0 toen
   De Spreadsheet van de invoer
Anders
   msgbox
Eind als
Andere oplossingen  
 
programming4us programming4us