SetPointer(HourGlass!)
ole_object=create oleobject
li = ole_object.ConnectToNewObject( "excel.application" )
if li<>0 then
messagebox('錯誤','請安裝正確的excel版本!')
DESTROY ole_object
return
end if
ole_object.Workbooks.Open(ls_pathname)
ls_savename="c:\temp.txt"
IF FileExists(ls_savename) then FileDelete(ls_savename)
ole_object.activeworkbook.saveas(ls_savename,3)
ole_object.displayalerts=false
ole_object.quit()
ole_object.DisconnectObject()
DESTROY ole_object
//////////////////////////////////////////////////
上面 saveas 部份電腦執行成功,部份電腦執行不成功。 報如下錯,哪位pb達人遇到過,幫忙解決

uj5u.com熱心網友回復:
ole_object.activeworkbook.saveas(ls_savename,3)這個3好像EXCEL保存的版本引數,具體是什么版本可以度娘一下。
應該是你保存的版本高于這個電腦本省EXCEL的版本,比如你要在只有EXCEL2003的電腦保存2007格式。
uj5u.com熱心網友回復:
這個應該是office的版本問題,建議要求客戶安裝相同的office版本轉載請註明出處,本文鏈接:https://www.uj5u.com/shujuku/26451.html
標籤:DataWindow
