关于excel的问题?

想请问大家一下,当运行下面代码时,
    Private Sub Command1_Click() '打开Excel过程        If Dir("F:\temp\excel.bz") = "" Then   '判断Excel是否打开
                
                Set xlApp = CreateObject("Excel.Application")   '创建Excel应用类
            
                xlApp.Visible = True '设置Excel可见
            
                Set xlBook = xlApp.Workbooks.Open("F:\temp\VB.xls")   '打开Excel工作薄
                Set XlSheet = xlBook.Worksheet(1) '打开Excel工作表
            
                XlSheet.Activate '激活工作表
                XlSheet.Cells(1, 1) = "abc" '给单元格1行驶列赋值
                
                xlBook.RunAutoMacros (xlAutoOpen)  '运行Excel中的启动宏
        Else
    
               MsgBox ("Excel已打开!")
    
        End If
    End Sub该行
 Set XlSheet = xlBook.Worksheet(1) '打开Excel工作表???????????????????????出现"对象不支持这个属性或方法",请问是怎么回事啊???还有下面的代码部分:
 Sub auto_open()         Open "F:\temp\excel.bz" For Output As #1    Close #1    End Sub    Sub auto_close()         Kill "F:\temp\excel.bz"    End Sub该行 Kill "F:\temp\excel.bz"显示没有找到"文件未找到",请问又是怎么回事啊????