Acces import
14.04.2015 14:03:01
Sparrow
ich würde gerne aus einer Access Tabelle nur eine bestimmte Spalte namens "Rest" importieren - mit Parameterübergabe. Leider finde ich auch nach längerem Suchen keine Lösung. Hier mein bisheriger Code - wie gesagt, die Anpeilung der bestimmten Spalte fehlt leider komplett. Die Tabelle heißt in diesem Beispiel testtabelle, die Datenbank heißt test.mdb.
Sub Uebersicht()
Dim db As DAO.Database, recSet As DAO.Recordset, qdf As DAO.QueryDef
Tabelle10.Columns("B:G").ClearContents
Set db = OpenDatabase("B:test\test.mdb", False, False, ";pwd=#xxx#")
Cells(1, 2).Value = "Übersicht " & Sheets("Übersicht").Range("M2")
'Einzeleinträge holen
Set qdf = db.QueryDefs("testtabelle")
qdf.Parameters("[Jahr]").Value = Sheets("Übersicht").Range("M2")
Set recSet = qdf.OpenRecordset()
With recSet
For i = 0 To .Fields.Count - 1
Tabelle10.Cells(2, i + 2) = .Fields(i).Name
Next
Tabelle10.Range("B3").CopyFromRecordset recSet
End With
recSet.Close
Set recSet = Nothing
End Sub
Darüber hinaus eine letzte Frage, gibt es eine Möglichkeit das beim Import Spalten übersprungen werden? Damit man bspw. da selber Formeln eintragen kann? Die Variante, in access einfach eine leere Spalte einzufügen funktioniert nicht, da die Zellen dann mit leeren Zellen in Excel überschrieben werden. Vielen vielen Dank im Voraus!
Vg
Sascha
Anzeige