VBNet - Форум - Многократное открытие документа Word из Excel

Вопрос: Многократное открытие документа Word из Excel Добавлено: 11.03.08 10:21

Автор вопроса: Dmitry

Помогите, пожалуйста! Я сделал в excel форму с кнопкой, при нажатии которой отрывается документ в word, выдается название документа и первое слово первого абзаца. Затем документ вместе с word закрывается. Все работает… Но, при повторном запуске процедуры, то есть нажатии на кнопку выдается ошибка 462 (Удаленный сервер не существует или не доступен). Открывается документ и вываливается ошибка при любом обращению к его содержимому. В данном листинге при выполнении строки Documents(fileW).Activate . Я пишу программу, в которой нужно многократно открывать для извлечения информации один и тот же файл. Что посоветуете?

Private objWord As Word.Application
Private FlagW As Boolean
Private zu As String

Private Sub CommandButton1_Click()
Dim fileW As String
Dim re As String
Dim wordapp As Word.Application
Dim objDoc1, objDoc0 As Document

fileW = ThisWorkbook.Path & "\ball1.doc"
FlagW = False
On Error GoTo errorhandler
Set objWord = GetObject(, "word.application")
objWord.Application.DisplayAlerts = wdAlertsNone
With objWord
.Visible = True
.Documents.Open Filename:=fileW
End With
Documents(fileW).Activate
re = ActiveDocument.Name
MsgBox re
re = ActiveDocument.Paragraphs(1).Range.Words(1)
MsgBox re
'Set objWord = GetObject("word.application")

destructor
Exit Sub

errorhandler:
    Select Case Err.Number
        Case 429
            FlagW = True
            Set objWord = CreateObject("word.application")
            Resume Next
        Case Else
            MsgBox Err.Description & " " & Err.Number, vbInformation
            Exit Sub
    End Select
destructor
End Sub

Private Sub destructor()
Set objDoc = objWord.ActiveDocument

    objWord.ActiveDocument.Close
    'If FlagW = True Then
    objWord.Quit
    Set objWord = Nothing
End Sub
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: GDK Вопросов: 13 Ответов: 348	Профиль \| \| #1	Добавлено: 11.03.08 12:31
	Пошаговую отладку попробуй. Контролируй переменные. Ответить

Номер ответа: 2 Автор ответа: Dmitry Вопросов: 1 Ответов: 2	Профиль \| \| #2	Добавлено: 11.03.08 12:55
	Пробовал и многократно и по разному и... просто вываливается на обращении к документу. Ответить

Номер ответа: 3 Автор ответа: Pavel Вопросов: 0 Ответов: 36	Профиль \| \| #3	Добавлено: 11.03.08 22:56
	http://bit.pirit.info/forum/viewtopic.php?t=6097&sid=92febef81bf8dfd263429a1e22d7835e Ответить

Номер ответа: 4 Автор ответа: Dmitry Вопросов: 1 Ответов: 2	Профиль \| \| #4	Добавлено: 18.03.08 08:43
	Спасибо - вопрос решен! Ответить

Страница: 1 |