|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
chenray
註冊時間: 2003-04-13 文章: 2
第 1 樓
|
發表於: 星期四 四月 24, 2003 1:34 am 文章主題: 請教如何用程式關掉作用中EXCEL? |
|
|
L_EXCEL = CreateObject('Excel.Application')
L_EXCEL.WorkBooks.Open(AAA,0)
************************************************
LOCAL II,JJ,KK,LL,MM,NN,RR &&RR 計行數
RR = 0
NN = .F.
L_EXCEL.Sheets(XCOMBO3).SELECT
LL = ASC(UPPER(C01.EXCELST)) - 64
MM = ASC(UPPER(C01.EXCELEND)) - 64
THIS.OLECONTROL1.VALUE = 0
FOR II = 1 TO 10000
THIS.OLECONTROL1.VALUE = THIS.OLECONTROL1.VALUE + 1
*
IF THIS.OLECONTROL1.VALUE = 30
THIS.OLECONTROL1.VALUE = 0
ENDIF
*
APPEND BLANK
FOR JJ = LL TO MM
KK = L_EXCEL.CELLS(II,JJ).VALUE
REPL (CHR(JJ+64)) WITH KK
ENDFOR
IF RR > C01.EXCELLINE
EXIT
ENDIF
ENDFOR
THIS.OLECONTROL1.VALUE = 30
***********************************
L_EXCEL.WorkBooks.CLOSE
L_EXCEL.QUIT
RELEASE L_EXCEL
上述 L_EXCEL.QUIT ,RELEASE L_EXCEL 好像都無法關掉 EXCEL
也就是說 ATL + CTL + DEL 出現關閉程式出現有 EXCEL
我想要用 程式把它關掉 ,各位大哥如果知道煩請告之 ,
已經困擾好幾天了,謝謝 |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2157
第 2 樓
|
發表於: 星期四 四月 24, 2003 11:37 pm 文章主題: |
|
|
.quit 再 release 是會將 excel 關掉才對, 或許你是在CLOSE時不成功, 可以 .visible=.t. 來看看過程, 試一試用 .close(.F.) &&--不會問是否存檔 _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
chenray
註冊時間: 2003-04-13 文章: 2
第 3 樓
|
發表於: 星期五 四月 25, 2003 12:05 am 文章主題: |
|
|
謝謝您的解惑,已經擺平了,可能是 KK = L_EXCEL.CELLS(II,JJ).VALUE
在作怪,win2000 沒問題,win98 會當掉,或出現excel 伺服器停止回應 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|