创建对象，运行错误，求助!

lxh541018

Dim ExcelSheet
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
ExcelSheet. ActiveSheet.Cells(1,1).Value = "这是第一行第一列"
ExcelSheet.SaveAs "C:\DOCS\TEST.XLS"
ExcelSheet.Application.Quit

刚接触QTP,想练习下教程中的例子，但在运行时一直会报第2行错误“general run error. line(2):Set ExcelSheet = CreateObject("Excel.Sheet")
”，真心求教大神！

wsryyffs

回复 1# lxh541018


    增加：Set ExcelApp = CreateObject("Excel.Application")