Beste Weg, um zu Lesen, eine Excel-Datei in eine Access-Datenbank

Was ist der "beste" Weg, um zu Lesen (nur Lesen) eine Excel-Datei in eine Access 2007-Anwendung. Ich will nur, um eine Schleife durch die Zeilen, und legen Sie die Daten in eine Access-Tabelle.

Ich glaube nicht, dass ein manuell importieren (Externe Daten abrufen-dialog), aber in VBA. Der Benutzer erhält ein Formular mit einer Schaltfläche Durchsuchen, und dann auf eine Excel-Datei mit einem definierten Inhalt/format. Nach, dass der VBA-code liest die Daten und legt diese in die Access-Datenbank.

InformationsquelleAutor waanders | 2010-05-25

  1. 7

    Könnten Sie versuchen, die DoCmd.TransferSpreadsheet-Methode. 

    DoCmd.TransferSpreadsheet acImport, , "from_excel","C:\Access\demo.xls", True

    Einfuhren-Tabelle Daten in eine Tabelle mit dem Namen from_excel, und nimmt die erste Zeile der Tabelle enthält die Feldnamen. Siehe Access-Hilfe für die TransferArbeitsblatt-oder online -hier, für mehr details.

    InformationsquelleAutor HansUp

  2. 3

    Wenn Sie möchten, Lesen Sie das gesamte Arbeitsblatt, können Sie importieren eine Excel-Tabelle direkt in Access. Sehen hier oder hier.

    Können Sie auch wählen, um eine Verknüpfung zu der Excel-Tabelle anstatt Sie zu importieren. So, die änderungen der Excel-Tabelle werden auch in der verlinkten Tabelle. Jedoch, Sie werden nicht in der Lage, änderungen in Access.

    Eine Dritte Möglichkeit ist, einige schreiben von VBA-code in Access ein recordset öffnen und Lesen Sie die Tabelle an. Siehe die Antworten von KeithG in dieser thread. Sie können so etwas wie dies tun, öffnen Sie das Arbeitsblatt in VBA:

    Dim xl As Excel.Application
Dim xlsht As Excel.Worksheet
Dim xlWrkBk As Excel.Workbook

Set xl = CreateObject("Excel.Application")
Set xlWrkBk = GetObject("H:/ggg.xls")
Set xlsht = xlWrkBk.Worksheets(1)
    Vielen Dank, ausgezeichnete tuts, aber ich meinte eine Möglichkeit von VBA. Ich habe erweiterte der Frage, siehe oben
    Siehe meinen editierten post für einige Infos wie Sie auf das Arbeitsblatt über VBA.
    Sie können den import in VBA mit DoCmd.TransferSpreadsheet. Diese Antwort scheint sehr unvollständig ohne die Erwähnung, dass, scheint mir.
    TLiebe > vielen Dank für die Antwort, aber ich eine bevorzugen die TransferArbeitsblatt-Antwort. Leider kann ich nur mark 1 Antwort als die akzeptierte Antwort

    InformationsquelleAutor TLiebe

  3. 0

    Probieren Sie etwas wie dieses:

    Dim excelApp As Excel.Application
Dim workbook As Excel.Workbook
Dim worksheet As Excel.Worksheet

Set excelApp = CreateObject("Excel.application")
Set workbook = excelApp.Open("C:\someFileName.xls")
Set worksheet = workbook.Worksheets(1)

    Und dann in einer Schleife durch die Zeilen und Spalten, ziehen Sie die Daten aus den Zellen, und stecken Sie es in die Datenbank. (Verwenden Sie das Arbeitsblatt.Zellen-Methode.) Versuchen Sie eine Suche auf google für code-Beispiele.

    Also, wie Sie eine Schleife durch die Zeilen und Spalten? Ich möchte zum importieren einer xlsx in eine Tabelle, aber da die Spalten nicht unbedingt entsprechen denen in der Tabelle, muss ich manuell eine Weiterleitung.

    InformationsquelleAutor froadie

Schreibe einen Kommentar