-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


Вывод в Excel - выводит со 2-го раза

Вторник, 29 Июля 2014 г. 15:56 + в цитатник
Милые друзья.
Я вывожу в Excel результаты запроса нажатием на кнопку. Кнопка обращается вот к этой функции и передает в нее 4 значения.

Public Function OpenExcel(ЗапросSQL, Путь, ЯчейкиОчистки, ЯчейкаВставки)
Set oWordExcel = CreateObject("Excel.Application")
oWordExcel.Visible = True
Set oDokBook = oWordExcel.Workbooks.Open(Путь)
Set oSheet = oDokBook.Worksheets("Данные")
oSheet.Range(ЯчейкиОчистки).ClearContents
Set DB = CurrentDb()
Set Ist = DB.OpenRecordset(ЗапросSQL)
oSheet.Range(ЯчейкаВставки).CopyFromRecordset Ist
Ist.Close

Set Ist = Nothing
Set DB = Nothing
Set oWordExcel = Nothing
Set oDokBook = Nothing
Set oSheet = Nothing
End Function

Но при открытии в ПЕРВЫЙ раз в Excel ничего не выводится. Но когда я закрываю Excel и снова нажимаю на ту же кнопку, то во ВТОРОЙ раз все нормально выводится.

Видимо, я что-то в самой функции забыла написать, что-то обновить? Ist.Requery не помогает.

Добавлю, что ЗапросSQL звучит как "SELECT * From ПостоянныйЗапрос ". ПостоянныйЗапрос - это запрос, постоянно существующий в базе.

http://www.sql.ru/forum/1107900/vyvod-v-excel-vyvodit-so-2-go-raza


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку