调用子程序，总是提示类型不匹配

yueyang

我定义了一个vbs,里面有个子程序
sub SaveDatatable(sfilePath, irow)
...
end sub

在action中调用时，却总是提示“类型不匹配”
调用方式：
SaveDatatable sfilePath, irow

rivermen

主要原因可能还是因为你的第2个参数 “1” 现在用了字符串了
所以通过了

你可以不用call再试试看
SaveDatatable "e:\output.xls", "1"

yueyang

多谢 hsjzfling 的提醒。
我用call SaveDatatable("e:\output.xls", "1") 可以了。的确是强制转换！！

sterson

Set ExcelObj = CreateObject("Excel.Application")
可能是这句出问题了...

看看你的QTP加载了active X了没有

hsjzfling

楼主请注意，调用带参数的Sub（最好是调用所有的Sub）都使用Call，否则很容易就会出问题的。
记得songfun老大以前的帖子中也强调过这个问题

yueyang

SaveDatatable "e:\output.xls", 1
call SaveDatatable("e:\output.xls", 1)
都试了，不行啊，不知道 lengz 说的类型强制转换，如何转换？
我用的是qtp9.2

sstars

估计十有八九：testsettings>resources>libraries中没有加载你的vbs

sterson

'调用
Call SaveDatatable("c:\a.xls",3)


'实现
  Sub SaveDatatable(sfilePath,irow)
        Dim i, j
        Dim ExcelObj, ExlSheet   
        i=datatable.GetSheet(1).GetParameterCount         '取列数
        
        Set ExcelObj = CreateObject("Excel.Application")
        ExcelObj.Visible = False
        ExcelObj.Workbooks.Open sfilePath ,ForWriting, False
        Set ExlSheet = ExcelObj.Workbooks(1).Worksheets(1)

        For j=1 to i
                ExlSheet.Cells(irow,j) = datatable.Value(j, 1)  
        next
        ExcelObj.ActiveWorkbook.Save
        ExcelObj.Application.Quit
        Set ExcelObj = Nothing        
        set ExlSheet = Nothing

End Sub

当然,前提是要在C盘先创建一个a.xls的文件.

sterson

在我的电脑里运行了,没错...

是不是你的其它地方出错了..????

lengz

可能是变量类型的问题把，强制转换一下试试～

rivermen

调试：
1. call SaveDatatable("c:\1.txt",5)
用常数作为参数试试看

2. 把 SaveDatatable 中的代码全部注视掉
留一个 msgbox “调用中。。。”

3. 打印 Parameter("") 这些值，看看他们的内容是不是有问题

yueyang

savedatatable 定义如下：
sub SaveDatatable(sfilePath,irow)
        Dim i, j
        Dim ExcelObj, ExlSheet   
        i=datatable.GetSheet(1).GetParameterCount         '取列数
       
        Set ExcelObj = CreateObject("Excel.Application")
        'ExcelObj.Workbooks.Open sfilePath
        ExcelObj.Visible = False
        ExcelObj.Workbooks.Open sfilePath ,ForWriting, False
        Set ExlSheet = ExcelObj.Workbooks(1).Worksheets(1)

        For j=1 to i
                ExlSheet.Cells(irow,j) = datatable.Value(j, 1)  
        next
        ExcelObj.ActiveWorkbook.Save
        ExcelObj.Application.Quit
        Set ExcelObj = Nothing       
        set ExlSheet = Nothing

End Sub

yueyang

问题见图片
断点处就是调用过程，下面的调试显示有两个参数的数据

sterson

那就试一下用 call SaveDatatable(sfilePath, irow)

hsjzfling

调用sub的那行语句就是SaveDatatable sfilePath, irow么？建议楼主将错误的信息截图贴上来吧