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

Helfe beim Thema Excel Tabelle in Access importieren ab bestimmter Zeile! in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; 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... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von SwenATwork, 12. Oktober 2008.

  1. 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

    :)
     
    SwenATwork, 12. Oktober 2008
    #1
  2. 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
     
  3. 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
     
  4. Excel Tabelle in Access importieren ab bestimmter Zeile!

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

    wie müsste dann die verarbeitung aussehen?


    gruß
    swen
     
    SwenATwork, 14. Oktober 2008
    #4
  5. Hallo Swen,
    zum Beispiel mittels SQL (ungetestet):
    Code:
    oder mittels Recordset (auch ungetestet):
    Code:
    Findest Du auch alles in der OH.
    Gruß
    Vincenz
     
  6. 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
     
    SwenATwork, 5. Mai 2009
    #6
  7. sorry dann antworte ich mir mal selber... und zwar
    muste ich natürlich nur der microsoft excel verweis setzen.

    sorry!


    gruß
    swen
     
    SwenATwork, 5. Mai 2009
    #7
  8. Excel Tabelle in Access importieren ab bestimmter Zeile!

    Hier scheint nur ein Verweis auf Excel zu fehlen.
     
    ebs17, 5. Mai 2009
    #8
  9. 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
     
    SwenATwork, 5. Mai 2009
    #9
  10. 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.
     
    Josef P., 5. Mai 2009
    #10
  11. 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
     
    SwenATwork, 5. Mai 2009
    #11
Thema:

Excel Tabelle in Access importieren ab bestimmter Zeile!

Die Seite wird geladen...
  1. Excel Tabelle in Access importieren ab bestimmter Zeile! - Similar Threads - Excel Tabelle Access

  2. Excel Tabelle mit Access-Datenbank verknüpfen

    in Microsoft Excel Hilfe
    Excel Tabelle mit Access-Datenbank verknüpfen: Hallo, ich habe eine Frage. Wir müssen jedes Jahr in Berieben elektrische Geräte auf ihre Funktion prüfen. Bisher haben wir immer Excel-Tabellen per Hand ausgefüllt. Dies ist sehr mühselig. Nun...
  3. Excel Tabelle in Access importiert- über Button in Access Tabelle in Excel aktualisi.

    in Microsoft Access Hilfe
    Excel Tabelle in Access importiert- über Button in Access Tabelle in Excel aktualisi.: Hallo zusammen, ich habe eine Excel Tabelle in Access importiert. Nun möchte ich über einen Button in einem Formular die Tabelle in Excel aktualisieren. Nachdem die Aktualisierung in Excel...
  4. Import von Excel-Daten in Access-Tabelle

    in Microsoft Access Hilfe
    Import von Excel-Daten in Access-Tabelle: Hallo, um es gleich vorwegzunehmen, ich bin absoluter Amateur und hänge an folgendem Punkt: Ausgangspunkt: Ich muss einmalig (von Hand, es geht also nicht zwingend um ein VBA-Modul o.Ä., obwohl...
  5. Access Tabelle mit Excel bearbeiten

    in Microsoft Access Hilfe
    Access Tabelle mit Excel bearbeiten: Ich habe eine Access Datenbank, im Moment rufe ich mit Excel die Abfragen der DB ab und stelle sie dort als Tabelle da. Die Excel Datei kann ich dann immer Aktualisieren wenn in Access Daten dazu...
  6. Excel Daten in Access Tabelle importieren

    in Microsoft Access Hilfe
    Excel Daten in Access Tabelle importieren: Guten Tag, ich habe mich mit der Suche des Forums beschäftigt. Hätte ich was gefunden würde ich kein neues Thema öffnen. *tongue.gif* *wink.gif* Kurz und Knapp: Access Tabelle : "Master" mit x...
  7. Excel Daten an Access Tabelle anfügen (automatisiert)

    in Microsoft Access Hilfe
    Excel Daten an Access Tabelle anfügen (automatisiert): Hallo! Ich arbeite seit kürzerem mit Access und bin mal wieder auf eine Herausforderung gestoßen. Wir fahren in unserer Abteilung mehrere Auswertungen täglich mithilfe von Excel. Dort wird alles...
  8. Verwenden einer Sprachausgabe, um eine Access-Tabelle in eine Excel-Arbeitsmappe zu exportieren

    in Microsoft Access Tutorials
    Verwenden einer Sprachausgabe, um eine Access-Tabelle in eine Excel-Arbeitsmappe zu exportieren: Verwenden einer Sprachausgabe, um eine Access-Tabelle in eine Excel-Arbeitsmappe zu exportieren Access für Microsoft 365 Access 2019 Access 2016 Mehr... Weniger...

Users found this page by searching for:

  1. Exceltabelle ab einer bestimmten zeile importieren

  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden