И снова закрытие файлов Word...

[hackPNZ]

Доброго времени суток!!! Никак не могу победить закрытие вордовских документов посредством макроса.

У меня из экселевской книги запускается макрос, который должен заполнить или обновить документ ворд и сохранить его.
код примерно такой(код экспериментальный, поэтому всяких with нет):

    st = "С:\Документ.doc"
    fOpenName = "Документ.doc"

    On Error Resume Next
    Set wrd = GetObject(, "Word.Application")
    
    If wrd.Documents(fOpenName) 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(fOpenName)
        
        wrd.Application.DisplayAlerts = wdAlertsNone
        wrd.SaveAs toSave
        wrd.Application.DisplayAlerts = wdAlertsAll
        wrd.Application.Quit
       
        Set wrd = CreateObject("Word.Application")
        wrd.Documents.Add(st).Activate
        wrd.Visible = True
        Set wrd = wrd.ActiveDocument
    End If
    On Error GoTo 0

Проблемы следующего характера. Иногда файл документа уже сохраненный и временный из макроса открываются как новое приложение ворд (в таск менеджере при этом видим два WINWORD.EXE).

В таком случае код считает что файл не открыт, создает новый документ, а сохранить под нужным именем не может - ошибка 5356 "Файл занят другим процессом". Как срубить этот документ в другом приложении через макрос, непонятно... Причем глюк время от времени проявляется как при открытии документа вручную, так и при создании документа через макрос...

[hackPNZ]

по ходу разборов полетов появилось интересное замечание.

Предположим ситуация: у меня открыт целевой "Документ.doc" и еще какой-либо посторонний документ "Doc2" в котором есть несохраненные изменения.

Теперь я хочу закрыть все документы и обновить "Документ.doc" через макрос. Если я не положу строчку "wrd.Application.Quit" в область с отключенными алертами (как в моем примере), то при выполнении макроса в Doc2 появляется окно "Сохранить изменения?", но макрос не приостанавливается. В результате, ошибка (пока я думал сохранять или нет, макрос все пролопатил и вывалил ошибку 5356, т.к и целевой документ остался открыт).

Если же поместить строку "wrd.Application.Quit" в область с wdAlertsNone, то ворд опять же спросит при выполнении макроса, сохранять документ Doc2 или нет, но при этом приостановит макрос, дождется моего решения, закроет целевой документ и нормально его обновит. Вот такая "фича".

Сорри если объяснил не вполне понятно, не знаю как проще объяснить на пальцах.

[viter.alex]

Попробуй не создавать приложение и потом открывать в нем документ, а сразу открывать документ:

Set wrd = CreateObject(st)

В таком случае, если документ уже открыт, то ты получишь его, а если документ закрыт, то он будет открыт в уже запущенном приложении. Если же и приложение не запущено, то оно будет запущено.

[hackPNZ]

Спасибо большое за совет))) Как всегда помогаете))) Очень элегантное решение! Сейчас протестил, вроде норм, надеюсь так будет и дальше)))

Вот что у меня получилось:

    'если мы хотим перезаписать/впервые создать документ из шаблона
    st="С:\договор.dot"
    toSave = "С:\договор.doc" 
    fOpenName = "договор.doc"

    If task = "create" Then 
                                    
        On Error Resume Next
        Set wrd = GetObject(, "Word.Application")
        
        'if file is closed
        If wrd.Documents(fOpenName) Is Nothing Then
        On Error GoTo 0
            
            Set wrd = CreateObject(st) 
            With wrd
                .Parent.Visible = True
                .Application.DisplayAlerts = wdAlertsNone
                .SaveAs toSave
                .Application.DisplayAlerts = wdAlertsAll
            End With
           
        'if file is opened
        Else
            
            With wrd
                .Application.DisplayAlerts = wdAlertsNone
                .Documents(fOpenName).Close SaveChanges:=wdSaveChanges
                .Application.DisplayAlerts = wdAlertsAll
            End With
            
            Set wrd = CreateObject(st)
            With wrd
                .Parent.Visible = True
                .Application.DisplayAlerts = wdAlertsNone
                .SaveAs toSave
                .Application.DisplayAlerts = wdAlertsAll
            End With
        
        End If
    'если мы хотим обновить документ
    'st="С:\договор.doс"
    
    ElseIf task = "edit" Then

        Set wrd = CreateObject(st)
        wrd.Parent.Visible = True
    Else
        MsgBox errmsgs.errMsg(1), vbCritical
        Exit Sub
    End If

[hackPNZ]

Потестил вордовские документы, описанных глюков больше не замечаю, а вот с экселевской таблицей оказалось не так просто.

То есть, из основной экселевской книги(Книга1) нужно обратиться и взять данные к файлу Книга2. Я пишу код, аналогичный коду для вордовских документов:

Для экселя пишу:

Public Function xlsUpdate(ByVal xlsPath As String) As Object
    Set xls = CreateObject(xlsPath)
    xls.Parent.Visible = True
    Set xlsUpdate = xls
End Function

Тестил построчно в дебаггере это дело. В итоге получается так, что при выполнений строки Set xls = CreateObject(xlsPath) у меня вместо активной Книга1 в окне почему-то появляется Книга2(и заголовок окна эксель изменяется на имя книги2). Книга1 остается висеть в том же Application, но такое ощущение, что к ней применили visible = false.

Затем, при переходе к следующей строчке кода, опять появляется книга1, а вот заставить показаться Книга2 нереально. Но она 100% не закрывается, т.к. если я попытаюсь закрыть окно экселя, то программа спросит, "сохранить Книга2?"

Пробовал всякие "visible" применять, толку ноль. Пробовал с разными пустыми табличками выполнить код, всегда один и тот же эффект.

Пока что открываю книгу2 через Workbooks.Open, но бывает выскакивает старая проблема - запускается новый EXCEL.EXE, соответственно косяки при сохранении Книги2. Выскакивает нечасто, надо сказать, но и понять что к этому приводит не могу...

Можете что-то посоветовать? достала уже эта фигня...

[Lubocka]

Очень помогла эта тема. Спасибо

[Lubocka]

А можно еще пример с Excel.
В ворде отлично, а в екселе никак не получается