Подскажите, нажал в редакторе создать новый проект ActiveX exe, написал такой текст:
_____________________________________________________________
Public Function IIR2(o As Variant) As Variant

'CHEK IS FILE OPEN?
Y = IsWorkBookOpen("C:\Documents and Settings\Xtick\Ðàáî÷èé ñòîë\trades4.xls")
If Y = True Then
Sheets(1).Cells(2, 5).Value = o
Exit Function
End If
IIR2 = 1
' OPEN FILE IS NOT OPEN
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Documents and Settings\Xtick\Ðàáî÷èé ñòîë\trades4.xls")
objExcel.Visible = True

End Function
_________________________________________________________________________
Public Function IsWorkBookOpen(wbPath As String) As Boolean

On Error Resume Next
Open wbPath For Input Lock Read As #1
Close #1
IsWorkBookOpen = Err.Number <> 0

End Function
_____________________________________________________________________________

Другая программа вызывает эту функцию, примерно раз в 1-3 секунды. Так вот, нажимаю запуск и все работает как мне надо. Но создав из этого файл exe, работает только первый запрос, на второй
раз программа которая вызывает функцию выдает ошибку (Method/function "IIR2" call failed).
В чем подвох? Что надо сделать? )))))))