excel daten nach excel
24.10.2005 10:23:18
steffi
habe hier in diesem forum einen recht guten beitrag gefunden, den ich zur lösung meines problems verwenden wollte. und zwar einen VBA Code, um daten von access nach excel zu bringen.
ich würde nun gerne daten von excel nach excel transportieren, und zwar ohne zu kopieren!
dass ich nun im nachfolgenden code den Pfad ändern muss ist klar, aber was
gehört in die Zeile: .Provider = "Microsoft.Jet.OLEDB.4.0" ?
läuft dann der code wenn ich nur dieses ändere?
vielen dank für eure hilfe!
eure steffi
Sub DBZugriff()
Dim cn As Connection
Dim rs As Recordset
Dim SQLString As String
Dim xx As Worksheet ' das Ziel-Tabellenblatt in Excel
Dim i As Integer
Dim j As Integer
Const DBPfad = "J:\Projects... ... ... .mdb"
Set xx = Worksheets("Tabelle1") ' das Ziel-Tabellenblatt in Excel
' Die datenbank öffnen
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & DBPfad
.Open
End With
' Definieren was geholt werden soll - hier alles
SQLString = "SELECT * FROM db1daten"
Set rs = New ADODB.Recordset
rs.Open SQLString, cn, adOpenDynamic, adLockReadOnly
' Die Feldnamen der Datenbanktabelle in die erste Zeile der Exceltabelle "Tabelle2" schreiben
For j = 0 To rs.Fields.Count - 1
xx.Cells(1, j + 1) = rs.Fields.Item(j).Name
Next
' Jetzt alle Sätze holen und in die Exceltabelle schreiben
i = 1
rs.MoveFirst
Do While rs.EOF = False
i = i + 1
For j = 0 To rs.Fields.Count - 1
If IsNull(rs.Fields.Item(j).Value) = False Then
xx.Cells(i, j + 1) = rs.Fields.Item(j).Value
End If
Next
rs.MoveNext
Loop
rs.Close
cn.Close
End Sub
Anzeige