Frage : Fehlerbehandlungendprogramm auf Störung

Ich lasse den Benutzer eine Excel-Akte vorwählen, um einen Verteilungsbogen in eine Tabelle mit dem folgenden Code zu importieren: 
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 VorCommand1_Click ()
    Auf Störung Goto- Error_Handler
    Schwaches fdg als FileDialog, vrtSelectedItem als Variante
    Schwaches strSelectedFile als Schnur
    
    Fdg = Application.FileDialog (msoFileDialogFilePicker) einstellen
    
    Mit fdg
        .AllowMultiSelect = falsch
        .InitialView = msoFileDialogViewDetails
        Wenn. Erscheinen = -1 dann
            Für jedes vrtSelectedItem in .SelectedItems
            strSelectedFile = vrtSelectedItem
        Folgendes vrtSelectedItem
        Sonst
        Beenden wenn
        StrSQL als Schnur verdunkeln
        StrSQL = „Löschung * vom Schrott; “
        DoCmd.SetWarnings falsch
        DoCmd.RunSQL StrSQL
        DoCmd.SetWarnings zutreffend
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, „Schrott“, strSelectedFile, zutreffend, falsch
        

        
        Ende mit
        Einstellen Flugleitanlage = nichts
Exit_Procedure:
     Unterseeboot herausnehmen
   
        
Error_Handler:
DisplayUnexpectedError Err.Number, Err.Description
        
Enden-Unterseeboot



And der Fehlerbehandlungcode: 
1:
2:
3:
4:
5:
6:

Public VorDisplayUnexpectedError (ErrorNumber als Schnur, ErrorDescription als Schnur)
Fall Err.Number vorwählen
       Rechtssache 2522
          MsgBox „Sie vorwählten nicht eine Excel-Akte“ n
       Ende auserwählt
Enden-Unterseeboot


If wählen sie Löschen im FileDialog Fenster, das nichts importiert erhält und die Tabelle gelassen leer. Ich erhalte den Mitteilungkasten, den ich wünsche, aber der Code fortsetzt tzt und importiert nichts in die Tabelle. Wie herausnehme ich den Code , wenn die Störung auftritt? Ich bin neu zu VBA und zur Fehlerbehandlung sogar neuer. Dank für jede mögliche Hilfe können Sie mich auf this. geben

Antwort : Fehlerbehandlungendprogramm auf Störung

dieses versuchen


Wenn (die Ordnung (strSelectedFile) u. "") >0 dann len
   Verteilungsbogen importieren
Sonst
   msgbox
Beenden wenn
Weitere Lösungen  
 
programming4us programming4us