MS Access: не работает Copyfromrecordset

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Access » MS Access: не работает Copyfromrecordset (MS Access: не работает Copyfromrecordset в выгрузке в Excel)

Мышка

Дата: Понедельник, 28.05.2012, 08:25 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Добрый день!
На одной машине не работает Copyfromrecordset при выгрузке данных из Access в Excel. Если выгружаю данные в конкретную ячейку, то все работает.
На данной машине, как и на прочих, стоит Windows XP и MS Office 2003.
Если кто-нибудь встречался с данной проблемой, помогите, пожалуйста.

Ответить

Serge_007

Дата: Понедельник, 28.05.2012, 20:29 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Как выгружаете?
Что не работает?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Мышка

Дата: Вторник, 29.05.2012, 08:23 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

[vba]

Code

Dim ax As Excel.Application, wx As Excel.Workbook, ws As Excel.Worksheet, StrSQL As String, rst As Recordset
Set ax = New Excel.Application
Set wx = ax.Workbooks.Open(“Файл-шаблон”, 0, False, , , , True)
Set ws = wx.Sheets(1)
StrSQL=”текст запроса” ‘запрос результат возвращает
Set rst = CurrentDb.OpenRecordset(StrSQL)
If rst.RecordCount > 0 Then
ws.Range("A10").copyfromRecordset rst ‘вместо данных вставляется соответствующее количество пустых строк (сколько записей в Recordset)
End If
rst.Close

[/vba]