各位大人救命啊!!! 小弟我嘗試在4gl中處理excel檔案,利用WorkBooks.Close關閉excel後,仍然會在工作管理員上看到有excel執行中。下面是語法,小弟我漏了哪一個部分? 嘗試過下列Application.Quit方法,但是沒有效。 #CALL ui.interface.frontCall("WinCOM", "CallMethod",[xlapp, "Application.Quit"], [result]) #關閉檔案 FUNCTION test() DEFINE xlapp INTEGER DEFINE xlwb INTEGER DEFINE result INTEGER DEFINE str STRING DEFINE filename STRING DEFINE ii STRING DEFINE jj STRING DEFINE zz STRING DEFINE l_date DATE LET xlapp = -1 # LET xlwb = -1 CALL ui.interface.frontcall("WinCOM","CreateInstance",["Excel.Application"],[xlapp]) CALL ui.interface.frontCall("WinCOM", "CallMethod",[xlapp, "WorkBooks.Add"], [xlwb]) LET filename="c:\\temp\\test5.xls" LET jj = g_today CALL ui.interface.frontcall("WinCOM","GetProperty",[xlwb,'Worksheets(1).name'],[zz]) LET zz = 'Worksheets("',zz,'").Cells(3,2).Value' LET zz = cl_replace_str(zz,' ','') CALL ui.interface.frontcall("WinCOM","SetProperty",[xlapp,zz,jj],[result]) CALL ui.interface.frontCall("WinCOM", "CallMethod",[xlapp, "WorkBooks.Close"], [result]) CALL ui.Interface.frontCall("WinCOM","ReleaseInstance", [xlwb], [result] ) CALL ui.Interface.frontCall("WinCOM","ReleaseInstance", [xlapp], [result] ) END FUNCTION |
|
沙发#
发布于:2017-03-10 10:40
4gl不是是vba ,不是所有的方法都支持,quit方法一定是不支持的,所以你执行这句也是没有效果的
|
|
板凳#
发布于:2017-03-10 13:32
13794993971:4gl不是是vba ,不是所有的方法都支持,quit方法一定是不支持的,所以你执行这句也是没有效果的回到原帖後來逐項測試發現只要是excel儲存有取代舊檔案就會發現,就會發現即使Excel關閉,仍會卡在工作管理員上,您有這方面的經驗嗎? |
|
地板#
发布于:2017-03-10 13:45
CALL ui.Interface.frontCall("WinCOM", "CallMethod", [result, 'Save'],[results])
CALL ui.interface.frontCall('WinCOM','CallMethod',[xlApp,'Quit'],[results]) CALL ui.interface.frontCall('WinCOM','ReleaseInstance',[xlApp],[results]) |
|