EXCEL单元格赋值后跳转

wide

在CAD中不断的取值，然后传输到excel单元格中，比如第一次取值后通过下面函数赋值到EXCEL的B3单元格（EXCEL任意单元格）中，

• (vlax-for x (vlax-get-property (vlax-get-or-create-object "excel.application") 'Selection)
•     (vlax-put-property x 'value2 sz)
•   )
  

填入值后，怎么自动跳到后面的单元格（C3），方便后面在CAD中取值利用上面的函数进行赋值？因为上面的函数是在光标指定的单元格，所以想着能。。。。。，这样就不用来回切换软件用鼠标点单元格了。

自贡黄明儒

;;活动单元格下移 改为右移一位2023.03.15
    (setq cell (vlax-get-property
                 cells
                 "Item"
                 (vlax-make-variant (+ i row))
                 (vlax-make-variant (1+ col))
               )
    )
    (setq cell (vlax-variant-value cell))
    (vlax-invoke cell 'Select)

薰衣草-花语

(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))

llsheng_73

需要往哪个格子写就直接给哪个单元格的位置，不用管它是不是活动的...
如果是很多数值需要写到连续单元格中，应该设置设置好数组，往具体的区域内一次填写
(vlax-put-property(vlax-get-property xls 'range"C6:F6")'value2(vlax-safearray-fill(vlax-make-safearray 12 '(0 . 3))'(1 2 3 4)))

飞雪神光

还要控制光标 ？这不是鼠标动一下就行了么

wide

飞雪神光 发表于 2024-5-16 12:14
还要控制光标 ？这不是鼠标动一下就行了么

看来我表达的意思不是很清晰，自动跳转的目的是不想来回切换软件，单元格赋值后自动跳转，方便后面继续赋值。

llsheng_73

1. (setq xls(vlax-get-or-create-object "excel.application"))
   
2. (vlax-put-property(vlax-get-property xls 'range"C6")'value2"ABC")
   

(setq xls(vlax-get-or-create-object "excel.application"))<br /> (vlax-put-property(vlax-get-property xls 'range"C6")'value2"ABC")<br />

liuhe

不要模拟手动，什么后一个？直接用坐标赋值

饼仲郎

llsheng_73 发表于 2024-5-16 13:17

请问为什么运行您的第二行代码会出现 Automation 错误。未提供说明。

llsheng_73

饼仲郎 发表于 2024-5-16 21:50
请问为什么运行您的第二行代码会出现 Automation 错误。未提供说明。

如果第一行代码以是创建了一个xls对象，那么它是没工作簿的，第二行肯定出错

664571221

兄弟你是做啥的