VBA 中的错误 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，...）