Архив форумов ЦИТФорума

[Jane]

Есть приложение Access, бза хранится на SQLServer'е.
Связаны через ADO и ini-файл. Запросы к серверу пишутся в коде
Access через строковую перемен.
Как:
1.Взятый с сервера набо данных(recordset) сохранить на компе
пользователя в Excelе?
2. В Excel программно создать графики на основе выборочных данных?
Помогите, пожалуйста, оч надо!

[Dimasm]

Подключение к Excel через OLE.
Создаёшь шаблон документа, в котором построены все графики, и есть места для данных. Потом прогой делаешь запрос, подключаешься к Excel через OLE и переносишь данные в заранее известные места.

Если данные могут очень отличаться, то есть нельзя создать универсальный шаблон, то придётся и графики создавать средствами
автоматизации OLE - гараздо сложнее.

А в чём пишите? на VB в Acces?

[Jane]

Dimasm, спасибо что ответил.
Да, пишу на vb в Accessе.
Напиши, плиз, подробнее о подключении через OLE или ссылку,а то я в VB новичок.
Знаешь как программно вызвать в Excel пункты меню?

[Dimasm]

Могу только примерно описать процесс. я на С++ пишу.

создаёшь OLE объект
Dim myExcel As Variant

говоришь, что это Excel
myExcel = CreateOLEObject("Exel")

открываешь свой шаблон
myExcel.OpenFile ("test.xls")

тут начинается твой цикл по полученным данным на VB
while (например)....
для доступа к ячейкам
myExcel.ActiveWorkbook.Sheets("Лист1").Cells(1, 7).Value = 10
1-столбец, 7 - строка или наоборот, не помню

и наоборот
Dim A as Integer
A = myExcel.ActiveWorkbook.Sheets("Лист1").Cells(1, 7).Value

твой цикл заканчивается
wend

в конце как всё сделала делаешь окно видимым
myExcel.Visible = true

чтобы выяснить какой командой вызвать то или иное меню, например поменять шрифт в ячейке, делаешь так:
1. Зпускаешь Excel
2. Кликаешь: Сервис->Макрос->Начать запись -> Ок
появится окошко, с конопкой "стоп" (квадратик)
3. Пишешь текст "123", затем снова выделяешь ячейке и делаешь текст жирным
4. Жмёшь стоп
5. Жмёшь Alt+F11 - открывается окно редактора Visual Basic
6. Выбираешь Modules и дважды щёлкаешь по Module1
появится код

[Jane]

Спасибо, Dimasm. Буду пробовать.