|
这几天在做一个大量数据输入的操作——按顺序将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
但是获取单元格有问题,不知道该怎么改才能满足需求,希望牛人指点!万分感谢! |
|