Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > проблема с CopyFromRecordset

Автор: b00s 20.4.2008, 13:44

Помогите пожалуйста... Мне нужно выгрузить данные из 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

t002 - это имя таблицы

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

Автор: Magnifico 20.4.2008, 15:07

xls.Range("A1").CopyFromRecordset rs

и save

xlb .SaveAs "C:\new2.xls"
xl.Quit

твой пример:

Перенос набора записей ADO в диапазон листа с помощью автоматизации
http://support.microsoft.com/kb/247412/ru

Автор: b00s 20.4.2008, 21:12

СПС ОГРОМНОЕ....