咋回事啊来看看

怎么回事啊!!高手进来看看
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")