Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Закрыть Word после копирования
 
#1
13.10.2014 17:55:26
Всем Мяу!
Создаем экземпляр Word, поработали, все скопировали, в Excel вставили, осталось малое - убить Word.
Код
Sub t()
    Set wa = CreateObject("Word.Application")
    ' скопировали , вставили...
    ' осталось закрыть Word
    On Error GoTo 0
    '            wa.CutCopyMode = False
    wa.DisplayAlerts = False
    wa.Quit
    wa.DisplayAlerts = True
    Set wa = Nothing

End Sub

А не тут то и было. Word убиваться не желает.
И ошибки нет, и Word не закрывается.
При попытке закрыть ручками, кричит, что в буфере большой объем данных, и не оставить ли их там?
Где собака порылась?
Другой час ничего придумать не могу...
кросс
Изменено: RAN - 13.10.2014 17:58:34
 
 
 
#2
13.10.2014 18:28:22
а собственно почему документ не создали ?
Вам даже при таком коде данные вставит некуда, так как документ не создан, загружен только application
Изменено: B.Key - 13.10.2014 18:28:35
 
 
 
#3
13.10.2014 18:29:46
wa.document add....
 
 
 
#4
13.10.2014 18:29:53
Создал и уже убил в цикле

         
Код
 Application.CutCopyMode = False
            wd.Close False
            Set wd = Nothing
 
 
 
#5
13.10.2014 18:34:32
приведите полный код создания докумена и как вы его закрыватете
 
 
 
#6
13.10.2014 18:43:17
Код
Sub q()
    Dim arr
    Application.ScreenUpdating = False
    Set wa = CreateObject("Word.Application" ) 
    wa.Visible = True
    foldPath = ThisWorkbook.Path & "\"
    fPath = Dir(foldPath)
    On Error Resume Next
    Do While fPath <> ""
        If fPath Like "*.doc*" Then
            Set wd = wa.Documents.Open(foldPath & fPath)
            wa.Selection.WholeStory
            wa.Selection.Copy
            With shtmp
                .Activate
                .Range("A1"  )  .Select
                '               .UsedRange.Clear
                .Columns("A:F"  )  .Clear
                .Columns("A:F"  )  .NumberFormat = "@"
                .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
                              False, NoHTMLFormatting:=True
' Код VBA ............
            End With
            Application.CutCopyMode = False
            wd.Close False
            Set wd = Nothing
            With shSablon
   'Код VBA .............
            End With
        End If
        fPath = Dir
    Loop
    With shSablon
'Код VBA .................
    End With

' дальше спупор

    On Error GoTo 0
    '            wa.CutCopyMode = False
    wa.DisplayAlerts = False
    wa.Quit
    wa.DisplayAlerts = True
    Set wa = Nothing

End Sub
 
 
 
#7
13.10.2014 18:48:49
я думаю скорее всего документ в цикле не закрылся и так как стоит пропуск ошибок вы его и не видитите
msgbox wa.Documents.count  перед закрытием аппликейшена должен выдать 0
 
 
 
#8
13.10.2014 18:50:56
Цитата
B.Key пишет: должен выдать 0
И выдал 0!
 
 
 
#9
13.10.2014 18:52:38
On Error Resume Next...... и ошибок нет?
 
 
 
#10
13.10.2014 18:53:42
М-да...Толпа переменных, для которых не видать строк назначения им значений(shtmp, shShablon)
Притом странно, что копируете Вы данные в Word (wa.Selection.Copy), а буфер очищаете из Excel(Application.CutCopyMode = False).
Для DisplayAlerts в данном случае лучше все же вообще не играть:
Т.к. сначала осуществляете выход из приложения, а потом пытаетесь изменить его свойство. Как Вы себе сами это представляете?
Лучше уж либо так:
Код
wa.Quit 0 'закрывает приложение и все файлы без сохранения
либо так:
Код
wa.DisplayAlerts = 0
wa.Quit
Set wa = Nothing
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#11
13.10.2014 18:54:06
а если все убрать?

Код
Sub t()
    Set wa = CreateObject("Word.Application")
    
   Set wd = wa.documents.Add
  wd.Close False
    wa.Quit
    Set wa = Nothing
 
End Sub
Изменено: B.Key - 13.10.2014 18:57:46
 
 
 
#12
13.10.2014 18:59:24
Уряяяя!
Код
      wa.Quit False
    Set wa = Nothing
так пошло.
Затупил жуткостно...

PS shtmp, shShablon - codeNames

Всем спасибо.
Изменено: RAN - 13.10.2014 19:59:10
 
 
 
#13
13.10.2014 19:01:08
Цитата
B.Key пишет: On Error Resume Next...... и ошибок нет?
Код
On Error GoTo 0
и нет.
 
 
 
#14
13.10.2014 21:45:00
Не кошерное кошачье это дело - с Word работать)) То ли дело Excel!
 
 
 
Страницы: 1
Читают тему
Наверх