用autolisp编写代码文件地址FME文件名：aaxlsm当在CAD输入qq打开文件aaxlsm打开方式为只读

(defun c:qq () (setq file-path "F:\ME\aa.xlsm") (if (findfile file-path) (progn (setq excel-app (vlax-get-or-create-object "Excel.Application")) (setq excel-wbk (vlax-invoke excel-app 'Workbooks 'Open file-path :ReadOnly)) (vlax-release-object excel-wbk) (vlax-release-object excel-app) (princ "File opened successfully.") ) (princ "File not found.") ) (princ) )