[编程交流] 如何将excel文件导出为

(defun C:XLRD (/ *error* GetXlRangeByMatch address filename sheetname x xlapp 
xlbook xldata xlrange)
(vl-load-com)
  (defun *error* 
(msg)
   
   (if xlbook 
(vl-catch-all-apply 'vlax-invoke-method (list xlbook 'Close 
:vlax-false)))
   (gc)
   (if xlapp 
(vl-catch-all-apply 'vlax-invoke-method (list xlapp 
'Quit)))
   (gc)
   (cond ((not 
msg))                                                   
; Normal exit
         ((member 
msg '("Function cancelled" "quit / exit abort")))    ; 
<esc> or (quit)
         
((princ (strcat "\n---  Error: " msg "  ---")))
   
)                                                                   
; Fatal error, display it
 (princ)
   ) 
(defun 
GetXlRangeByAddress(filename sheetname address / all_skvs xlbook xlrange xlsheet 
xlapp skv_records)
 
 
   (setq 
xlapp(vlax-get-or-create-object "Excel.Application"))
   
(vla-put-visible xlapp :vlax-false)
   (vlax-put-property 
xlapp 'DisplayAlerts :vlax-false)
 (if (zerop 
(vlax-get-property(vlax-get-property xlapp 'workbooks) 
'count))
    (setq xlbook 
(vl-catch-all-apply
    
'vla-open
    (list (vlax-get-property xlapp 'WorkBooks) 
fileName)
    )
     
)
 (setq xlbook (vl-catch-all-apply 'vlax-get-property (list xlapp 
'activeworkbook))))
(setq xlsheet (vl-catch-all-apply
    
'vlax-get-property
    (list (vlax-get-property xlbook 
'Sheets)
   'Item
   1 ;|"Sheet1" 
maybe|;;< --- sheet name or number
   
)
    )
     )
 
   (vlax-invoke-method xlsheet 
'Activate)
   (setq xlrange (vlax-get-property 
(vlax-get-property xlsheet 'Cells) 'Range address))
   (if 
(eq :vlax-true (vlax-variant-value(vlax-get-property xlrange 
'HasFormula)))
    (setq xldata (vlax-get-property 
xlrange 'formulalocal))
    (setq 
xldata(vlax-get-property xlrange 'value2)))
 (setq xldata (mapcar '(lambda(x)(mapcar 'vlax-variant-value 
x))
        
(vlax-safearray->list
   
(vlax-variant-value
     xldata))))
  (vl-catch-all-apply 'vlax-invoke-method (list xlbook 'close 
:vlax-false))
 (vlax-put-property xlapp 'DisplayAlerts 
:vlax-true)
 (gc);; before QUIT
   
(vl-catch-all-apply 'vlax-invoke-method (list xlapp 'quit))
 (mapcar 
'(lambda(x)(if (and x (not (vlax-object-released-p 
x)))
        
(progn(vlax-release-object x)(setq x nil))))
  (list xlrange 
xlsheet xlbook xlapp))
 
 (gc);; after QUIT
     xldata
 )
 ;;___________________________  main part  
_____________________________________________;;
 ;; e.g.: 
 (setq filename (findfile 
"C:\\blah\\blah\\blah.xls")
sheetname 1
address 
"A3:E18")
 (setq xlData (GetXlRangeByAddress filename sheetname 
address))
 (print xlData)
 
 ;;;   
---   rest your mojo here   ---   ;;;
 
 (*error* nil)
 (princ)
 )
(princ 
"\n\t\t---\tStart command with XLRD\t---")
(prin1)
(or 
(vl-load-com)(princ))