[Armsinglom]

а подскажите VBS с exel работает примерно по такой технологии?

Код:

Sub Get_Value_From_Close_Book_Formula()

    Dim sPath As String, sFile As String, sShName As String

    sPath = "C:\Documents and Settings\" '"

    sFile = "Книга1.xls" '"

    sShName = "Лист1" '"

    Application.DisplayAlerts = 0

    With Range("A1:A100")

        .Formula = "='" & sPath & "[" & sFile & "]" & sShName & "'!" & "A1" '"

        '"A1" - указывается начальная ячейка диапазона, из которого необходимо получить значения

        .Value = .Value

    End With

    Application.DisplayAlerts = 1

End Sub