您所在位置：主题：[讨论]Automation 问题
啊远
[专家分：2610] 发布于 2008-10-22 16:37:00
REM ------------------------------------------------
REM - 未引入 CorelDRAW 库时这样调用 : Example1
REM -----------------------------------------------
Dim oCdr As Object
Dim oDoc As object
Set oCdr = CreateObject("CorelDRAW.Application.13")
Set oDoc = oCdr.ActiveDocument
oDoc.SaveAs("E:\abcd.cdr")
Set oDoc = Nothing
Set oCdr = Nothing
REM ------------------------------------------------
REM - 引入 CorelDRAW 库后我这样调用 : Example2
REM -----------------------------------------------
Dim oCdr As Object
Dim oDoc As Document
Set oCdr = CreateObject("CorelDRAW.Application.13")
Set oDoc = oCdr.ActiveDocument
oDoc.SaveAs("E:\abcd.cdr")
Set oDoc = Nothing
Set oCdr = Nothing
Example1 可以调用 SaveAs 方法时说类型转换错误!
Example2 却可以通过!
按理说Example1 运行肯定没有问题才对呀!
大家必须来理一理这个问题了!
REM - 未引入 CorelDRAW 库时这样调用 : Example1
REM -----------------------------------------------
Dim oCdr As Object
Dim oDoc As object
Set oCdr = CreateObject("CorelDRAW.Application.13")
Set oDoc = oCdr.ActiveDocument
oDoc.SaveAs("E:\abcd.cdr")
Set oDoc = Nothing
Set oCdr = Nothing
REM ------------------------------------------------
REM - 引入 CorelDRAW 库后我这样调用 : Example2
REM -----------------------------------------------
Dim oCdr As Object
Dim oDoc As Document
Set oCdr = CreateObject("CorelDRAW.Application.13")
Set oDoc = oCdr.ActiveDocument
oDoc.SaveAs("E:\abcd.cdr")
Set oDoc = Nothing
Set oCdr = Nothing
Example1 可以调用 SaveAs 方法时说类型转换错误!
Example2 却可以通过!
按理说Example1 运行肯定没有问题才对呀!
大家必须来理一理这个问题了!
