Attribute aus Access in Excel kopieren
12.12.2005 08:29:43
Eve
Diese Code habe ich von diese Forum.
In Spalte A sind die Werte von die Attribut
usrID aus die Access Tabelle tblUser.
In die Spalte B, C und D werden die zugehörigen
Name, Name2 und PID geschrieben.
So, jetzt will ich aber einfach diese Attribute von die Tabelle:
"SELECT tblUser.usrPID, tblUser.usrName, tblUser.usrName2 FROM tblUser"
in Excel Spalte B, C und D kopieren, ohne die Vergleich in Spalte A.
Wie muss ich die Code ändern?
Private Sub cmbUser_Click()
Dim dbs As Database
Dim dbfile As String
Dim qdf As QueryDef
Dim rec As Recordset
Dim mysql As String
Dim mynum As Long
Dim i As Long
dbfile = ThisWorkbook.Path & "\tblUser.mdb"
Set dbs = OpenDatabase(dbfile)
With dbs
For i = 2 To Cells(2, 1).End(xlDown).Row
mynum = CLng(Val(Cells(i, 1).Value))
mysql = "SELECT tblUser.usrPID, tblUser.usrName, tblUser.usrName2 " & _
"FROM tblUser " & _
"WHERE tblUser.usrID = " & mynum & ";"
Set qdf = .CreateQueryDef("", mysql)
Set rec = qdf.OpenRecordset(dbOpenSnapshot)
If Not rec.EOF Then
Cells(i, 2).Value = rec.Fields(0).Value
Cells(i, 3).Value = rec.Fields(1).Value
Cells(i, 4).Value = rec.Fields(2).Value
End If
Next
End With
dbs.Close
End Sub
Danke für alle Helper und ich hoffe das ihr habt mein problem verstanden.
Kind regards
Eve
Anzeige