您所在位置：主题：[讨论]实时错误429，activex不能创建对象？
kskksk
[专家分：620] 发布于 2008-02-28 20:42:00
Dim str_Wrong As String '记录考生的错误操作
'以下检查文件是否存在，即要求的（7）
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FileExists("D:\Y\done.doc") Then
MsgBox "没有发现文件：D:\Y\done.doc"
Exit Sub
End If
Dim myDoc As Document
[color=FF0000] Set myDoc = Documents.Open("D:\Y\done.doc") '打开文件[/color]
红色部分
我已经引用了microsoft scripting runtime
和word的引用.还是不会出现
还有按网上的注册控制的方法也试过，也没用，
VB也重装过，还是没用，
到底为什么呀，
'以下检查文件是否存在，即要求的（7）
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FileExists("D:\Y\done.doc") Then
MsgBox "没有发现文件：D:\Y\done.doc"
Exit Sub
End If
Dim myDoc As Document
[color=FF0000] Set myDoc = Documents.Open("D:\Y\done.doc") '打开文件[/color]
红色部分
我已经引用了microsoft scripting runtime
和word的引用.还是不会出现
还有按网上的注册控制的方法也试过，也没用，
VB也重装过，还是没用，
到底为什么呀，
