将GlobalSheet中的数据逐一插入到对应WebTable中
将GlobalSheet中的数据逐一插入到对应WebTable中这几天在做一个大量数据输入的操作——按顺序将dtGlobalSheet里20行30列的数据一个一个复制到一个20行30列的WebTable表里。
一开始录入数据时：
'第一行第一列
Browser("XXX").Page("XXX").Frame("XXX").WebEdit("ctl00$cph$grd_P2009001_1").Set "11"
'第一行第二列
Browser("XXX").Page("XXX").Frame("XXX").WebEdit("ctl00$cph$grd_P2009001_2").Set "12"
'第二行第一列
Browser("XXX").Page("XXX").Frame("XXX").WebEdit("ctl00$cph$grd_P2009002_1").Set "21"
'如果只修改单元格，不但麻烦，而且会遇到无法识别的问题，如：
'直接写第六行第一列，但并没有录制第六行，会提示该对象无法识别
Browser("XXX").Page("XXX").Frame("XXX").WebEdit("ctl00$cph$grd_P2009006_1").Set "61"
'所以，我决定采用WebTable的方式进行，我的方法如下：
Set w_WebTable = Browser("XXX").Page("XXX").Frame("XXX").WebTable("XXX")
For I = 1 To w_WebTable.RowCount
For J =1 To w_WebTable.ColumnCount(I)
'此行希望获取WebTable下的该单元格
Set CellValue = w_WebTable.ChildItem(I, J, "WebEdit" , 0 )
'此行希望将dtGlobalSheet中的值赋给该单元格
CellValue.Set DataTable("line"&J, dtGlobalSheet)
Next
Next
但是获取单元格有问题，不知道该怎么改才能满足需求——事实上，我根本就没明白 w_WebTable.ChildItem的确切含义。
到网上问了一下，有个兄弟提供了解决方案：
Set w_WebTable = Browser("XXX").Page("XXX").Frame("XXX").WebTable("XXX")
strRowCount = w_WebTable.RowCount
'w_WebTable.HighLight
For intRow = 1 To strRowCount
strColCount =w_WebTable.ColumnCount(intRow)
For intCol = 1 To strColCount
w_WebTable.ChildItem(intRow,intCol,"WebEdit",0).Set DataTable.GlobalSheet.GetParameter("line"&intCol).ValueByRow(intRow)
Next
Next
试过还是有问题，总是说什么运行错误，但他无意中加的这句w_WebTable.HighLight，让我看到，QTP取的是整个Table，而这个Table包括了前三列只读的部分，于是，稍加修改，将其改为：
Set w_WebTable = Browser("XXX").Page("XXX").Frame("XXX").WebTable("XXX")
strRowCount = w_WebTable.RowCount
'w_WebTable.HighLight
For intRow = 1 To strRowCount
strColCount =w_WebTable.ColumnCount(intRow)
For intCol = 4 To strColCount
w_WebTable.ChildItem(intRow,intCol,"WebEdit",0).Set DataTable.GlobalSheet.GetParameter("line"&(intCol-3)).ValueByRow(intRow)
Next
Next
运行成功！
学到几点：
1、如果WEB页面上单元格非常多，就通过捕获WebTable的方式进行单元格填写；
2、如果WebTable经常出错，就通过WebTable.HighLight去看究竟捕获的包含哪些部分；
3、WebTable.ChildItem(intRow,intCol,"WebEdit",0)指的是WebTable上第intRow行，第intCol列，名为WebEdit的单元格，通过Set将DataTable中Sheet（如GlobalSheet）的值逐一的赋值给Web上该单元格。
页:
[1]
