Spaltenüberschriften bei Access-Import
29.01.2003 09:50:07
Leo
habe mit Hilfe des Archivs es geschafft Access Daten in Excel zu importieren. Schon mal Danke!
Habe aber das Problem, das egal was ich mache, die Spaltenüberschriften nicht mit übernommen werden.
Hier der Code:
Sub ReturnRecords()
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim iCols As Variant
Set DB = DAO.OpenDatabase("p:\Access\Krank.MDB")
Set RS = DB.OpenRecordset("Zeit")
For iCols = 0 To RS.Fields.Count - 1
Worksheets(1).Cells(1, iCols + 1).Value = RS.Fields(icols).name
Next
With Worksheets(3)
.Range(Worksheets(3).Cells(1, 1), Worksheets(3).Cells(1, RS.Fields.Count)).Font.Bold = True
End With
Worksheets(3).Range("A2").CopyFromRecordset RS
End Sub
Habe es auch mit RS.Fields(icols).Properties.name
und anderen variationen probiert, alles Code-Schnipsel aus dem Archiv, aber ich bekomme immer nur die Werte ohne die Überschriften.
Weiss jemand Rat?
Vielen Dank
Gruss, Leo