Работа с открытым файлом Excel

[hackPNZ]

Доброго временени суток!

Подскажите, пожалуйста, как мне лучше поступить в следующем случае. Создаю экселевскую табличку вот таким кодом:

        
Set values = CreateObject("Excel.Application")
        fpath = ThisWorkbook.Path & "\Расчет.xls"
        values.Workbooks.Add(fpath).Activate
        With values
             ............
       End With

Вопрос, если файл открыт, как мне прибить его к объекту values? В плане, как написать проверку открыт файл или нет я знаю... Не могу никак заставить работать с помощью GetObject... Мне важно чтобы весь алгоритм в With values работал одинаково как при создании файла, так и при изменении открытого. То есть чтобы и по CreateObject и по GetObject там лежал один и тот же объект...

[EducatedFool]

Создаю экселевскую табличку вот таким кодом:

Судя по ThisWorkbook.Path, этот код запускается из Excel
Тогда зачем всё так усложнять???

если файл открыт, как мне прибить его к объекту values?

Что это за такой объект? Зачем он?

Мне важно чтобы весь алгоритм в With values работал одинаково как при создании файла, так и при изменении открытого.

Какой алгоритм?

[hackPNZ]

Ну скажем так, у меня есть некоторая анкета (вот как раз она This Workbook), на ее основе я заполняю шаблон расчетов в экселе(объект values) и потом договора вордовские.

Так вот в анкете написан макрос, обновляющий таблицы расчетов, он открывает расчет через CreateObject и после выполнения расчетов перезаписывает файл. Вот проблема возникает, если файл расчетов открыт в момент запуска макроса..

Я вообще недавно изучаю VBA, поэтому чет ничего культурное не придумаю как бы лучше это реализовать... В идеале надо чтобы этот макрос мог выполняться и из расчетов и при этом не комильфо тупо его копировать в макросы расчетов и подправлять там код... дублирование кода бесполезное получится....

[EducatedFool]

Ну скажем так, у меня есть некоторая анкета (вот как раз она This Workbook), на ее основе я заполняю шаблон расчетов в экселе(объект values) и потом договора вордовские.

Ну скажем так, я мало что понял из вышесказанного...

Одно могу заявить с уверенностью: никакие CreateObject("Excel.Application") и GetObject в коде не нужны - вполне достаточно ОДНОЙ запущенной копии приложения Excel.

[hackPNZ]

То есть если книга не открыта, юзаем Open, если открыта обращаемся напрямую через Workbook(Name) и творим там что хотим?

[hackPNZ]

Я решил данную проблему вот так:

    fActName = "Акт.doc"
    st = ThisWorkbook.Path & "\" & fActName

    On Error Resume Next
    Set wrd = GetObject(, "Word.Application")
    
    'проверяем открыт ли файл.
    If wrd.Documents(fActName) Is Nothing Then

        Set wrd = CreateObject("Word.Application")
        wrd.Documents.Add(st).Activate
        wrd.Visible = True
        Set wrd = wrd.ActiveDocument

    Else
        Set wrd = wrd.Documents(fActName)
    End If
    On Error GoTo

Макрос запускается из экселя и заполняет документ Акт данными.