明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2951|回复: 12

[已解答] 如何显示打开的EXCEL?

[复制链接]
发表于 2013-8-7 21:13 | 显示全部楼层 |阅读模式
下面例子是新建一个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)
)


"觉得好,就打赏"
还没有人打赏,支持一下

本帖被以下淘专辑推荐:

  • · excel|主题: 80, 订阅: 2
发表于 2017-10-13 11:17 | 显示全部楼层
增加一个问题,CAD表格与EXCEL表格如何实现联动
发表于 2017-10-13 08:46 | 显示全部楼层
回帖是一种美德!感谢楼主的无私分享 谢谢
发表于 2020-3-24 14:09 | 显示全部楼层
楼主真是厉害了,先抄下来慢慢学。
发表于 2013-8-7 21:22 | 显示全部楼层
(vlax-invoke-method newitem 'Select)
发表于 2013-8-7 21:37 | 显示全部楼层
本帖最后由 pzweng 于 2013-8-7 21:45 编辑

我这里可以呀,可以显示出来
(vla-put-visible obj 1)
发表于 2013-8-7 22:51 | 显示全部楼层
(vlax-invoke-method newsheet "Activate")
 楼主| 发表于 2013-8-8 00:46 | 显示全部楼层
加了这句解决了。(vlax-invoke-method newitem 'select)
发表于 2014-4-3 11:15 | 显示全部楼层
langjs 发表于 2013-8-8 00:46
加了这句解决了。(vlax-invoke-method newitem 'select)

谢谢老大分享程序
发表于 2014-11-17 14:36 | 显示全部楼层
不懂,应该加在哪个位置??????
发表于 2016-1-16 14:34 | 显示全部楼层
参数太少??????????
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-28 18:04 , Processed in 3.529452 second(s), 34 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表