Importieren Sie Excel-Daten in Access
Ich habe eine Tabelle in meiner Access-Anwendung, die mit Daten in einer Reihe von Excel-Dateien gefüllt werden muss. Ich habe diesen Code ausprobiert:
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, strTable, strExcelpath, True
Aber es überschreibt jedes Mal die Daten in meiner Zugriffstabelle, anstatt sie anzufügen, und es gibt absolut keine Kontrolle darüber, was gesendet wird.
Ich muss eine Möglichkeit finden, die Daten aus einer Excel-Datei einfach an meine Access-Tabelle anzuhängen. Beide Dateien haben dieselbe Struktur. Daher möchte ich wissen, ob es eine Möglichkeit gibt, sie zeilenweise ohne Angabe der Spalten zu importieren. Aus persönlichen Gründen und aus Angst vor der Verwendung durch den Benutzer möchte ich jedoch auch wissen, wie man es unter Berücksichtigung der Zeilen und Spalten importiert.
Vielen Dank !
BEARBEITEN: Code mit der Auswahl in der Excel-Datei:
Dim cn As ADODB.Connection
Dim strQuery As String
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Application.CurrentProject.Path & "\Excel\test.xls;" & _
"Extended Properties=Excel 8.0;"
.Open
End With
strQuery = "INSERT INTO tblClients " & _
"SELECT * FROM [Excel 8.0;HDR=YES;DATABASE =" & Application.CurrentProject.Path & "\Excel\test.xls].[tblImport$]"
DoCmd.RunSQL strQuery