QTP--往excel表格中写入数据

  写入表格51Testing软件测试网oPj/q K

x)Qq4L%J%{&o m"v0      Dim fso, ddFilePath, i
d*`"^4C g1d4L1{0      Dim ExcelBook, ExcelSheet,myExcelBook,myExcelSheet
6~4Xh^8T g{ ~4bw0      Dim rowcount, columncount51Testing软件测试网iyqg_t"}(u~ A

        ddFilePath = "E:\a.xlsx"51Testing软件测试网h;{;u.^a$Lci*Ac

$|5[-^:if0        Set fso = CreateObject("Scripting.FileSystemObject")
'db,wo'Z2wu\0        Set ExcelBook = CreateObject("Excel.Application")
Mcq'fo*WEnq0        Set ExcelSheet = CreateObject("Excel.Sheet")51Testing软件测试网q#Z$Y$QN _/ou
  51Testing软件测试网8@1S1kQQZ'T
        Set myExcelBook = ExcelBook.WorkBooks.Open(ddFilePath)
8E"O)quo/r0       '查询sheet1中使用的区域
#O%y2B:w IC6Y0        Set myExcelSheet = myExcelBook.WorkSheets("Sheet1").UsedRange51Testing软件测试网8RY,\qj\)^-E
        ExcelSheet.Application.visible = False 51Testing软件测试网 d"E_6{*Y3s
       '使用的行
2]9\@'D f6k0        rowcount = myExcelSheet.Rows.count
Ay&pdV|!|n0       '使用的列
JU7I1j#V4N.g$d0        columncount = myExcelSheet.Columns.count 51Testing软件测试网?+R"og8F"SXl

f7V"WJ&Lp.{v?0        '插入表头，判断使用的行数为1，空表格返回的使用行数是1，第一行有数据返回的值也是1。51Testing软件测试网{'U.w-F
Hh1[2z
        If  (rowcount=1 )  then 51Testing软件测试网0|E}z9H
        myExcelSheet.Cells(1,1).Value = "AA"51Testing软件测试网SB|9V m%U
        myExcelSheet.Cells(1,2).Value = "BB"   51Testing软件测试网`/t2u2Y$S
        myExcelSheet.Cells(1,3).Value = "CC"51Testing软件测试网U5Pek0t)Haf9\
        myExcelSheet.Cells(1,4).Value =  "DD"   

W*HxLTq0        myExcelSheet.Cells(1,5).Value =  "EE" 
M2C~Cx eG*h l0        end if 
$z0xCK.n1S:gN5X.u0        51Testing软件测试网\] y!?3VaK!jd

G
p o~Xw+^T0        '如果使用行数大于1的，继续下一行写入数据（增加列也同理）。
"Amh&u(]B,r0        i= rowcount+1 51Testing软件测试网_-c*C`5[bM{
        myExcelSheet.Cells(i,1).Value = "1" 51Testing软件测试网 S0~:h7Ya)h1O
        myExcelSheet.Cells(i,2).Value = "2"        51Testing软件测试网/Sr;[}\a/gE
        myExcelSheet.Cells(i,3).Value = "3"        
]/Aw4dy:{0u#Nj0        myExcelSheet.Cells(i,4).Value = "4"        
la[-{0{U:L&uI6}0        myExcelSheet.Cells(i,5).Value = "5" 

        myExcelBook.Save51Testing软件测试网.U\u"aY

-}w3r'y L9a9TQ0        ExcelBook.Quit
|#u/V+\;Tz.A(s0        Set ExcelBook = Nothing

       ......51Testing软件测试网\kA:J nu