VBA 中的错误 462：找不到远程服务器计算机答案

【问题标题】：Error 462 in VBA : remote server machine not foundVBA 中的错误 462：找不到远程服务器计算机
【发布时间】：2018-02-27 05:04:43
【问题描述】：

下面的代码是在vba中读取一个word文件。但它显示一个错误

VBA 中的错误 462：找不到远程服务器计算机。

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

提前致谢

【问题讨论】：

标签： vba ms-word

【解决方案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

帖子的作者收到错误是因为他没有使用 Access 对象打开和关闭数据库。

最后：

您应该避免将 with 块与 Word 应用程序对象一起使用
您应该释放变量（Set ... As Nothing、wrdApp.Close、...）

【讨论】：

【解决方案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

【讨论】：