出现"实时错误462远程服务器不存在或不能使用"

hgdszct 2007-06-28 11:46:37
Sub A(ByVal fileFolder As String)
Dim app As New Word.Application
Set app = New Word.Application
Dim doc As Word.Document
app.Visible = True
Set doc = app.Documents.Open(fileFolder & FileName) '打开文件
Dim str As String
Dim myRange1 As Word.Range
Set myRange1 = ActiveDocument.Range(Start:=0, End:=ActiveDocument.Words(1).End)
str = myRange1.Text
MsgBox str
doc.Close savechanges:=wdDoNotSaveChanges
app.Quit
Set app = Nothing
End Sub
我两次连续调用此过程,参数分别为"D:\test1\" "D:\test2\",调用第一个没有问题,第二个出现"实时错误462远程服务器不存在或不能使用" ,我点调试光标在Set myRange1 = ActiveDocument.Range(Start:=0, End:=ActiveDocument.Words(1).End)一行,我想应该是ActiveDocument还是上次,没有关闭,但怎么解决呢
...全文
525 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
Asimage 2008-08-25
  • 打赏
  • 举报
回复
帮顶
UltraBejing 2008-04-30
  • 打赏
  • 举报
回复
不知,帮顶
meiZiNick 2008-04-30
  • 打赏
  • 举报
回复
好像没那么简单,呵呵.
huangfuxy 2007-07-16
  • 打赏
  • 举报
回复
怎么解决的,能不能告诉我方法,谢谢,我的邮箱huangfuxy@126.com
hgdszct 2007-07-14
  • 打赏
  • 举报
回复
问题已经解决了
huangfuxy 2007-07-13
  • 打赏
  • 举报
回复
上面的问题有没有解决呀,我也遇到同样的问题了,请大家帮忙出出点子
Tiger_Zhao 2007-07-04
  • 打赏
  • 举报
回复
首先将全局的 ActiveDocument 定义去除, 再在函数内的 ActiveDocument 前加个 app. 限定。
hgdszct 2007-06-29
  • 打赏
  • 举报
回复
clear_zero(clear_zero) 还是不行啊
jacktown 2007-06-29
  • 打赏
  • 举报
回复
当前活动文档
cangwu_lee 2007-06-28
  • 打赏
  • 举报
回复
ActiveDocument 是什么?
clear_zero 2007-06-28
  • 打赏
  • 举报
回复
ActiveDocument.save
app.Quit

试试看

2,461

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧