pb如何连接已打开的excel文档
指定的文件名的电子表格已经用excel打开,PB应用程序如何连接到这个已打开的电子表格,然后读取表格里的数据?
[解决办法]
OLEObject ole_excel, ole_sheet
ole_excel = CREATE OLEObject
ole_sheet = CREATE OLEObject
If ole_excel.ConnectToNewObject("Excel.Application" ) < 0 Then
MessageBox('出错',"不能连接 EXCEL 服务器,请检查你的计算机中是 ~r~n " +&
"否安装了MS EXCEL ? 假如安装,请与程序供应商联系 !",QuesTion!)
Return
End If
ole_excel.Application.Visible = FALSE
ole_excel.Workbooks.Open(eccel文件路径) //打开EXCEL文件
ole_sheet = ole_excel.Application.activeworkbook.worksheets[1] //要取值的工作页
ole_sheet.cells[i,j].Value//取第i行第j列的数据
[解决办法]
ConnectToObject 要用这个函数去连接已经打开的excel程序
然后遍历打开的workbook 判断标题可以确定是哪个文件