QTP excel处理

闲来无事...写一个excel 处理的代码

Dim X1

set X1=CreateObject("Excel.Application")
X1.WorkBooks.Open "d:\test.xls"
'赋值
X1.WorkSheets("Sheet1").Cells(1,1) = "Superfang_test"
'保存
X1.ActiveWorkBook.save
X1.Quit
set X1 = Nothing