DoCmd.OpenForm "frmOle", , , , , acHidden
Set oXL = Forms!frmOle!ctlOle.Object
oXL.Worksheets(1).range("Price") = 100000
oXL.windows(1).Visible = True 'само приложение на экране не появляется
oXL.Application.Run "IrrAc"
DoCmd.Close acForm, "frmOle"
Set oXL = Nothing
|