Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Carvediem am April 08, 2012, 01:06:26 Vormittag

Titel: Select Case zum Abbruch eines Datei-Imports
Beitrag von: Carvediem am April 08, 2012, 01:06:26 Vormittag
Hallo VBAer,

ich bin mal wieder an der Grenzen meiner ohnehin begrenzten Möglichkeiten. Ich möchte einen Programmablauf zum Dateimport bei [Abbrechen] zum Ende des Subs führen, kriege das aber nicht hin. Hier der Code:

Code: Text
  1.  ...
  2. If MsgBox("- Sind die Wegpunkte in der DAV-Karte durchlaufend nummeriert?" _
  3.     & vbLf & vbLf _
  4.     & "- Ist die Wegpunktbezeichnung im Format 01, 02, ..., 10, 11, ...?" _
  5.     & vbLf & vbLf _
  6.     & "- Ist der Ausgangspunkt als Wegpunkt 01 bezeichnet?" _
  7.     & vbLf & vbLf _
  8.     & "Das Format für die DAV-Wegpunktdatei ist [waypoints_Name.gpx]", _
  9.     vbYesNo) = vbYes Then
  10.  
  11. strPath = Application.GetOpenFilename
  12. ActiveWorkbook.XmlMaps("gpx_Zuordnung").import URL:=strPath
  13.    
  14. Select Case 'hier fehlt mir der Eintrag
  15.         Case False
  16.             Exit Sub
  17.         Case Else
  18. ...
  19.  

Der Dateiimport funktioniert einwandfrei. Wenn ich aber bei der Dateiauswahl auf [Abbrechen] gehe, bricht VBA ab. Mit dem Select Case Befehl will ich eine Verzweigung einrichten, damit hierzu das Ende des Subs herbeigeführt wird. Was muss ich hinter "Select Case ..." schreiben?

Vielleicht kann mir ja hier jemand helfen. Vielen Dank im Voraus,
Carvediem
Titel: Antw: Select Case zum Abbruch eines Datei-Imports
Beitrag von: Ricco am April 08, 2012, 09:47:24 Vormittag
Hallo Carvediem,

Du solltest Dein Fehlerhandling generell überarbeiten, - nicht nur an dieser Stelle.
Z. B. so:

---------------------------------------------------------------------------------------------------------

    Dim sMsg As String, retval As Long, sPath As String
   
    sMsg = "- Sind die Wegpunkte in der DAV-Karte durchlaufend nummeriert?" _
            & vbCr _
            & "- Ist die Wegpunktbezeichnung im Format 01, 02, ..., 10, 11, ...?" _
            & vbCr _
            & "- Ist der Ausgangspunkt als Wegpunkt 01 bezeichnet?" _
            & vbCr & vbCr _
            & "Das Format für die DAV-Wegpunktdatei ist [waypoints_Name.gpx]"
       
    'MsgBox gibt eine Zahl aus der Aufzählung VbMsgBoxResult zurück:
    retval = MsgBox(sMsg, vbYesNo, "Title of MsgBox")
   
    If retval = vbYes Then
   
        sPath = Application.GetOpenFilename
       
        If sPath = "Falsch" Then
       
            'Was zu tun ist, wenn kein Pfad ausgewählt wurde...
           
        Else
       
            'Die Import-Funktion gibt eine Zahl aus der Aufzählung XlXmlImportResult zurück:
            retval = ActiveWorkbook.XmlMaps("gpx_Zuordnung").Import(sPath)
           
            Select Case retval
                Case xlXmlImportSuccess
                    'Der Import war erfolgreich...
                Case xlXmlImportValidationFailed
                    'Der Import wurde zwar durchgeführt, aber bei der Schemavalidierung
                    'für die importierten Daten trat ein Fehler auf...
                Case xlXmlImportElementsTruncated
                    'Der Import konnte nur teilweise durchführt werden, da die XML-Datendatei
                    'zu groß für das Arbeitsblatt ist....
            End Select
           
        End If
       
    Else 'retval=vbNo
   
        'Was zu tun ist, wenn die Abfrage mit Nein beantwortet wird...
       
    End If
           
---------------------------------------------------------------------------------------------------------

MfG,
Ricco.
Titel: Antw: Select Case zum Abbruch eines Datei-Imports
Beitrag von: Carvediem am April 08, 2012, 11:08:11 Vormittag
Hallo Ricco,

hab vielen Dank für die Mühe, die du für mich auf dich genommen hast. Funktioniert perfekt, wie ich es wollte. Nun muss ich mich nochmal ganz sorgfältig mit deinem Code auseinandersetzen, um hinzuzulernen.

Liebe Grüße und frohe Ostern,
Carvediem
Titel: Office 2007: Antw: Select Case zum Abbruch eines Datei-Imports
Beitrag von: Ricco am April 08, 2012, 11:10:54 Vormittag
Freut mich, dass ich Dir helfen konnte.

Ricco.