vb编程打开excel表格始终显示错误13

Private Sub Command1_Click()
If Dir("d:\temp\excel.xls") = True Then
Set xlapp = CreateObject(Excel.Application)
xlapp.Visible = True
Set xlbook = xlapp.Workbooks.Open("d:\temp\bb\xls")
Set xlsheet = xlbook.Worksheets(1)
xlsheet.Activate
xlsheet.Cells(1, 1) = "abc"
xlbook.RunAutoMacros (xlAutoOpen)
Else
MsgBox ("excelyidakai")
End If
End Sub
Private Sub Command2_Click()
If Dir("d:\temp\excel.xls") <> "" Then
xlbook.RunAutoMacros (xlAutoClose)
xlbook.Close = True
xlapp.Quit
End If
Set xlapp = Nothing
End
End Sub
Private Sub Form_Load()
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim vbexcel As Object
End Sub

xlapp.Workbooks.Open("d:\temp\bb\xls") 仔细看 bb\xls 不是bb.xls?还是别的?

你这么问，相当于说：我被小动物咬了一口。请问：被什么动物咬了一口？