EXCEL文件进行OLE处理Application.Workbooks.Open大于1M报错
EXCEL文件进行OLE处理Application.Workbooks.Open大于1M的报错,则打不开。
code:
f_openexcel(as_filename)
//as_filename //Excel 文件
int li_ret
oleobject lole_excel
lole_excel = create oleobject
li_ret = lole_excel.ConnectToObject('Excel.Application')
If li_ret <> 0 Then
li_ret = lole_excel.ConnectToNewObject('Excel.Application')
If li_ret <> 0 Then
messagebox('错误','打开EXCEL失败!')
return -1
End If
End If
If not FileExists(as_filename) Then
lole_excel.DisconnectObject()
messagebox('錯誤','文件不存在!')
return -1
End If
//OLE打开EXCEL文件
//as_filename 是由PB OLEStorage,OLEStream 存储为Excel文件。
lole_excel.Application.Workbooks.Open(as_filename) // as_filename 文件大于1M就报错,打不开。
if not isvalid(lole_excel.application.activeworkbook) then
lole_excel.application.Workbooks.close()
lole_excel.application.quit()
lole_excel.disconnectobject( )
destroy lole_excel
return -1
end if
//因为需要打开excel文件 处理。
//是否有其他方法或解决方式。