QTP中读数据到外部excel中

'创建了一个dictionary对象，并给对象设置key和value
Dim objdir
Set bjdir = CreateObject("scripting.dictionary")
objdir.Add "a","1001"
objdir.Add "b","1002"
objdir.Add "c","1003"

MsgBox (objdir("a"))

'调用Createexcel过程把dictionary对象的数据导出到外部excel保存，这里传入的d:\2.xls是一个不存在的，
'也可以传入已经存在的excel做参数，那么就不用增加Workbook，而是直接打开ExcelObj.Workbooks.Open(filename)
 call Createexcel(objdir,"d:\2.xls")

Sub Createexcel(dictionary,filename)
   Dim obje,objsheet
   Set bje = createObject("Excel.application")'新建一个Excel.application对象
   obje.Workbooks.Add                             '增加一个Workbook
   set bjsheet = obje.Sheets.Item(1)'增加一个sheet,可以输入索引做为参数，也可以直接输入存在的sheet名
   objsheet.name="test page"

   Dim row
   row =1
  '循环写入到ＥＸＣＥＬ的sheet中
   For  Each key In dictionary.keys
    objsheet.cells(row,1) = key
    objsheet.cells(row,2) = dictionary(key)
  row = row+1
   Next

   objsheet.Columns("A:A").ColumnWidth = 20
   objsheet.Columns("A:A").Font.Bold = True
   objsheet.Columns("B:B").ColumnWidth = 60
   objsheet.Columns("B:B").HorizontalAlignment = -4108
  
   obje.ActiveWorkbook.SaveAs(filename)

   obje.Quit
   Set bje =nothing
End Sub