Befüllte Zellen einer Excelspalte in Access-Array einlesen
Hallo Gemeinde,
ich erfasse Seriennummern in der ersten Spalte der Datei Seriennummern.xlsx beginnend in Zeile 2.
Nun möchte ich aus Access heraus diese Seriennummern in ein Array einlesen.
Der Ansatz den kompletten Range einzulesen, ist nicht der richtige da ich nicht bekannt, ist wie viele Nummern eingelesen werden. mit folgendem Code öffne ich in Access die Exceldatei:
Kann mir jemand sagen wie ich nur die gefüllten Zellen 2 bis X in ein Access-Array einlesen kann?
ich erfasse Seriennummern in der ersten Spalte der Datei Seriennummern.xlsx beginnend in Zeile 2.
Nun möchte ich aus Access heraus diese Seriennummern in ein Array einlesen.
Der Ansatz den kompletten Range einzulesen, ist nicht der richtige da ich nicht bekannt, ist wie viele Nummern eingelesen werden. mit folgendem Code öffne ich in Access die Exceldatei:
Dim xlAnw As Excel.Application
Dim xlBuch As Excel.Workbook
Dim xlArbBlatt As Excel.WorkSheet
Set xlAnw = CreateObject("Excel.Application")
Set xlBuch = xlAnw.Workbooks.Open("\\Seriennummernerfassung.xlsx") 'Die Excel-Datei öffnen
Set xlArbBlatt = xlBuch.Worksheets(1) 'erstes Sheet
Kann mir jemand sagen wie ich nur die gefüllten Zellen 2 bis X in ein Access-Array einlesen kann?
Please also mark the comments that contributed to the solution of the article
Content-ID: 6836067549
Url: https://administrator.de/forum/befuellte-zellen-einer-excelspalte-in-access-array-einlesen-6836067549.html
Printed on: February 11, 2025 at 08:02 o'clock
4 Comments
Latest comment

'....
With xlBuch.Worksheets(1)
dim cell as Excel.Range
for each cell in .Range("A2:A" & .Cells(.Rows.Count,"A").End(-4162).Row)
msgbox cell.Value
Next
End With