请问下面这段代码错在哪里啊?

[wealth]

请问下面这段代码错在哪里啊?

Private Sub Command3_Click()
Dim xObject As Object
Set xObject = CreateObject("Excel.Sheet")
Set xObject = xObject.application.activeworkboo.activesheet
xObject.range("A1").Value = "thank you"
xObject.range("A2").Value = "Hello,world"
xObject.application.Visible = False
'xObject.Cells(1, 1).Value = "This is column A, row 1"

xObject.SaveAs "d:\forum\xobject.xls"
xObject.application.quit
Set xObject = Nothing

End Sub

[jo_yoko]

首先你得引用Excel对象，这个应该会吧
private sub cmd_click()
dim xlApp as Excel.Application
dim xlBood as Excel.Workbook
dim xlSheet as Excel.Workdsheet

set xlApp=new Excel.Application
set xlBook=xlApp.Workbooks.Add
set xlSheet=xlBook.Worksheets.Add
'赋值
xlSheet.Cells(1,1).value="thank you"
xlSheet.Cells(2,1).value="hello world"
'保存
xlSheet.SaveAs "C:\test.xls"
'关闭对象
xlApp.Quit
'释放对象
set xlSheet=nothing
set xlBook=nothing
set xlApp=nothing
end sub

[footballboy]

Set xObject = xObject.application.activeworkbook.activesheet

[jo_yoko]

你应该分别定义一个excel对象和一个excel.sheet的对象

[wealth]

怎样改?