Exception Problem

Servus Jungs,
ich habe ein Problem, hinter das ich absolut nicht steige. Folgende Funktion mit Methode, die diese Funktion ausführt:

Function sImport(F As String) As Boolean
'On Error Resume Next
report_this "Importiere Daten von: " & F & "..."
Set wbExt = Workbooks.OpenXML(F)
ThisWorkbook.Activate
'HIER KOMMT IMMER EIN FEHLER... ICH WEISS NICHT WARUM
'Err.Clear
Set sheetExt = wbExt.Worksheets(1)
sImport = Err.Number = 0
report_confirm sImport
End Function
Sub Test()
Err.Clear
sImport ("D:\sapLISEK_3M.xls")
MsgBox Err.Description
End Sub

Wie man sieht, ist "On Error Resume Next" deaktiviert. Es sollte also der Debugger starten, wenn ein Fehler kommt.
Wenn ich "Test" ausführe, wird wie gewollt die sapLISEK_3M.xls gestartet. Es kommt keine Debuggermeldung. Allerdings wirft der Befehl: MsgBox Err.Description folgende Fehlermeldung:
"Index außerhalb des gültigen Bereichs."
Seit ich das neue Office habe, tritt dieser Fehler auf. Vorher konnte ich die Funktion sImport ohne Probleme benutzen. Ich habe auch schon statt "OpenXML" einfach nur "Open" versucht. Daran liegt es jedoch nicht.
hat irgendjemand eine Idee?!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public wbExt As Variant Public sheetExt As Worksheet Function sImport(F As String) As Boolean Set wbExt = Workbooks.OpenXML(F) ThisWorkbook.Activate Set sheetExt = wbExt.Worksheets(1) sImport = Err.Number = 0 End Function Sub Test() sImport ("D:\sapLISEK_3M.xls") MsgBox Err.Description 'zeigt einen Fehler an. Warum? sapLISEK_3M.xls wird _ ordnungsgemäß geladen & die Variablen sind ordnungsgemäß belegt. End Sub

…Maximilian?
Ich schreibe am Anfang des Pgms On Error GoTo fmarke (fmarke →beliebige Sprungmarke zur Zeile der F-Behandlung) und am Ende des Pgms (bzw hier der Fkt oder meinethalben der TestProz) eine Fehlerbehandlung, zB so: fmarke: If CBool(Err.Number) Then … End If
Darin kannst du dann auch deine MsgBox unterbringen.
Übrigens, wenn der Wert von sImport = True ist, was du ja im gezeigten Code gar nicht benutzt hast, hat es auch keinen Fehler gegeben, was du ja bestätigst, denn die Aktion hat ja wohl geklappt.
Dein Verständnisproblem mag darauf basieren, dass du evtl noch nicht mitbekommen hast, dass die neueren XlVersionen empfindlicher auf VBA-Code-Ungereimtheiten reagieren als die alten. Deshalb ist es wohl bisher gut gegangen.
Luc :-?

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread