Exceldaten in Acesses mit VBA

Dieses Thema im Forum "MS Access" wurde erstellt von Sweety87, 20 April 2009.

  1. Sweety87

    Sweety87
    Expand Collapse
    New Member

    Registriert seit:
    20 April 2009
    Beiträge:
    1
    Zustimmungen:
    0
    Hallo zusammen,

    ich brauche dringend Hilfe...
    Ich habe eine Accessdatenbank und möchte mit Hilfe von VBA eine bestimmte Spalten aus einer Exceltabelle importieren.
    Den Pfad der Tabelle habe ich schon, wie kann ich jetzt bestimmte Spalten in eine Tabelle in Access einfügen?

    Habe da bis jetzt...bitte Hilft mir...



    Private Sub BtnImport_Click()

    If oPfad <> "" Then ' Wenn Datei ausgewählt wurde
    ' Excel Anwendung starten
    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    If xlApp Is Nothing Then
    Set xlApp = CreateObject("Excel.Application")
    End If
    On Error GoTo 0

    xlApp.Visible = True ' Testphase
    Set xlBook = xlApp.Workbooks.Open(oPfad) ' Excel Arbeitsmappe öffnen



    xlApp.DisplayAlerts = False
    xlApp.Application.Quit
    xlApp.DisplayAlerts = True
    Set xlApp = Nothing
    Set xlBook = Nothing
    Set xlSheet = Nothing

    'GUI zurücksetzen
    MsgBox "Import erfolgreich"

    lblDatei.Visible = False
    lblAnzeige.Visible = False
    Else
    MsgBox "Bitte wählen sie mithilfe der Schaltfläche 'Durchsuchen' erst eine Datei aus"
    End If

    End Sub



    Vielen Dank im vorraus :11:
     
  2. DirkBoehm

    DirkBoehm
    Expand Collapse
    New Member

    Registriert seit:
    5 August 2009
    Beiträge:
    37
    Zustimmungen:
    0
    Hallo,

    Bestimmte Bereiche aus Excel importieren kannst Du per VBA mithilfe der transferspreadsheet-Methode des DoCmd-Objektes.

    z.B.: [TEXTMARKER]DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Tabelle1", "c:\TEMP\Test.xls", False, "Tabelle1!B:B"
    [/TEXTMARKER]


    Dirk.
     
Die Seite wird geladen...

Diese Seite empfehlen