再次致ZHUQI75: 你说让我把程序贴出, 帮我分析, 现在贴出来了...

shicai · 发表于 2003-1-20 09:48:00

再次致ZHUQI75: 你说让我把程序贴出, 帮我分析, 现在贴出来了, 请帮助分析一下呀!!

CAD菜鸟 · 发表于 2003-1-20 11:10:00

lzfat · 发表于 2003-1-20 13:08:00

提示: 作者被禁止或删除内容自动屏蔽

zhuqi75 · 发表于 2003-1-20 15:11:00

我真的没有看到

shicai · 发表于 2003-1-21 03:34:00

to: ZHUQI75.请帮忙分析一下，原因何在？(17/01/03)
请帮忙分析一下，原因何在？
（setq xlfile (findfile "XXX.xls"))
(vl-load-com)
(setq Excl (vlax-Get-or-Create-Object "Excel.Application"))
(setq WorkBk (vlax-get Excl 'Workbooks))
(setq xlapp (vlax-invoke-Method WorkBk 'Open xlfile))
(vla-Put-Visible Excl 0)
(setq xsheet (vlax-get-property xlapp 'activesheet))
(setq FirstCell (vlax-get-property xsheet 'range "A1"))
(vlax-invoke-method FirstCell 'Activate)
(setq UsedRange (vlax-get-property FirstCell 'CurrentRegion))
(setq usedrows (vlax-get-property UsedRange 'rows))
(setq nrow (vlax-get-property usedrows 'count))
(loadtypelibexcel)
(setq num (getcellvalue nrow 1))
(setq num (rtos (1+ num) 2 0))
(setq today (itoa (fix (getvar "cdate"))))
...
...
(putrowlist (list en des rea sig today)(1+ nrow) 1)
(vlax-invoke-method xlapp 'save)
(vlax-invoke-method workbk "close")
(vlax-invoke-method Excl "quit")

shicai · 发表于 2003-1-23 03:20:00

shicai · 发表于 2003-1-26 11:58:00

shicai · 发表于 2003-2-7 07:35:00

账号		自动登录	找回密码
密码			注册

再次致ZHUQI75: 你说让我把程序贴出, 帮我分析, 现在贴出来了...

where?

我真的没有看到

17日贴的程序在这:

这两天没来?

ZHUQI75, Where did you go?

ZHUQI75: 你到哪里去了?

lzfat lzfat 当前离线积分 702 明经币个注册时间 2002-4-21 在线时间小时威望金钱个贡献激情	发表于 2003-1-20 13:08:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡