ник: Жень Шень
Всем привет.
Из формы создаю запрос и открываю его в EXCEL-е:
Private Sub excelRun_Click()
Dim db As Database
Set db = CurrentDb
CurrentDb.QueryDefs("excelDOM ").sql = "SELECT tDOM.* FROM tDOM ORDER BY tDOM.ID_RAJ;"
DoCmd.OutputTo acOutputQuery, "excelDOM", acFormatXLS, "C:\excelDOM.xls", True
End Sub
|
Ранее в EXCEL-е был создал макрос, например такой:
Sub Макрос0()
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select
End Sub
|
Подскажите, как программно выполнить его из ACCESS-а, то есть, что и как надо дописать в коде Sub excelRun_Click(), чтоб он выполнил код макроса после открытия C:\excelDOM.xls.
Спасибо.