PB打开EXCEL文件报错

OLEObject ExcelServer

Integer ExcelOk

string ls_pathname

ls_pathname = "e:\gzdr\book1.xlsx"

IF FileExists(ls_pathname)=FALSE then

MessageBox("msg","File is not found")

return

end if

ExcelServer = CREATE OLEObject

ExcelOK = ExcelServer.ConnectToNewObject("excel.application")   

ExcelServer.Workbooks.Open(ls_pathname)   

//ExcelServer.ActiveWorkBook.Sheets("Sheet1").Select   

//ExcelServer.Application.Visible   =   TRUE     

//ExcelServer.ActiveWorkBook.Close()

ExcelServer.Quit

每次都是第8行报错

ExcelServer.Workbooks.Open(ls_pathname)   

，但实际上是打开文件的

后来发现，需要让EXCEL应用显示出来，就不会报错了，也不知道为啥原因，所以只有显示后马上最小化

ExcelServer.Visible = TRUE

ExcelServer.WindowState = -4140  //最小化