PB打开EXCEL文件报错

原创于 2019-03-04 10:13:43 发布 · 2.5k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vba

PowerBuild 专栏收录该内容

43 篇文章

订阅专栏

本文描述了使用OLEObject ExcelServer组件在VBA或类似环境中打开Excel文件时遇到的错误问题。通过使Excel应用程序可见并立即最小化，可以避免在第八行代码处出现错误，即在尝试打开文件时。此解决方案适用于那些需要与Excel文件进行交互但又不想完全显示Excel界面的场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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)
，但实际上是打开文件的