vba - VBA : remote server machine not found 中的错误 462

Question

下面的代码是在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

提前致谢

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

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

最后:

您应该避免将 with 块与 Word 应用程序对象一起使用

你应该释放你的变量(Set ... As Nothing, wrdApp.Close, ...)