excel用vb给单元格赋值提示“要求对象”？

[hillskysea]

程序如下，刚学了不久，我想把vb窗体中输入的值用excel报表输出，最后一句老报错：错误“424”，要求对象？？
Private Sub Command1_Click()
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlapp = CreateObject("Excel.Application")
Set xlbook = xlapp.Workbooks.add
xlapp.Visible = True
Worksheets("Sheet1").Activate
Set xlsheet = xlbook.Worksheets(1)
xlsheet1.Range("A3") = 0 ‘这句报错

[zhiyongtu]

xlbook.Worksheets("Sheet1").Activate
Set xlsheet = xlbook.Worksheets(1)
xlsheet.Range("A3") = 0

[hillskysea]

楼上的意思是worksheets前多加一个xlbook？
我加了还是出现一样的问题啊

[hillskysea]

感谢，已经搞定啦，原来是xlsheet前多了一个1，晕