Exception Problem - Neuer Versuch
15.05.2013 11:34:58
Maximilian
Ich habe eine leere Excel Datei. In einem neuen Modul habe ich folgenden Code:
'Import von externen Excelmappen
Public wbExt As Workbook
Public sheetExt As Worksheet
Function sImport(F As String) As Boolean
MsgBox Err.Number ' = 0
Set wbExt = Workbooks.OpenXML(F)
MsgBox Err.Number ' = 9
Set sheetExt = wbExt.Worksheets(1)
sImport = Err.Number = 0
End Function
Sub Test()
MsgBox sImport("D:\Funktionen.xls") ' = Falsch
End Sub
Wenn ich die Methode "Test" ausführe, bekomme ich mit der ersten MsgBox die Err.Number 0, mit der zweiten die Err.Number 9, obwohl die Arbeitsmappe ordnungsgemäß geöffnet wurde.Warum bekomme ich eine Err.Number, wenn doch alles ordnungsgemäß geöffnet wurde? Auch der Debugger meldet sich nicht und lässt den Code auch ohne "On Error Resume Next" durchlaufen.
PS: Bei Excel 2003 ging alles ordnungsgemäß
Danke für Tipps.