Ошибка 462 в VBA: удаленный сервер не найден

Question

следующий код для чтения файла слова в vba. Но он показывает ошибку

Ошибка 462 в VBA: удаленный сервер не найден.

Sub abc()
    Dim fileReader As String
    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    Dim singleLine As Paragraph
    Set wrdApp = CreateObject("Word.Application")
    Set wrdDoc = wrdApp.Documents.Open("C:\Documents and Settings\Administrator\My Documents\Downloads\fwfiles\webs.doc")
    With wrdDoc
        Dim p As Paragraph
        For Each p In wrdDoc.Paragraphs
            fileReader = p.Range.Text
        Next p
    End With
End Sub

Заранее спасибо

Answer 1

Разрывается ли при двойном запуске?

Причина

Visual Basic установил ссылку на Excel из-за строкикод, вызывающий объект, метод или свойство Excel без указания элемента с переменной объекта Excel.Visual Basic не выпускает эту ссылку, пока вы не завершите программу.Эта ошибочная ссылка мешает коду автоматизации, когда код запускается более одного раза.

Разрешение

Чтобы решить эту проблему, изменяйте код так, чтобы каждый вызов Excel вызывалсядля объекта, метода или свойства указана соответствующая переменная объекта.

Источник

Посмотрите здесь: http://support.microsoft.com/default.aspx?kbid=178510

---

Вы также можете посмотреть здесь: http://www.tek -tips.com / viewthread.cfm? Qid = 756598

Автор сообщения получил сообщение об ошибке, поскольку он не использовалПолучите доступ к объекту, чтобы открыть и закрыть базу данных.

---

И наконец:

• вам следует избегать использования блока with с объектом приложения Word
• .освободите ваши переменные (Установить ... как ничего, wrdApp.Close, ...)

Answer 2

или вы можете попробовать эту более короткую версию:

Function abc() As String
    doc = "C:\Documents and Settings\Administrator\My Documents\Downloads\fwfiles\webs.doc"
    Set objDoc = GetObject(doc, "Word.Application")
    abc = doc.Range.Text
    objDoc.Close
    objDoc = Nothing
End