QTP对Excel文件的读写操作

 ExcelContent(1) = DataTable("I_orderId", dtGlobalSheet)斊 ?祗J�R 
 ExcelContent(2) = DataTable("I_orderAmountEqual", dtGlobalSheet)�睆ON彨壠? 
' 写数据到Excel文件kR?t?d蘇 
 Dim Obj, Look, Sheet麥�`9囧芆 
 Set Obj = CreateObject("Excel.Application") 镹:}/蝡擝 
 Obj.Application.Visible = TruegK?DV席T? 
 Set Look = Obj.WorkBooks.Open(strFileName)u<冈郟"氙X 
 Set Sheet = Look.Worksheets(1)胑墰旲猠拽 
 For j = 1 to 2wXV9纸?? 
   Sheet.cells(2,j) = ExcelContent(j)?:-V鑲?? 
 Next�3?cM_?? 
 Obj.DisplayAlerts = False?j0贾�鲁� 
 Look.Close(True)?鞀鄧鵤}? 
 Obj.QuitI璍2鰆? 
 Set Obj = nothingJ遴届fg?g 
End Function

'--------------------------------------------------------------

'从Excel读数据r\i? ? 
Function ReadExcel()1iE敡昰qB 
 datatable.AddSheet("Global")'~9`J褹釋 
 datatable.ImportSheet "E:\cntesting.xls","test","Global"

 Dim i,RowCountFhnP`/软e? 
 i=0Y-;宿,/��? 
 RowCount=datatable.GetSheet("Global").GetRowCount ' 设置 RowCount 等于 Global中的行数。 '脡思Y缿牀 
 msgbox RowCount[羛Yp}t戓 
 Do while i<rowcountP4蟴 ?? 
 i=i+1汱�q/9栍? 
 datatable.getsheet("Global") '?搆�*讈? 
 datatable.setcurrentrow(i)嶤芠衖阜! 
 msgbox DataTable.GetSheet("Global").GetParameter(i).Value '取得第一列的值?昴�吻? 
 h;?Y繯歕 
 datatable.setcurrentrow(n)
厖榷z腌] 
 msgbox Datatable.GetSheet("Global").GetParameter(i+1).Value '取得第二列的值怫錮洎Ac5 
 msgbox datatable.getsheet("Global").getparameter("I_orderAmountEqual").RawValue'取得特定的I_orderAmountEqua列的值窼??魋? 
 loophLn幕V塒 
End Function@湥曷?N| 
WriteExcel   '写入函数调用k髣朙p6p? 
ReadExcel    '读出函数调用