如何使用 OLE 引用内置 MS Excel 类型

Question

我的应用程序应该在 Excel 中执行一些简单的操作，例如添加图表、列表对象等。我正在使用 OLE 连接。问题是，某些 Excel 方法采用内置类型（枚举）作为参数。我对提及它们没有任何想法。例如：

WorkBook.ActiveSheet.ListObjects.Add(xlSrcRange, Range("$D$5:$J$15"), , xlNo).Name = "Table1"

xlSrcRange和xlNo属于内置枚举。我尝试按以下方式引用它们

ExcelApp.xlSrcRange
ExcelApp.XlListObjectSourceType.xlSrcRange
ExcelApp.XlListObjectSourceType

此代码会导致错误“对象不支持属性或方法ExcelApp.xlSrcRange”

New XlListObjectSourceType.xlSrcRange
new xlSrcRange

此代码也会导致错误（未知变量XlListObjectSourceType和xlSrcRange）

我使用QTP，脚本语言是VB-script

Answer 1

.wsf 脚本可以通过 Excel.Sheet 引用访问 xl* 常量：

type xlconst.wsf

<?xml version="1.0" standalone="yes" encoding="iso-8859-1" ?>
<package>
 <job id="xlconst">
  <reference object="Excel.Sheet" reference="true"/>
  <script language="VBScript">
   <![CDATA[
' ############################################################################
For Each arg In WScript.Arguments.Unnamed
    WScript.Echo "Const " & arg & " = " & Eval(arg)
Next
' ############################################################################
   ]]>
  </script>
 </job>
</package>

输出：

cscript xlconst.wsf xlNo xlYes

Const xlNo = 2
Const xlYes = 1

普通 VBScript 不能。如果 QTP 仅限于纯 VBScript，则您必须手动添加/定义常量。也许上面的 .wsf 会让这个任务变得更容易。

Answer 2

使用完全限定名称怎么样？

dim sourceType As Excel.XlListObjectSourceType
sourceType = Excel.XlListObjectSourceType.xlSrcRange

编辑：（在 vb 脚本中）

dim sourceType 
sourceType = 1