程序测试。。。

baozhiliang

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

baozhiliang

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

baozhiliang

baozhiliang

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

alin

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

baozhiliang

alin大师真是高，请问您是从哪里学到这么多东西的？
经过您的指点，现在我就可以将CAD中的数据写到excel表格里了，
再次感谢您！

123abc

我的e文不行，能否用中文介绍一下这个程序的详细应用及工作原理，使大家共同进步。谢谢！！！！！

alin

alin

我在公司打不了中文，南极星会使页面全是乱码。