Отчет из access в шаблон xltm при открытой базе

[mrs.petrushina]

Добрый день!
Формирую сводную таблицу в шаблоне excel с поддержкой макросов на основе данных базы access. Шаблон замечательно работает.
Но! Хочется, чтобы шаблон запускался из той же базы access по кнопочке. А он при открытой базе access ругается.
Открываю шаблон так:

Sub CreateReport()
Dim objXLApp As Object
Dim objXLBook As Object
Set objXLApp = CreateObject("Excel.Application")
Set objXLBook = objXLApp.Workbooks.Open("C:\Users\О лег\Desktop\Ежедневный_СМС_отчет.xl tm")
objXLApp.Application.Visible = True
End Sub

Коллеги, как сдеать, чтобы отчет формировался и при открытой базе?

[was3110]

А на какой строке кода начинает ругаться? Мне последняя строка процедуры не нравится.... получается Application.Application.Visible.
если пришлете на ящик - посмотрю.

[Swatch]

Здравствуйте. Можно попробовать так:

        Dim strdot As String
        strdot = "C:\Users\О лег\Desktop\Ежедневный_СМС_отчет.xl tm"
        Set objXLBook = CreateObject("Excel.application")
        objXLBook.Workbooks.Open strdot
'...... - команды заполнения шаблона данными
        objXLBook.Visible = True

[shanemac51]

подозрение на пробел в расширении

едневный_СМС_отчет.xl tm")

[Swatch]

да и пробел там ни к чему

[R Dmitry]

Я бы так сделал

Sub CreateReport()
 Dim app As Excel.Application
 Dim strDOT As String
 '+++++++++++++++++++++++++++++++++++++++++
 'если шаблон в одной папке с access
   ' With Application.CurrentProject
    ' strDOT = .Path & "\" & "Ежедневный_СМС_отчет.xltm"
   ' End With
'++++++++++++++++++++++++++++++++++++++++++
strDOT = "C:\Users\Олег\Desktop\Ежедневный_СМС_отчет.xltm"
Set app = New Excel.Application
app.Visible = True
app.Workbooks.Add strDOT
With app.ActiveWorkbook.Sheets(1)
'Заполнение шаблона
'.[a1]="Привет" ' примерно так :)
End With
End Sub

[mrs.petrushina]

R Dmitry, в том-то и дело, что заполнение шаблона прооисходит макросами в самом файле xltm, подтягивает access базу как источник и там формирую сводную...
видимо так нельзя!
пробую теперь из access сразу сводную в excel делать, ну ты видел мой вопрос

[R Dmitry]

Сообщение от mrs.petrushina

R Dmitry, в том-то и дело, что заполнение шаблона прооисходит макросами в самом файле xltm, подтягивает access базу как источник и там формирую сводную...
видимо так нельзя!
пробую теперь из access сразу сводную в excel делать, ну ты видел мой вопрос

Просмотрев все темы и вопросы предложу следующее,
0______
делаем в шаблоне excel, сводную из данных, очищаем данные, сохраняем
В access
1. Отбираем данные в рекордсет
2.преобразуем в массив
3. Открываем excel шаблон
5.выгружаем массив в excel
6.обновляем сводную

7. радуемся

[R Dmitry]

смотрите. макрос в модуле
access + excel, должны быть в одной папке

[mrs.petrushina]

R Dmitry, работает, кртуо!!!!! спасибо огромное!
может посмотришь мой второй варинт решения проблемы (http://programmersforum.ru/showthread.php?t=145385), т.к. хотелось бы еще от исходных данных избавиться, мне только сводные в результатном файле нужны. Отчетов у меня порядка десятка, поэтому технология для меня важна.