[LISP程序]：和EXCEL通讯

spearfish

;EXCEL 和Atocad
(defun Excel-TypeLib-2000 ( / sysdrv office path)
  (setq sysdrv (getenv "systemdrive"))
  (setq officepath ( strcat sysdrv "\\program files\\microsoft office\\office"))
  (findfile (strcat officepath "\\excel9.olb"))
)

(defun Excel-Type-XP2003 (/ sysdrv office path)
  (setq sysdrv (getenv "systemdrive"))
  (setq officepath ( strcat sysdrv "\\program files\\microsoft office\\office11"))
  (findfile (strcat officepath "\\excel.exe"))
)

(defun Excel-Load-TypeLib ( / tlbfile tlbver out)
  (cond
    ( (null msxl-x124HourClock)
       (if (setq tlbfile (Excel-TypeLib-XP2003))
         (progn
           (vlax-import-type-library
             :tlb-filename   tlbfile
             :methods-prefix    "msxl-"
             :properties-prefix "msxl-"
             :constants-prefix  "msxl-"
           )
           (if msxl-x124HourClock (setq out T))
         )
       )
     )
    (T (setq out T))
  )
  out
)

(defun Excel-New-Spreadsheet (dmode / appsession result)
  (princ "\nCreating new Excel Spreadsheet file ...")
  (cond
    ( (vl-catch-all-error-p
        (setq appsession
              (vl-catch-all-apply
                'vlax-create-object
                '("Excel.Application")
              )
        )
      )
    )
    (T
      (princ "\nOpening Excel Spreadsheet file...")
      (cond
        ( (vl-catch-all-error-p
            (setq result
                  (vl-catch-all-apply
                    'vlax-invoke-method
                    (list
                      (vlax-get-property appsession "Workbooks")
                      "Add"
                    )  
                  )
            )
          )
        )
        (T
          (if (= (strcase dmode) "SHOW")
            (vla-put-Visible appsession 1)
            (vla-put-Visible appsession 0)
          )
        )
      )
    )
  )
  appsession
)

(defun Excel-Test (/ xlapp)
  (cond
    ( (setq xlapp (vlax-create-object "Excel.Application"))
      (vlax-put-property xlapp "Visible" T);show Excel
      (setq workbooks (vlax-get-property xlapp "Workbooks"))
      (princ workbooks)
      (vlax-dump-object workbooks)
     
     
      
     
      (vlax-invoke-method xlapp "Quit"); close Excel
      (vlax-release-object xlapp); release object
      (gc); force garbage collection
    )
    (T
      (princ "\nUnable to open Microsoft Excel.")
    )
  )
)

笑忘书

其功能能否举例说明一下？
谢谢

yi.gao

太gaoyi了

oklong

怎么反过来啦

yi.gao

押韵的需要

oklong

灌水灌得连韵脚都注意到了，不佩服不行啊

yi.gao

不仅物质上要有享受，精神境界上也要有享受

oklong

对对，精神境界一直是我们的追求

782150yhm

两个文明双丰收啊.

oklong

呵呵，yhm总结得好

782150yhm

受的毒害太深了.

oklong

毒害？！什么毒害？

yi.gao

两手都要硬

oklong

粪勺更要硬

yi.gao

预先工其屎必先利其器