Модераторы: Akina
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Экспорт в Excel, Код для экспорта отчета в Excel 
:(
    Опции темы
romzes
Дата 26.1.2005, 12:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Всем привет!
Результаты запроса необходимо экспортировать в Excel. С помощью макроса это не сложно сделать, но у меня отчет формируется на основании данных из Поля со списком. Процедура сделана на ВБасике.
Код

Private Sub Кнопка_Click()
 Dim oApp As Object

   Set oApp = CreateObject("Excel.Application")
   oApp.Visible = True
   'Only XL 97 supports UserControl Property
   On Error Resume Next
   oApp.UserControl = True

Exit_Кнопка_Click:
End Sub

В этом случае просто запускается Excel, а данные не экспортируются.
Мб чего-то в Коде не хватает?
PM MAIL   Вверх
Akina
Дата 26.1.2005, 12:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

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



А зачем тебе Экселем рулить-то? Используй DoCMD.OutputTo например


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
romzes
Дата 26.1.2005, 13:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Akina, да, с Output получается. Но только в Эксель выгружается весь отчет, а не данные по позиции выбранной из поля со списком.

Код:

Private Sub Кнопка_Click()
DoCmd.OutputTo acOutputReport, "exp", acFormatXLS, "exp.xls", True

End Sub

Мб как-нибудь эту выгрузку можно завязать на условия отбора?
PM MAIL   Вверх
Akina
Дата 26.1.2005, 15:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

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



Цитата(romzes @ 26.1.2005, 14:59)
Мб как-нибудь эту выгрузку можно завязать на условия отбора?

а может ее как-то завязать на ОТБОР записей в запросе, а? такая мысля не приходила - сразу получать именно то что нужно...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
romzes
Дата 26.1.2005, 15:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Akina, в принципе, у меня есть вариант, в котором выгрузка происходит с помощью макроса как надо на основании запроса, но, блин, там я не могу завязаться на поле со списком (то, чем я тебя доколебал в предыдущей теме). И как альтернативу, я сдел форму по принципу формы из БД Борей и экшн описал в ВБейсике... Вот и проблема возникла.
PM MAIL   Вверх
Akina
Дата 27.1.2005, 10:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

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



ну так если ты
Цитата(romzes @ 26.1.2005, 16:41)
экшн описал в ВБейсике
так продолжи мысль и в SQL-строку добавь условие WHERE с необходимыми параметрами отбора записей, ё моё...



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
romzes
Дата 1.2.2005, 16:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Да, Akina, я сделал выгрузку с помощью SQL. Это самый нормальный вариант. Спасибо.
PM MAIL   Вверх
  
Закрытая темаСоздание новой темы Создание опроса
Правила форума "MS Access"
Akina
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] и [code=sql][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

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


 




[ Время генерации скрипта: 0.0467 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.