VFP 愛用者社區

[elson]

參考之前的文章很多先進都用以下方法控制Excel
eole=CREATEOBJECT('Excel.application')
eole.Workbooks.add
.....

想請問如果Excel及其檔案使用者已事先開啟了，我要怎麼去控制呢?

[lelhappy]

支持一下...

我也有這樣的問題....

[candy7240]

If !Type("eole")="O" &&判斷是否為物件
eole=Createobject('Excel.application')
eole.Workbooks.Open(m_file)
Endif

如果不是物件的話，就在開啟，有的話，就跳過不做

[elson]

找到了...

*- See if Excel is already open otherwise we need to start it.
m.lOldSetOpt = DDESetOption("SAFETY")
=DDESetOption("SAFETY",.F.)
m.sysch=DDEInitiate("Excel","System")
IF m.sysch = -1 &&failed
oleApp = CreateObject("Excel.Application")
oleApp.workbooks.add
oleApp.visible=.T.
oleApp.ActiveWorkbook.ActiveSheet.Cells(1, 1).Value = "ADD"
ELSE
=DDETerminate(m.sysch)
oleApp = GETOBJECT(, "Excel.Application")
oleApp.ActiveWorkbook.ActiveSheet.Cells(1, 1).Value = "=111+111"
oleApp.ActiveWorkbook.ActiveSheet.Cells(1, 2).Value = "111"
ENDIF

[richshih]

可試試以下
try
oleApp = GETOBJECT(, "Excel.Application")
oleApp.ActiveWorkbook.ActiveSheet.Cells(1, 1).Value = "=111+111"
oleApp.ActiveWorkbook.ActiveSheet.Cells(1, 2).Value = "111"
catch
oleApp = CreateObject("Excel.Application")
oleApp.workbooks.add
oleApp.visible=.T.
oleApp.ActiveWorkbook.ActiveSheet.Cells(1, 1).Value = "ADD"
endtry