(vlax-release-object appsession) ) ) )
;;;*************************************************************************
;;; 模块: DSX-Excel-Kill
;;; 描述: 强迫任何打开的Excel进程关闭 ;;; 参数: none
;;; 示例: (DSX-Excel-Kill)
;;;*************************************************************************
(defun DSX-Excel-Kill ( / eo)
(while (setq eo (vlax-get-object \(DSX-Excel-Quit eo) (vlax-release-object eo) (setq eo nil)
(gc)(gc);; 这样做有时还是不能完全杀除! )
相关推荐: