Len(CType(wks.Cells(3, 1), Excel.Range).Value) -> CType(wks.Cells(3, 1), Excel.Range).Value.lenght
führt zu:
Option Strict ON Late Binding error
habe ich nun so gelöst:
Die alternative Laderoutine von ROD (Post #10 in diesem thread) habe ich teilweise integriert, angeapsst und verändert
Sie löste das Late binding zwar nicht, ich finde Sie aber eleganter und sicherer als meinen Ansatz.
Vielen Dank dafür.
Eine Zeile der Laderoutine von ROD habe ich aber nicht übernommen.
führt bei mir zu einem Absturz:
HRESULT: 0x800A03EC
Die zu ladende Tabelle ist aber weder eine .xls mit Überlänge noch läuft eine andere Excel Anwedung im Taskmanager.
Vielleicht ist irgendwo in der Tabelle etwas drin, was nicht korrekt formatiert und somit falsch interpretiert wird.
Ich habe meine Laderoutinenzeile die ohne Fehler läuft erstmal drin gelassen.
So sieht das nun aus:
VB.NET-Quellcode
- 'Excel-> einlesen
- If System.IO.File.Exists(strFilename) Then
- If FileInUse(strFilename) = False Then
- Try
- 'Variablen für Excel-Ansteuerung
- Dim xlApp As New Excel.Application
- Dim xlWorkbooks As Excel.Workbooks = xlApp.Workbooks
- Dim xlWorkbook As Workbook = xlWorkbooks.Add()
- With xlApp
- 'Datei öffnen und Daten einlesn
- xlWorkbook = .Workbooks.Open(strFilename)
- ...
Mich würde aber interessieren ob jemand zu dem Fehlercode oben noch eine weitere Idee hat ?
Dieser Beitrag wurde bereits 7 mal editiert, zuletzt von „Mabbi“ ()