Erstmal ein herzliches Hallo, habe mich eben im Forum angemeldet.

Leider finde ich zu dem Thema nur VBA Lösungen, irgendwas an meinem Code um die letzte Zeile mit Inhalt (bspw. in Spalte A) in einer Excel Tabelle zu finden klappt nicht.

Ich habe folgende Varianten ausprobiert:

Quellcode

1. xlsWSheetExtract.Cells(1, 1).SpecialCells(Excel.XlCellType.xlCellTypeLastCell, vbEmpty)
2. xlsWSheetExtract.Range("A1:A9999").SpecialCells(Excel.XlCellType.xlCellTypeLastCell, vbEmpty)

Beide mit dem Ergebnis:

COMException nicht behandelt:
Die SpecialCells-Eigenschaft des Range-Objektes kann nicht zugeordnet werden.

Hat jmd ne Idee was an dem Code falsch ist?

Vielen Dank im Voraus!

Grüße

Mach doch aus der unbehandelten Exception eine behandelte:

Das bringt mir leider nichts, denn der Code an sich ist fehlerhaft, sprich die Exception wird immer auftreten.

Irgendwas an meiner Zeile stimmt nicht.

Ist klar Dann fang doch mal an, kleine Brötchen zu backen.
Lass alles, was mit Excel zu tun hat, zunächst weg uind bring den Rest zum Laufen.
Dann sehen wir weiter.

Genau da bin ich.

Momentan hol ich mir die letzte Zeile via while, d.h.:

Quellcode

1. While (Not xlsWbookExtract.Worksheets(1).Cells(intTotalRowsExtract, 5).Value Is Nothing)
2. intTotalRowsExtract += 1
3. End While

Das dauert dann schonmal 15-20 Sekunden.

Der Rest meines Programms (Daten in einer Excel Datei finden und in andere kopieren) funktioniert dann dementsprechend gut, hab zwar noch ne zweite Frage, aber erstmal muss das geklärt werden.

Verwende bitte die Standardeinstellungen.
Und nicht "Code", sondern "VB".
Und was geht nun nicht?

RodFromGermany schrieb:

Verwende bitte die Standardeinstellungen.
Und nicht "Code", sondern "VB".

Sorry, mach ich.

Und was geht nun nicht?

ray schrieb:

[...] irgendwas an meinem Code um die letzte Zeile mit Inhalt (bspw. in Spalte A) in einer Excel Tabelle zu finden klappt nicht.

Ich habe folgende Varianten ausprobiert:

VB.NET-Quellcode

1. xlsWSheetExtract.Cells(1, 1).SpecialCells(Excel.XlCellType.xlCellTypeLastCell, vbEmpty)
2. xlsWSheetExtract.Range("A1:A9999").SpecialCells(Excel.XlCellType.xlCellTypeLastCell, vbEmpty)

Beide mit dem Ergebnis:

COMException nicht behandelt:
Die SpecialCells-Eigenschaft des Range-Objektes kann nicht zugeordnet werden.

Hat jmd ne Idee was an dem Code falsch ist?

Vielen Dank im Voraus!

Pflücke die Zeile auseinander.
Erzeuge Dir eine richtig deklarierte Variable

und sieh sie Dir an.
Dann greif so zu:

Danke für den Tipp, das hatte ich vorher leider auch kurz probiert, jetzt gerade nochmal:


Compiler: COMException wurde nicht behandelt. Die SpecialCells-Methode des Range-Objektes konnte nicht ausgeführt werden.

Irgendwas muss entweder an den Parametern für SpecialCells falsch sein oder darf man die Funktion generell nicht für Excel.Range aufrufen? Da stimmt doch was nicht

Setze auf die Zeile

einen Haltepunkt und sieh Dir den Inhalt der Variable an.

Genau das Problem, das der Compiler rausgibt:

Dann frag doch mal Herrn Google zu diesem Thema.

Ok Kollege, die Hilfe in aller Ehren, aber wenn ich das nicht schon gemacht hätte und nicht nur Lösungen zu VBA, die ich aber leider nicht auf vb.net transferieren konnte, gefunden hätte, hätte ich mich hier nicht angemeldet um direkt eine Person fragen zu können, die das Problem u.U. schonmal hatte und mir helfen kann. Also bitte, solche Hinweise bringen bei dem Problem nichts.

Hat noch irgendjemand ne Idee? Mir wäre auch eine andere (schnelle) Möglichkeit Recht um die letzte Zelle herauszufinden, anstelle von SpecialCells - nur die selbstgeschriebene While Schleife dauert zu lange um den Anforderungen des Programms gerecht zu werden.

Und wenn Du die erste Zeile suchst, die vollständig oder in der aktuellen Spalte leer ist?

Das wäre warscheinlich auch ne Möglichkeit gewesen, habs aber grad endlich doch noch rausgefunden:

Über "xlsApp.ActiveCell.SpecialCells(Excel.XlCellType.xlCellTypeLastCell)" kommt man an die letzte Zeile via .Row ran. Auf ActiveCell wäre ich jetzt auch nicht ohne weiteres gekommen - die Dokumentation seitens Microsoft ist da mMn etw. verbesserungswürdig ;).