Sub Auto_Open()
    Dim myAddinLoc As String
    Dim wbMyAddin As AddIn
    Dim strUtilLink As String
    Dim i As Long
    Dim j As Integer
    Dim alinks
    ChDir "c:\tables"
        myAddinLoc = "c:\tables\ASTMLib.xla"
        On Error Resume Next
        Set wbMyAddin = Workbooks(AddIns("ASTMLib").Name)
        lastError = Err
        On Error GoTo  0 
        If lastError <>  0  Then
            Application.AddIns.Add(myAddinLoc).Installed = True
        End If
        alinks = ActiveWorkbook.LinkSources(xlExcelLinks)
        If Not IsEmpty(alinks) Then
            For i =  1  To UBound(alinks)
                If InStr( 1 , alinks(i), "dri_dir", vbTextCompare) Then
                    ActiveWorkbook.ChangeLink alinks(i), "c:\tables\dri_dir.xls", xlLinkTypeExcelLinks
                End If
            Next i
        End If

End Sub

OLEObject 	lo_Excel;
lo_Excel = CREATE OLEObject
If (lo_Excel.ConnectToNewObject("excel.application") <>  0 ) Then
	messagebox(" ","Exel не найден")
	return
End if;
lo_Excel.Visible = true;
lo_Excel.Workbooks.open('C:\Tables\COQ.xls',  2 )
lo_Excel.Application.Run('Auto_Open')
lo_Excel.ActiveWorkBook.WorkSheets[ 1 ].Cells[ 12 , 5 ].value =  38850 . 580 ;
lo_Excel.ActiveWorkBook.WorkSheets[ 1 ].Cells[ 19 , 6 ].value =  0 . 9881 
messagebox(" ", string(lo_Excel.ActiveWorkBook.WorkSheets[ 1 ].Cells[ 11 , 5 ]) ) ////вот здесь, 
            //если бы подгружалась ASTMLib.xla, то должен был бы выдаваться ответ.
lo_Excel.ActiveWorkbook.close(false)
lo_Excel.Quit
lo_Excel.Disconnectobject();