Function ЗапускЭкселя(ByVal fName As String, Optional ByVal sCommand As String) 'v.1.1 Запуск внешнего приложения Excel с запуском команды(макрос)

Dim objExcel

    On Error GoTo Err1
If Not GetObject(, "Excel.Application") Is Nothing Then
    Set objExcel = GetObject(, "Excel.Application") 'Excel запущен
Else
    Set objExcel = CreateObject("Excel.Application")
End If
    On Error GoTo 0
With objExcel
    .Visible = True
    .Workbooks.Open (fName)
    If sCommand > "" Then .Run sCommand
End With
    Set objExcel = Nothing 'Application.Quit


Exit Function

Err1:
' Test to see if there is a copy of Microsoft Excel already running.
    'On Error Resume Next    ' Defer error trapping.
' Getobject function called without the first argument returns a
' reference to an instance of the application. If the application isn't
' running, an error occurs.
    'Set MyXL = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then ExcelWasNotRunning = True
    Err.Clear    ' Clear Err object in case error occurred
    Set objExcel = CreateObject("Excel.Application")
Resume Next

End Function

Sub Test1()

Dim sParam As String
sParam = 10096

sObj = "c:\Temp\TEST1\TEST.xls"

ЗапускЭкселя sObj, "TestStartOutSide(" & sParam & ")"

End Sub

If sCommand > "" Then .Run sCommand, sParam