Moin!
ich habe nochmal eine Frage für vb.net in Verbindung mit Excel. Der ursprüngliche Code kommt wieder aus dem Macrorecorder.
Die Funktion steigt über das try-catch aus mit der Fehlermeldung:
Kann mir einer weiterhelfen ?
Gruß Jan
ich habe nochmal eine Frage für vb.net in Verbindung mit Excel. Der ursprüngliche Code kommt wieder aus dem Macrorecorder.
Visual Basic-Quellcode
- Dim xls_Appl As Excel.Application
- Dim xls_Mappe As Excel.Workbook ' Excel Arbeitsmappe
- Dim xls_Blatt As Excel.Worksheet ' Excel Blatt ( Tabelle)
- xls_Appl = CType(CreateObject("Excel.Application"), Excel.Application)
- xls_Appl.Visible = False
- xls_Mappe = xls_Appl.Workbooks.Add 'Hier kommt kein gültiges Objekt zurück
- 'xls_Mappe = xls_Appl.Workbooks.Open(FullPathStundenZettel) 'Hier kommt kein gültiges Objekt zurück
- xls_Blatt = CType(xls_Mappe.Worksheets(1), Excel.Worksheet)
- '...
- _XLS_Write.SetAutoFilter(xls_Blatt)
- ' ....
- public Function SetAutoFilter(ByRef sheet As Excel.Worksheet, Optional ByVal FilterRow As Integer = 1) As Short
- If FilterRow < 1 Then Return -1
- Try
- sheet.Range(FilterRow.ToString & ":" & FilterRow.ToString).AutoFilter()
- Catch ex As Exception
- _TryReport.Show("unerwarteter Fehler in EBL.Service > cls_ExcelWrite > SetAutoFilter", ex.ToString)
- Return 0
- End Try
- Return 1
- End Function
Die Funktion steigt über das try-catch aus mit der Fehlermeldung:
System.Runtime.InteropServices.COMException
(0x800A03EC): Die AutoFilter-Methode des Range-Objektes konnte nicht ausgeführt
werden.
bei
System.RuntimeType.ForwardCallToInvokeMember(String memberName, BindingFlags
flags, Object target, Int32[] aWrapperTypes, MessageData& msgData)
bei
Microsoft.Office.Interop.Excel.Range.AutoFilter(Object Field, Object Criteria1,
XlAutoFilterOperator Operator, Object Criteria2, Object VisibleDropDown)
bei
EBL.Service.ExcelWrite.SetAutoFilter(Worksheet& sheet, Int32 FilterRow) in
C:\VSProjects\2015\EBL.Service\EBL.Service\cls_ExcelWrite.vb:Zeile 619.
Kann mir einer weiterhelfen ?
Gruß Jan