请教VB6.0写入excel2007报错？

为什么在win7旗舰版32位操作系统下，用VB6.0写入excel2007时，提示不能创建对象？我引用过了！
高手看看，谢谢！

Public xl1 As Excel.Application
Public xl2 As Excel.Workbook
Public xl3 As Excel.Worksheet
----------------------------------------------------------
Private Sub Command1_Click()
Set xl1 = CreateObject("Excel.application")
Set xl2 = xl1.Workbooks.Open("e:\1.xlsx")
xl1.Visible = True
Set xl3 = xl1.Worksheets("sheet1")
xl1.Cells(1, 1) = Text1.Text
xl2.Close (True)
xl1.Quit
Set xl1 = Nothing
End Sub
------------------------------------------------------------

上传附件，你给个截图人家怎么调试吖！！！

估计是这一句错了
Set xl1 = CreateObject("Excel.application")
改为
Set xl1 = GetObject( , "Excel.application")

[ 本帖最后由 灰袍法师 于 2011-8-2 19:52 编辑 ]

楼上，好像不是你说的那样呀，求解答



Desktop.rar (1.23 KB)

set xl1 = GetObject(, "Excel.Application")

括号里面有一个逗号的，楼主看清楚了。