[求助]：vlax-create-object 与vla-quit的问题请老大们解答啊～

fsxm · 发表于 2006-9-22 21:54:07

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请问(setq xl (vlax-create-object "excel.application"))
后为用(vla-quit xl)总是退不出excel啊？？？？一定要用任务管理器强行中止才行吗？
试了很多次对于(vlax-create-object ＸＸ)搞出来的程序
vla-quit都没法中止～但vlax-get-object现成的就可以用
vla-quit退出了～这是什么原因啊？？？？
有什么好的方法退出(vlax-create-object "excel.application")生成的
excel进程吗？

wujimmy · 发表于 2006-9-24 19:18:04

确实不一定有人知道
等哪天有空了再研究这个问题

Underway · 发表于 2006-9-24 19:52:20

a sample code from: KozMos VLXLS Project

Excel Application Session Progress Function

Name
(vlxls-app-quit ExcelSessionVLA-OBJECT SavedFlag)

Usage
Quit active workbook of Excel session and release Excel application.

Input
VLOBJ
Excel session vla-object

BOOLEAN
Save Excel active workwook flag, T for save, NIL for unsave

RetVal
True
BOOLEAN
NIL

Fail
BOOLEAN
NIL

(Defun vlxls-app-quit (ExlObj SaveYN)
  (if SaveYN
(vlax-invoke-method
   (vlax-get-property ExlObj "ActiveWorkbook")
   'Close
)

(vlax-invoke-method
   (vlax-get-property ExlObj "ActiveWorkbook")
   'Close
   :vlax-False
)
  )

  (vlax-invoke-method ExlObj 'QUIT)
  (vlax-release-object ExlObj)
  (setq ExlObj nil)
  (gc)
)

Examples:
(vlxls-app-quit *xlapp* nil)

fsxm · 发表于 2006-9-24 20:25:05

老兄你试过没?
我就是没有打开任何文件也不能退出的!所以不是
(vlax-get-property ExlObj "ActiveWorkbook")
'Close
:vlax-False
)
就可以了的啦!
就是说(vlax-put ExlObj 'visible 1)
后可以见到没有一个文档打开也退不出
(vlax-put ExlObj 'visible 1)后用手动点关闭也不行
点关闭后就隐藏了~但进程还可以在任务管理器中看到
非要强行中止才行~

Underway · 发表于 2006-9-24 21:57:48

(setq ExcelApp (vlax-create-object "Excel.Application"))

(vlax-invoke-method ExcelApp "Quit")

(if (not (vlax-object-released-p ExcelApp))
(vlax-release-object ExcelApp)
)

HuaiYu · 发表于 2006-9-24 22:21:17

对，没有 vlax-release-object 的呢

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：vlax-create-object 与vla-quit的问题请老大们解答啊～

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子