макрос поиск решения

[katrina-n]

Здравствуйте!

прошу помощи. необходимо запустить макрос excel из access для дальнейшего экспорта решения в access. использую такой код vba:

1. Private Sub Кнопка26_Click()
DoCmd.OpenQuery "Экспорт_Лома"
Dim oWbk As Workbook
Set oWbk = Workbooks.Open("C:\Users\Ека\Deskto p\Домашная база\бд.xls")
oWbk.Application.OnTime Now + TimeValue("00:00:15"), "Оптимизация_шихты"
oWbk.Close SaveChanges:=True
End Sub

Здесь сначала записи из таблиц access экспортируются в excel, затем открывается файл бд.xls, в который эксп-ся данные, и выполняется макрос на поиск решения.затем файл закрывается.

В этом случае excel выводит сообщение о том, что макрос не найден.

2. Private Sub Кнопка26_Click()
DoCmd.OpenQuery "Экспорт_Лома"
Dim oWbk As Workbook
Set oWbk = Workbooks.Open("C:\Users\Ека\Deskto p\Домашная база\бд.xls")
oWbk.Application.OnTime Now + TimeValue("00:00:15"), "Оптимизация_шихты"
End Sub

тот же самый код, но без закрытия книги. Excel пишет: "непредвиденная ошибка или достигнут предел допустимой памяти".


P.S. если запустить бд.xls и выполнить этот макрос, он работает корректно.


Заранее спасибо за помощь.

[doober]

"непредвиденная ошибка или достигнут предел допустимой памяти"

Эту ошибку вы не поборите.Если определенное время не отвечает объект-ошибка
.По опыту работы Excel - Acad
У вас задержка запуска макроса+время расчетов
А не проще запустить Excel ,загрузить данные,обсчитать,выгрузить обратно

[katrina-n]

У вас задержка запуска макроса+время расчетов

задержка макроса намеренная, вследствие того, что данный макрос некорректно работает при мгновенном его подключении после открытия книги.

А не проще запустить Excel ,загрузить данные,обсчитать,выгрузить обратно

что вы имеете в виду? вручную?

Эту ошибку вы не поборите.Если определенное время не отвечает объект-ошибка
.По опыту работы Excel - Acad

Если вас не затруднит, можно поподробнее?

[katrina-n]

Решила проблему. если кому понадобится, вот код:

Private Sub Кнопка26_Click()
DoCmd.OpenQuery "Экспорт_Лома"
Dim oWbk As Workbook
Set oWbk = Workbooks.Open("C:\Users\Ека\Deskto p\Домашная база\бд.xls")
oWbk.Application.Run "Оптимизация_шихты"
oWbk.Close SaveChanges:=True