VPF::проблема с CopyFromRecordset - Форум программистов

b00s

Дата 20.4.2008, 13:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 4.4.2008

Репутация: нет
Всего: нет

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

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 418
Регистрация: 23.1.2008
Где: Московская област ь

Репутация: нет
Всего: 17

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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 4.4.2008

Репутация: нет
Всего: нет

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »