langjs 发表于 2013-8-7 21:13:56

如何显示打开的EXCEL？

下面例子是新建一个EXCEL并向 “sheet3”工作表中写入数据， 并设置EXCEL 可见。
问题是：虽然程序成功向“sheet3” 中写入了数据，但EXCEL 确显示在“sheet1” 界面上，有没有办法显示 “sheet3” 界面 ？


(defun c:aa( / appsession cells col i j newbook newitem newsheet numrow str)
(defun data2cell (numrow col str)
    (vlax-put-property cells "item" numrow col (vl-princ-to-string str))
)
(setvar "cmdecho" 0)
(vl-load-com)
(setq appsession (vlax-get-or-create-object "Excel.Application"))
(setq newbook(vlax-invoke-method (vlax-get-property appsession 'workbooks) 'add))
(setq newsheet (vlax-get-property newbook "sheets"))
(setq newitem (vlax-get-property newsheet "item" 3))
(setq cells (vlax-get-property newitem "cells"))
(vla-put-visible appsession :vlax-true)
(setq i 1)
(repeat 100
    (setq j 1)
    (repeat 20
      (data2cell i j (itoa (+ 100 i)))
      (setq j (1+ j))
    )
    (setq i (1+ i))
)
(if (not (vlax-object-released-p appsession))
    (vlax-release-object appsession)
)
(princ)
)


逍遥天下 发表于 2017-10-13 11:17:29

增加一个问题，CAD表格与EXCEL表格如何实现联动

pengfei2010 发表于 2017-10-13 08:46:01

回帖是一种美德！感谢楼主的无私分享 谢谢

tbggbt 发表于 2020-3-24 14:09:16

楼主真是厉害了，先抄下来慢慢学。

namezg 发表于 2013-8-7 21:22:06

(vlax-invoke-method newitem 'Select)

pzweng 发表于 2013-8-7 21:37:58

本帖最后由 pzweng 于 2013-8-7 21:45 编辑

我这里可以呀，可以显示出来
(vla-put-visible obj 1)

jyzas 发表于 2013-8-7 22:51:47

(vlax-invoke-method newsheet "Activate")

langjs 发表于 2013-8-8 00:46:59

加了这句解决了。(vlax-invoke-method newitem 'select)

Kye 发表于 2014-4-3 11:15:29

langjs 发表于 2013-8-8 00:46 static/image/common/back.gif
加了这句解决了。(vlax-invoke-method newitem 'select)

谢谢老大分享程序

qyming 发表于 2014-11-17 14:36:50

不懂,应该加在哪个位置??????

qyming 发表于 2016-1-16 14:34:38

参数太少??????????
页: [1] 2
查看完整版本: 如何显示打开的EXCEL？