Documents("成绩表").Activate 运行第二次出错了

lxz_lz · 发表于 2006-3-10 17:28

Documents("成绩表").Activate不起 ‘----提示Document未定义？ ActiveDocument.ActiveWindow.Close wordApp.Quit 上面代码写在一个事件里，打开一次成绩表，运行上面代码没有问题，第二次运行上面代码就出错了,说document没有值？打开相同的一个文档两次，打开第二次之前，word都关掉了的，怎么第二次就出错？

骷髅头 · 发表于 2006-3-10 18:23

你是不是在VB里调用word

lxz_lz · 发表于 2006-3-13 08:44

是啊...

守柔 · 发表于 2006-3-13 11:43

Documents("成绩表.doc").Activate

lxz_lz · 发表于 2006-3-13 15:44

还是不行，第二次运行，仍然报错提示“远程服务器不存在或不能使用”

lxz_lz · 发表于 2006-3-13 15:46

Set myDoc = wordApp.Documents.Open("E:\成绩表001.doc") '打开Word文件
Documents("成绩表001.doc").Activate不起 ‘----提示Document未定义？
ActiveDocument.ActiveWindow.Close
wordApp.Quit

以上代码运行第一次没有出错，再点一次按钮，第二次运行，就报错了？

守柔 · 发表于 2006-3-13 16:46

你的OFFICE是2000吗？2000中我也遇到了这个问题，时灵时不灵的。我目前尚未找到有效解决途径，只是结束后关闭文档再运行。

lxz_lz · 发表于 2006-3-13 16:56

office2003

结束时关闭文档再运行？是说程序代码关闭文档？代码怎么写呢？还是说手动去关掉word？还是...

骷髅头 · 发表于 2006-3-15 13:32

呵呵，我以前出现这个问题，因为VB与VBA是不一样的

原因文档第一打开后，会当前活动默认为是，第二次打的时，你没有定义

Word对象，自然就没有未定义喽

Dim DocApp As Word.Application '声明类型
Dim aDoc As Word.Document
Dim DocTable As Word.Table

Set DocApp = CreateObject("Word.Application") '创建Word对像
DocApp.Documents.Open ("E:\成绩表001.doc") '
Set aDoc = DocApp.Documents("E:\成绩表001.doc") '
这样就可以了

aDoc.Save aDoc.Close Set aDoc = Nothing DocApp.Quit Set DocApp = Nothing

[此贴子已经被作者于2006-3-15 13:34:53编辑过]

lxz_lz · 发表于 2006-3-16 08:45

还是不大明白，word对象我是定义在窗体的最顶端了，但我关掉窗口，然后再打开窗口，不是又定义了一次word对象吗，这样还是不行，哎。。。
非得要写在同一个事件里呀？不过，还是要谢谢楼上的朋友帮我找找原因啊 :)

		自动登录	找回密码
密码			免费注册