怎么回事啊!!高手进来看看

Question

Dim zsbexcel As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorksheetPrivate 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这个文件

Answer 1

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