ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Данные из запроса в EXEL
12 сообщений из 12, страница 1 из 1
Данные из запроса в EXEL
    #32483546
Nektov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nektov
Участник
Народ, есть перекрестный запрос, нужно переправить его в EXEL.
Вопрос. Как это сделать. Просто не очень хочется ручками все это безобразие тасать. Должен же быть простой и красивый способ :-)
Подскажите, плз
...
Рейтинг: 0 / 0
15.04.2004, 22:05
| Ответить | Цитировать | Написать  
Данные из запроса в EXEL
    #32483560
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Есть экспорт. Есть программное заполнение. В этом форуме почти каждый день такое обсуждается.
...
Рейтинг: 0 / 0
15.04.2004, 22:41
| Ответить | Цитировать | Написать  
Данные из запроса в EXEL
    #32483567
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
например
...
Рейтинг: 0 / 0
15.04.2004, 22:59
| Ответить | Цитировать | Написать  
Данные из запроса в EXEL
    #32483582
Nektov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nektov
Участник
Это я нашел, спасибо.
Появился другой вопрос.
После экспорта, я пытаюсь дописать в созданный файл еще данных, но на строке
Set XL = CreateObject("Exel.Application")
Ассess ругается, говорит
"ActiveX Component can't create object"
Похоже, что ему, чего-то не хватает.
Какие компоненты должны быть подлючены?
...
Рейтинг: 0 / 0
15.04.2004, 23:45
| Ответить | Цитировать | Написать  
Данные из запроса в EXEL
    #32483583
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
По той же ссылке.
...
Рейтинг: 0 / 0
15.04.2004, 23:52
| Ответить | Цитировать | Написать  
Данные из запроса в EXEL
    #32483585
Nektov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nektov
Участник
Ды это я уже проверил, этот ресрс уэе подключен
...
Рейтинг: 0 / 0
15.04.2004, 23:58
| Ответить | Цитировать | Написать  
Данные из запроса в EXEL
    #32483597
Nektov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nektov
Участник
Еще одна штуа:

выполняю ф-ию doCmd.OutputTo
Когда параллельно или после пытаюсь открыть файл

Код: plaintext
1.
2.
3.
dim XL as new Exel.Application
dim XLS as Object
set XLS = XL.Workbooks.Open( "c:\123 \ 123 .xls")

даже, если в конце модуля говорю
Код: plaintext
1.
2.
set xl = nothing
set xls = nothing

Если попытаться выполнить эту функцию 2-й раз, то обнаруживаю, что файл уже чем-то используется и не может быть изменен.

как ни странно, помогает только перезагрузка. Похоже, что он какой-то процесс засаживает в систему, от чего та просто сходит с ума.
Как быть? Что делать?
...
Рейтинг: 0 / 0
16.04.2004, 01:21
| Ответить | Цитировать | Написать  
Данные из запроса в EXEL
    #32483600
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander G
Участник
Код: plaintext
1.
2.
3.
xls.Close
xl.Application.Quit 'это по вкусу, может Excel еще нужен
set  = nothing
set xl = nothing
...
Рейтинг: 0 / 0
16.04.2004, 01:29
| Ответить | Цитировать | Написать  
Данные из запроса в EXEL
    #32483601
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander G
Участник
set xls = nothing
set xl = nothing

пропустил xls
...
Рейтинг: 0 / 0
16.04.2004, 01:37
| Ответить | Цитировать | Написать  
Данные из запроса в EXEL
    #32483886
CtrlAlt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CtrlAlt
Участник
Nektov
Во всех постах: Не Exel а Excel.
Соответственно
Set XL = CreateObject("Eсxel.Application") и т.п.
...
Рейтинг: 0 / 0
16.04.2004, 11:02
| Ответить | Цитировать | Написать  
Данные из запроса в EXEL
    #32483911
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
Нужно использовать явное обращение ко всем свойствам, методам и объектам Excel - тогда всё будет в порядке. А процесс - это сам Excel:) Потому что он не выгружается у вас в конце из-за неявного обращения например к листу. книге, ячейке, диапазону ячеек и т.п. Смотрите код внимательно.
...
Рейтинг: 0 / 0
16.04.2004, 11:13
| Ответить | Цитировать | Написать  
Данные из запроса в EXEL
    #32483932
PaulB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulB
Гость
Убедитесь, что в модуле, меню "Сервис/Ссылки" есть "Microsoft Excel 8.0 Object Library". Затем попробуйте:
Sub test()
Dim oApp As Object, wbkReport As Workbook, shtTemp As Worksheet
Dim qdf As QueryDef, rstData As Recordset, i%
Set oApp = GetObject(, "Excel.Application")
oApp.Visible = True
oApp.WindowState = xlMaximized
Set wbkReport = oApp.Workbooks.Add("Шаблон1.xlt")
Set shtTemp = wbkReport.Worksheets("Temp")
Set qdf = CurrentDb.QueryDefs("Запрос1")
For i = 0 To 5
qdf.Parameters(i) = Eval(qdf.Parameters(i).Name)
Next
Set rstData = qdf.OpenRecordset(dbOpenSnapshot)
shtTemp.Cells.Clear
shtTemp.Cells(1).CopyFromRecordset rstData
End Sub
...
Рейтинг: 0 / 0
16.04.2004, 11:21
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Данные из запроса в EXEL
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32483560&tid=1675283]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 205ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 228ms
total:  515ms
созд. / загр.: 515ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]