EXCEL输出数据类型不匹配

liangtest

Dim Business(1),Card(1),Money(1),Webmima(1),Order(1)
Dim j,rowCount
datatable.Import "D:\QTP\data.xls"
rowCount=datatable.GetSheet("Global").GetRowCount
'msgbox rowCount
For j=0 to rowCount
         Business(j)=datatable.RawValue("Business","Global")
         Card(j)=datatable.RawValue("Card","Global")
                       Money(j)=datatable.RawValue("Money","Global")
          Webmima(j)=datatable.RawValue("Webmima","Global")
          Order(j)=datatable.RawValue("Order","Global")
Next
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("forumMenuTree").Image("plusbottom").Click
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("forumMenuTree").Image("plus").Click
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("forumMenuTree").Link("接口操作平台").Click
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("main").WebEdit("TextBox1").Set Business
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("main").WebEdit("TextBox2").Set "4001"
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("main").WebEdit("TextBox3").Set Card
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("main").WebEdit("TextBox4").Set Money
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("main").WebEdit("TextBox8").Set "2010-10-10"
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("main").WebEdit("Textbox16").Set Webmima
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("main").WebEdit("TextBox12").Set Order
Browser("XXXXXXXXX").Page("XXXXXXX").Frame("main").WebButton("授权").Click
运行到Browser("XXXXXXXXX").Page("XXXXXXX").Frame("main").WebEdit("TextBox1").Set Business时，显示
类型不匹配: 'Browser(...).Page(...).Frame(...).WebEdit(...).Set Business'，可是我的excel中没有什么问题啊，搞了半天了，郁闷，希望有人帮我解答一下，

liangtest

谢谢了
我修改了一个脚本把business改为business（j）就行了，business如果是在SUB函数中可以用

hsjzfling

1、 看看你的逻辑，似乎是想循环执行授权。。。如果是这样，你需要把next挪到这段代码的尾部
2、 看看报错的原因，很简单，Business你定义的是数组，当然不能直接去Set。
照你的逻辑，你似乎是该写成Business(j)。

PS：非必要情况还是优先考虑datatable的value属性而非rawvalue