(setq copyrange
(EXCL:SETRANGE
*excelapp
* 15 1 18 39)) (setq newrange
(EXCL:SETRANGE
*excelapp
* 19 1 19 39))
(defun EXCL:SETRANGE
(*excelapp
* r1 c1 r2 c2
/ ) (EXCL:SETSELECTION
*excelapp*
*excelapp*
'range
'cells
) ;_ end of vlax-get-property
'item
) ;_ end of vlax-get-property
'cells
) ;_ end of vlax-get-property
'item
) ;_ end of vlax-get-property
) ;_ end of vlax-get-property
)
)
*excelapp*
'range
) ;_ end of vlax-get-property
)
(t nil)
) ;_ end of cond
) ;_ end of xlsetselection
)
(defun EXCL:SETSELECTION
(xlapp xlrange
/ selrange
) ) ;_ end of vl-catch-all-apply
) ;_ end of vl-catch-all-apply
) ;_ end of setq
) ;_ end of and
selrange
)