思路如下
set webtable1=Browser("").Page("").WebTable("")
得到webtable1的行和列的值
rowCount=webtable1.RowCount
columnCount=webtable1.ColumnCount(1)
在DataTable中创建sheet
Set newSheet=DataTable.AddSheet("newSheet")
创建循环,将从webtable1中取出的值放到newSheet
创建parameter
newSheet.AddParameter "ParamName","Val"
然后用newSheet.SetCurrentRow()
一行行写入数值
可参考QTP unplugged Page 34 for detail program