Вывод в 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
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-