怎么回事啊!!高手进来看看
Dim zsbexcel As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Private Sub Command1_Click()
Set zsbexcel = New Excel.Application

zsbexcel.Visible = True

Set xlBook = zsbexcel.Workbooks.Open(" & App.Path & " \ book1.xls)
zsbexcel.SheetsInNewWorkbook = 1

Set zsbworkbook = zsbexcel.Workbooks.Add

运行后提示要求对象报这句错误:
Set xlBook = zsbexcel.Workbooks.Open(" & App.Path & " \ book1.xls)
程序目录下有book1.xls这个文件


[解决办法]
Set xlBook = zsbexcel.Workbooks.Open(App.Path & "\book1.xls")