程序测试。。。

baozhiliang · 发表于 2002-10-31 17:26:00

大家帮忙看看，这两个程序可以说模仿的差不多了
但是excel的程序怎么就是不能新建一个文档呢？
各位高手帮忙找找原因，我初步认为问题出在
(setq docs (vla-get-Documents MSX))
这种用法是不是与word的不同啊？究竟该怎样能达到与另一个word同样效果的程序？

baozhiliang · 发表于 2002-11-1 08:26:00

都来帮忙啊，版主，陈老师.....

baozhiliang · 发表于 2002-10-31 17:30:00

两个程序中的路径，请各位按照自己机器的office实际安装位置修改

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:1u4h0n1x1wu.zip
下载次数:0 文件大小:736 Bytes 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

alin · 发表于 2002-11-1 11:12:00

;I am also confused with these codes and I can't get
;any on-line documents about the usage of these function,
;such as msxc-****.
;
;By changing your codes a little bit, I find it work. It can
;create a new excel book and put it visible.
;
;I am using Office 97 and AuotCAD 2002. Some minor changes have
;to made if you are using diffent Office Version. And, if you
;havn't got the function vlax-get-or-create-object,
;use the vlax-get-object and vlax-create-object as you did.
(defun c:exc()
(vl-load-com)
(if (null msxc-xl24HourClock)
(vlax-import-type-library
      ;:tlb-filename "d:/Program Files/microsoft office/office10/XL5EN32.OLB";XL5CHS32.OLB
      :tlb-filename "c:/Program Files/microsoft office/office/EXCEL8.OLB"
      :methods-prefix "msxm-"
      :properties-prefix "msxp-"
      :constants-prefix "msxc-")
)
(setq MSX (vlax-get-or-create-object "Excel.Application.8"))
(if (/= nil MSX)
(progn
      (vla-put-visible MSX :vlax-true)
         (setq wbs (vlax-get-property MSX 'Workbooks))
         (setq wb (msxm-add wbs))
      (vlax-put-property MSX 'ScreenUpdating -1)
);progn
(princ "\nNo Microsoft Excel application found.\n")
);endif
)