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

yueyang

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

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

hsjzfling

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

sterson

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

yueyang

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

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

rivermen

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

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

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

lengz

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

sterson

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

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

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的文件.

sstars

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

yueyang

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

hsjzfling

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

sterson

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

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

yueyang

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

rivermen

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

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