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

[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 и выполнить этот макрос, он работает корректно.
Может быть кто-нибудь сталкивался с подобной проблемой?

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

[R Dmitry]

Сообщение от 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 и выполнить этот макрос, он работает корректно.
Может быть кто-нибудь сталкивался с подобной проблемой?

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

Добрый день так вы к excel , забыли обратиться

Dim app As Excel.Application
Set app = New Excel.Application
app.Visible = True
app.Application.OnTime Now + TimeValue("00:00:15"), "Оптимизация_шихты"

[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