1币，求改一个代码

664571221

求改一个代码，统计文本输出到excel，可是是新建一个excel，能否改成输入到当前已经打开的excel

(DEFUN C:TJWB(/ N SS  STR_LST LST_STR STR1 SHUL STRLST )
  (defun initexcel ()
  (setq appxls (vlax-get-or-create-object "excel.application")
        xlsworkbooks (vlax-get-property appxls "workbooks")
        newbook (vlax-invoke-method xlsworkbooks "add")
        newsheet (vlax-get-property newbook "sheets")
        newitem (vlax-get-property newsheet "item" 1)
        xlscells (vlax-get-property newitem "cells")
  )
        (vla-put-visible appxls :vlax-true)
)
(defun endexcel ()
  (vlax-release-object xlscells)
  (vlax-release-object newitem)
  (vlax-release-object newsheet)
  (vlax-release-object newbook)
  (vlax-release-object xlsworkbooks)
  (vlax-release-object appxls)
)
(defun datacell (nurow col value)
  (vlax-put-property xlscells "item" numrow col (vl-princ-to-string value))
  )
  (VL-LOAD-COM)
  (SETQ SS(SSGET '((0 . "*TEXT"))))
  (SETQ N 0)
  (WHILE (< N (SSLENGTH SS))
    (SETQ LST_STR (APPEND LST_STR (LIST(CDR(ASSOC 1 (ENTGET (SSNAME SS N)))))))
    (SETQ N (1+ N))
   )
  (SETQ LST_STR (vl-sort LST_STR(function(lambda(x y) (<  x y)))))
  (SETQ STRLSTLEN (LENGTH LST_STR))
  (WHILE LST_STR
    (SETQ SHUL(-  STRLSTLEN(LENGTH(SETQ LST_STR(VL-REMOVE (SETQ STR1 (CAR LST_STR))LST_STR)))))
    (SETQ STRLST (APPEND STRLST (LIST(LIST STR1 SHUL))))
    (SETQ STRLSTLEN (LENGTH LST_STR))
    )
(SETQ STRLST (append (list (list "编号" "数量(个)"))STRLST ))
(initexcel)
(setq numrow 1 )
(setq i 0)
(repeat (length STRLST)
(SETQ txt (nth i  STRLST))
(datacell numrow (setq numcol 1) (car txt))
(datacell numrow (setq numcol 2) (cadr txt))
(setq i (1+ i) numrow (1+ numrow) )      
)
(endexcel)
(princ)
  )

zzyong00

输入到当前已经打开的excel的sheet中，有可能会覆盖有用的内容

664571221

zzyong00 发表于 2016-4-10 22:02
输入到当前已经打开的excel的sheet中，有可能会覆盖有用的内容

能不能以我选定的单元格作为开始单元格