QTP中对EXCEL进行读操作的格式

Set ExcelApp=CreateObject("Excel.Application")        
Set ExcelWorkbook=ExcelApp.Workbooks.Open(FilePath)          
Set ExcelSheet=ExcelWor.Worksheets(SheetName).UsedRange                

rowcount=ExcelSheet.Rows.count                        ‘计算使用的单元格行数
columncount=ExcelSheet.Columns.count                  ‘计算使用的单元格的列数

For i=1 to rowcount
　　For j=1 to columncount
　　　　Msgbox ExcelSheet.Cells(i,j)                                                               
　　Next     
Next

Set ExcelSheet=Nothing
ExcelWorkbook.Close           
ExcelApp.Quit