Office: (Office 2003) Excel Tabelle in Access importieren ab bestimmter Zeile!

Hi @ all,

ich möchte gerne eine Excel Tabelle importieren ab eine Zeile!
Dazu habe ich mal eine Beispiel Datein angehängt!

Und zwar möchte ich gerne den gelben Bereich in eine Tabelle importieren!

das Problem ist das der Anfang dieser Tabelle auch in einer oder mehreren Zeilen tiefenr beginnen kann, was aber immer gleich ist, ist die Überschrift "Data1" dort beginnt die Tabelle immer!

und mit strg + shift und den Cursor taseten (rechts und unten) kann man dann den tabellen bereich makieren.

die frage ist nur wie bekomme ich diese daten nun in eine access tabelle?

gruß
swen

:)

 

Hallo Swen,
du kannst das Excel-Blatt in Access öffnen und dort nach Data1 suchen.
Falls dann in Data1 keine leeren Felder sind, kannst Du dann die Zeilenzahl dadurch ermittlen, dass Du alle Zeilen bis zum nächsten leeren Feld auswertest.
Sind es immer 3 Datenspalten? Dann kannst Du das fest programmierten.
Je nach Sachlage kannst Du dann die ausgelesenen Datensätze mit einem Insert-Statement direkt an eine Tabelle anhängen.

Gruß
Vincenz

 

Hallo Swen,
habe gerade mal etwas gespielt.
Mit dem folgenden Gerüst solltest Du die Tabelle einlesen können
Code:

Verweis auf Excel muss gesetzt sein.

Gruß
Vincenz

 

....wenn ich möchte das die Daten in eine Tabelle "test" in access eingebracht werden.

wie müsste dann die verarbeitung aussehen?


gruß
swen

 

Hallo Swen,
zum Beispiel mittels SQL (ungetestet):
Code:

oder mittels Recordset (auch ungetestet):
Code:

Findest Du auch alles in der OH.
Gruß
Vincenz

 

Hallo Vincenz,

erstmal danke für dein Beträge,
ich versuche sie gerade und scheite schon bei dem

ImportTest.

weis gerade nicht wo ich sie anlegen soll.

habe sie in ein modul gelegt und er meckert nun aber

Dim appExcel As Excel.Application

an das "Benutzerdifinierter Typ nicht definiert" ist


was mache ich falsch?


axo: sorry das ich mich nicht gemeldet habe eine ganze zeit,
bin gerade durch eine scheidung geggangen und hatte andere sachen um die ohren.

gruß
swen

 

sorry dann antworte ich mir mal selber... und zwar
muste ich natürlich nur der microsoft excel verweis setzen.

sorry!


gruß
swen

 

Hier scheint nur ein Verweis auf Excel zu fehlen.

 

wie ich das in eine tabelle bekomme habe ich aber noch nicht gschnallt!

kannst du mir das bitte nochmal erklären, oder jemand anders....

wo soll ich den befehl hintun? was macht der befehl genau?

Set rst= CurrentDB.OpenRecordset("Select * From Test Where 1=0") 'nur Struktur holen
rst.AddNew(Array("Feld1", "Feld2", "Feld3"), Array(Wert1, Wert2, Wert3)
rst.Update

danke gruß
swen

 

Anm.:
Wenn in den den Spalten klare Datentyptrennungen vorhanden sind, könnte auch so etwas klappen:
Code:

In der Beispiel-Datei gibt es allerdings ein Problem mit dem 3. Datenfeld, da dort Zahlen und Text gemischt vorkommen, Access/Jet aber der Meinung ist, dass dort nur Zahlen sein sollen. (Sobald die Zahlen in dieser Excel-Spalte als Text gekennzeichnet werden (mit Hochkomma voran: '444), würde das Auslesen per Abfrage klappen.

 

Hi @ all,

ich habe jetzt eine Lösung die wie folgt aussieht

Public Sub Import_Test()

Dim appXLS As Excel.Application
Dim wbkXLS As Excel.Workbook
Dim wksXLS As Excel.Worksheet
Dim rng As Excel.Range
Dim rs As DAO.Recordset
Dim Spalte As Long
Dim SpalteAkt As Long
Dim Zeile As Long
Dim ZeileAkt As Long
Dim i As Long

'//Excelinstanz öffnen
Set appXLS = New Excel.Application
Set wbkXLS = appXLS.Workbooks.Open(CurrentProject.Path & "\CPT_0002.WK1")
Set wksXLS = wbkXLS.Worksheets(1)
Set rng = wbkXLS.Worksheets(1).Cells.Find(What:="Ch", LookIn:=xlValues, LookAt:= _
xlWhole, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False)
Zeile = rng.Row + 1
Spalte = rng.Column
'//Recordset öffnen

If tableExists("DeineTabelle") Then
Set rs = DBEngine(0)(0).OpenRecordset("DeineTabelle", dbOpenDynaset)
Else

End If


'******************************************************************************
'//Zeilenanzahl ermitteln
While Len(Nz(wksXLS.Cells(Zeile, rng.Column), "")) > 0
Zeile = Zeile + 1
Wend
'//Spaltenanzahl ermitteln
'//Zeilenanzahl ermitteln
While Len(Nz(wksXLS.Cells(rng.Row, Spalte), "")) > 0
Spalte = Spalte + 1
Wend
Spalte = Spalte - 1
ZeileAkt = rng.Row + 1
'******************************************************************************
'//Daten an das Recorset übergeben
While ZeileAkt < Zeile
SpalteAkt = rng.Column
rs.AddNew
For i = SpalteAkt To Spalte
If wksXLS.Cells(ZeileAkt, SpalteAkt) Is Nothing Then ' hier weiter
rs.Fields(SpalteAkt - rng.Column) = 0
Else
rs.Fields(SpalteAkt - rng.Column) = wksXLS.Cells(ZeileAkt, SpalteAkt)
End If
SpalteAkt = SpalteAkt + 1
Next i
rs.Update
ZeileAkt = ZeileAkt + 1
Wend
'******************************************************************************
wbkXLS.Close
appXLS.Quit
rs.Close
Set wksXLS = Nothing
Set wbkXLS = Nothing
Set appXLS = Nothing
Set rs = Nothing
End Sub

ist etwas von der ursprungsdatei schon abgeändert.. baer funtzt super

vielen dank

gruß
swen