CopyFromRecordset klappt nicht :-(
18.11.2007 19:54:00
Maria
Ich such mir hier grad einen Wolf, warum das mit dem CopyFromRecordset nicht klappt.
Excel geht auf, die Kopfzeilen werden kopiert - aber ansonsten bleibt alles leer.
Kann mich bitte mal jemand erleuchten? Danke!
Maria
__________________________________________
Private Sub bt_Export_Salary_2_Excel_Click()
Dim xlsAnw As Object
Dim strSaveAsFilePath As String
Dim rs As DAO.Recordset
Dim db As Database
Dim targetrange As Excel.Range
Dim i As Integer
Set db = Application.CurrentDb
Set rs = db.OpenRecordset("Salary History", dbOpenTable)
Set xlsAnw = CreateObject("Excel.Application")
With xlsAnw
.Visible = True
.WindowState = -4137 '-4143 = Normal, -4137 = Maximized; -4140 = Minimized
.Workbooks.Add
.Windows(1).Activate
.Worksheets(3).Delete
.Worksheets(2).Delete
.Worksheets(1).Activate
.Worksheets(1).Name = "Salary History"
.Worksheets("Salary History").Range("a1").Select
For i = 0 To rs.Fields.Count - 1
.Cells(1, i + 1) = rs.Fields(i).Name
Next i
.Range("A2").Select
.Selection.CopyFromRecordset rs
strSaveAsFilePath = xlsAnw.GetSaveAsFilename
xlsAnw.ActiveWorkbook.SaveAs strSaveAsFilePath
End With
Set xlsAnw = Nothing
End Sub
___________________________