VFP 愛用者社區

[ckp6250]

小弟都用如下方法去偵測系統有沒有安裝 Excel
if type("Createobject('excel.application')")="U"
? "No Excel"
else
? "Excel ok"
endif

這個方式可以正確執行, 但有個缺點,
就是在工作管理中員中, 會有 Excel 執行中
浪費資源啊。

各位先進,有沒有更好的方法呢?

[syntech]

有呀

[marvin]

不想有 Excel 執行中, 那把它關掉呀

[ckp6250]

[quote="syntech"]有呀

[ckp6250]

[syntech]

明明就是

"這個方式可以正確執行, 但有個缺點,
就是在工作管理中員中, 會有 Excel 執行中
浪費資源啊。"

XD


====
檢查登錄檔看看,有沒有註冊 'excel.application'.

[ckp6250]

回 syntech 大
用 type("Createobject('excel.application')")="U" 來偵測
如果,有沒有安裝 Excel 的電腦 , 這行指令都能用,
缺點是如果有安裝 Excel 的話 , 工作管理員中會有 Excel 在執行中

用您的方法
有安裝 Excel 的電腦 , 沒問題
但在沒有安裝 Excel 的電腦上 , 就行不通了

檢查登錄檔是好方法 ,
不過,我會用 vfp 增修刪 Registry , 卻不會檢查
請大大提點一下吧

[syntech]

利用 ON ERROR 或其他ERROR EVENT,攔截錯誤碼 1733 ,
抑制錯誤訊息不就好了. XD

[LiuRambo]

[朱育興]

[ckp6250]

感謝 syntech 和朱兄提點!
又請教 syntech , 若要用您先前提到的,『檢查登錄檔看看,有沒有註冊 'excel.application'.』
又要怎麼做呢?

[garfield]

找到了檢查方法.
相關資料網頁:
http://stackoverflow.com/questions/113860/how-to-check-if-an-oledb-driver-is-installed-on-the-system
http://www.sweetpotatosoftware.com/spsblog/Trackback.aspx?guid=0d08c7d7-5d50-4b3e-9fcd-e10975345df4

? '=',CLSIDFromProgIDEx('xyz'),'=',EMPTY(CLSIDFromProgIDEx('xyz'))
? '=',CLSIDFromProgIDEx('Excel.Application'),'=',iif(empty(CLSIDFromProgIDEx('Excel.Application')),'沒安裝excel','有安裝')

***************************
FUNCTION CLSIDFromProgIDEx(tcProgID)
***************************
* 程式來源: http://www.sweetpotatosoftware.com/spsblog/Trackback.aspx?guid=0d08c7d7-5d50-4b3e-9fcd-e10975345df4
LOCAL lcGuid, lnResult, lnLen, lcReturn
m.lcReturn = SPACE(82)
m.lcGuid = SPACE(16)
m.tcProgID = STRCONV(m.tcProgID + CHR(0), 5)
DECLARE INTEGER CLSIDFromProgID IN ole32.DLL STRING pProgID, STRING @ pGuid
m.lnResult = CLSIDFromProgID(m.tcProgID, @m.lcGuid)
IF m.lnResult = 0
DECLARE INTEGER StringFromGUID2 IN ole32.DLL STRING pGuid, STRING @ pString, INTEGER nMaxChars
m.lnLen = StringFromGUID2(m.lcGuid, @m.lcReturn, 40) - 1
m.lcReturn = STRCONV(m.lcReturn, 6)
m.lcReturn = LEFT(m.lcReturn, m.lnLen)
ENDIF
RETURN m.lcReturn
ENDFUNC

*************************
*簡單作法
*****************************
FUNCTION checkole
* 功能: 檢查是否有progID
LPARAMETERS tcProgID
LOCAL mret
DO case
CASE tcProgID='excel'
tcProgID='Excel.Application'
CASE tcProgID='word'
tcProgID='Word.Application'
ENDCASE
* 程式來源: http://www.sweetpotatosoftware.com/spsblog/Trackback.aspx?guid=0d08c7d7-5d50-4b3e-9fcd-e10975345df4
LOCAL lcGuid, lnResult
m.lcGuid = SPACE(16)
m.tcProgID = STRCONV(m.tcProgID + CHR(0), 5)
DECLARE INTEGER CLSIDFromProgID IN ole32.DLL STRING pProgID, STRING @ pGuid
m.lnResult = CLSIDFromProgID(m.tcProgID, @m.lcGuid)
RETURN (m.lnResult = 0)

[ckp6250]

garfield 大大，感溫啊
快又有效!

[ezpos]

請問各位:

有遇過 offices2013 讀不到excel內容的嬤??

[Patrick Wu]