EXCEL单元格赋值后跳转

薰衣草-花语

(setq excel-x(vlax-get-property(vlax-get-property excel 'Selection)"row"))
(setq excel-y(vlax-get-property(vlax-get-property excel 'Selection)"COLUMN"))
(setq sy-sheet(member excel-name ecxel-sheet))
(setq excel-djg(+ 1(-(length ecxel-sheet)(length sy-sheet))))
(setq cells (vlax-get-property (vlax-get-property shts "item" excel-djg) "cells"))
(setq excel-y2 (+ excel-y 1))
(setq excel-y3 (+ excel-y 3))