проблема c CopyFromRecordset

[b00s]

Я хочу перекинуть данные из Access в Excel. Использую следующий код

Dim rs As DAO.Recordset
    Dim db As Database
    Dim xl As Excel.Application
    Dim xlb As Excel.Workbook
    Dim xls As Excel.Worksheet
    
    
    Set db = CurrentDb
    Set xl = CreateObject("Excel.Application")
    Set xlb = xl.Workbooks.Add
    Set xls = xlb.Worksheets(1)
    
    xl.Visible = True
    Set rs = db.OpenRecordset("t002")
    
    xls.Range(a1).CopyFromRecordset rs
        
    rs.Close
    Set rs = Nothing

Когда я его запускаю, Excel загружается но внём нет данных
и выдаёт ошибку Method 'Range' of object '_ Worksheet' failed
ругается на вот эту строку xls.Range(a1).CopyFromRecordset rs

[дмидми]

Для начала - или вставить куда-нибудь выше 17-й строки
Const a1 = "a1"
, или в 17-ю строку записать
xls.Range("a1").CopyFromRecordset rs

А дальше будет видно

[b00s]

)))) опс. спасибо. Работает.