Office: Excel-Tabelle per VBA auslesen und in Access Tabelle übertragen

Hallo,

habe folgende Frage:

ich habe ein Access-Formular "Importformular". In dieses habe ich eine Excel-Tabelle eingefügt. In dieser Tabelle sind die folgenden Felder: Position, Menge, Text, Einheitspreis, Gesamtpreis. In der ersten Zeile der Tabelle steht "Import_Anfang", in der letzten Zeile "Import_Ende".

Jetzt möchte ich gerne mit einem Button (btn_Import) die Daten auslesen und in einer Tabelle "Import_Test" schreiben. Dabei soll in einer Schleife von "Import_Anfang" bis "Import_Ende" alles ausgelesen werden.

Ich habe keine Ahnung von Excel bzw. einer gezielten Ansprache der Felder, daher diese Frage. Kann mir jemand helfen?

:)

 

Moin,

reicht dir das hier als Ansatz? Oder brauchst du noch mehr Hilfe?

 

Hallo,

probier es einmal mit dieser Anweisung:

DoCmd.TransferSpreadsheet acImport, 8,"Bestelldaten", "D:\Daten\Bestelldaten", True, ""

Wobei das erste "Bestelldaten" die Zieltabelle in Access und der Beispielpfad die Angabe zur Quelldatei(Excel) ist.

Gruß EW

 

Moin Jan,

habe probiert, diesen Code einzubauen und anzupassen, funktioniert leider nicht. Kann ich auch eine Excel-Tabelle, welche direkt in meinem Formular als Objekt eingefügt ist, benutzen? Irgendwas passiert bei der Ausführung des Codes auch, aber die Tabelle "Test" wird nicht angelegt bzw. beschrieben.

Hier der Code:
Private Sub btn_import_Click()
Dim appXLS As Excel.Application
Dim wbkXLS As Excel.Workbook
Dim wksXLS As Excel.Worksheet
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("E:\Offerte20054953.XLS")
Set wksXLS = wbkXLS.Worksheets("Angebot")

'//Recordset öffnen
Set rs = DBEngine(0)(0).OpenRecordset("Test", dbOpenDynaset)

Zeile = 1
Spalte = 1

'//Zeilenanzahl ermitteln
While Len(Nz(wksXLS.Cells(Zeile, 1), "")) > 0
Zeile = Zeile + 1
Wend

'//Spaltenanzahl ermitteln
'//Zeilenanzahl ermitteln
While Len(Nz(wksXLS.Cells(1, Spalte), "")) > 0
Spalte = Spalte + 1
Wend

ZeileAkt = 1

'//Daten an das Recorset übergeben
While ZeileAkt < Zeile
SpalteAkt = 1
rs.AddNew
For i = SpalteAkt To Spalte
rs.Fields(SpalteAkt - 1) = wksXLS.Cells(ZeileAkt, SpalteAkt)
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

Darüber hinaus ist nach Starten des Codes die Excel-Tabelle (Offerte...) schreibgeschützt, was mache ich falsch?

 

Die Schreibschutz kommt, weil der Code nicht richtig beendet wird. Dazu einfach mal den Taskmanager öffnen und Excel dort abschiessen.

Und hier musst du nach deiner Anfangs- und Endzeile suchen, damit du weißt, welchen Bereich du importieren willst:

Code:

 

Geht immer noch nicht. Frage: die Anzahl der Spalten muss ja nicht abgefragt werden, da fix...sollte ich diese Schleife rausnehmen oder ggf. manuell eingeben, wieviele es sind? Warum werden keine Daten in die Tabelle "Test" geschrieben? Muss ich den Pfad anders deklarieren?

 

Wenn du weißt um welche Zeilen und Spalten es sich handelt, kannst du die beiden Schleifen davor rausnehmen und folgendes verwenden:

Code:

Die Spalten in Excel müssen mit den Spalten in Access übereinstimmen.

 

Die Methode mit DoCmd.TransferSpreadsheet acImport, 8,"Bestelldaten", "D:\Daten\Bestelldaten", True, "" funktioniert grundsätzlich (danke dafür an EW), jetzt noch eine Frage:
Kann ich auch Daten aus einem ungebundenen OLE-Feld, in welches ich die entsprechenden Zeilen und Spalten mittels Copy und Paste einfüge, auslesen bzw. wie müsste ich dieses ansprechen (analog zu D:\Daten\Bestelldaten), das würde mein Problem endgültig und vor allem benutzerfreundlich lösen. Danke im Voraus für die schnelle Hilfe !!!