;; Example demonstrating how to read the plain text content of all cells within
;; the UsedRange of the active worksheet of a supplied Excel file.
;; - Lee Mac - 2013-10-29
(vl-load-com)
(defun c:rexl
(/ xls xlapp xlcls xlcol xlrng xlrow xlsht xlwbk xlwbs)
(if
(and
(setq xlapp (vlax-get-or-create-object "excel.application"))
(setq xls (getfiled "打开纵断面文件" "" "xls" 8))