为什么创建excel的方法不一样啊

YAOSHIWEI

(defun c:xl-test1()
  (vl-load-com)
  (if (equal nil msxl-acos)
    (vlax-import-type-library
        :tlb-filename        "C:\\Program Files\\Microsoft Office\\Office11\\Excel.exe"
:methods-prefix  "msxl-"
:properties-prefix  "msxl-"
:constants-prefix  "msxl-"
    )
  )
  (setq XLapp(vlax-get-object "Excel.Application"))
  (if (null XLapp)
      (setq XLapp (vlax-create-object "Excel.Application"))
  )
另一种方法是论坛上的
(Defun gxl-word-app-Init
       (/ OSVar GGG Olb8 Olb9 Olb10 TLB Out msg msg1 msg2)

    (setq msg  "\n 初始化微软Word "
         msg1 "\042初始化Word错误\042"
         msg2 (strcat
               "\042 警告"
               "\n ===="
               "\n 无法在您的计算机上检测到微软Word软件"
               "\n 如果您确认已经安装Word, 请发送电子邮"
               "\n 件到Gu_xl@sohu.com获取更多的解决方案\042"
              )
    )
  (if (null mswc-wd100Words)
    (progn
      (if (and (setq GGG
                    (vl-registry-read
                     "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\Winword.EXE"
                     "Path"
                    )
              )
              (setq GGG (strcase (strcat GGG "Winword.EXE")))
         )
       (progn
         (foreach OSVar (list "SYSTEMROOT" "WINDIR"
                            "WINBOOTDIR"     "SYSTEMDRIVE"
                            "USERNAME"  "COMPUTERNAME"
                            "HOMEDRIVE"       "HOMEPATH"
                            "PROGRAMFILES"
                           )
           (if    (vl-string-search (strcat "%" OSVar "%") GGG)
             (setq GGG       (vl-string-subst
                       (strcase (getenv OSVar))
                      (strcat "%" OSVar "%")
                       GGG
                     )
             )
           )
        )
         (setq   Olb8  (findfile (vl-string-subst "MSWORD.OLB" "WINWORD.EXE" GGG))
         )
         (cond  ((= (vl-filename-base (vl-filename-directory GGG))
                  "OFFICE11"
               )
               (setq TLB Olb8
                     Out "2003"
               )
              )
  ((= (vl-filename-base (vl-filename-directory GGG))
                  "OFFICE12"
               )
               (setq TLB Olb8
                     Out "2007"
               )
              )
              (t (setq Out "Version Unknown"))
         )
         (if TLB
           (progn
             (princ (strcat MSG Out "..."))
             (vlax-import-type-library
              :tlb-filename    TLB               :methods-prefix
              "mswm-"             :properties-prefix
              "mswp-"             :constants-prefix "mswc-"
              )
           )
         )
       )
       (progn
         (if vldcl-msgbox
(vldcl-msgbox "x" msg1 msg2)
(alert (read msg2))
)
         (exit)
       )
      )
    )
  )  
mswc-wd100Words
)
;;;创建Word Application
;;;(setq wordapp (gxl-word-app-New 1))
(Defun gxl-word-app-New (UnHide / Rtn)
  (if (gxl-word-app-init)
    (progn
      (if (setq Rtn (vlax-get-or-create-object "Word.Application"))
       (progn
         (vlax-invoke-method
           (vlax-get-property Rtn 'Documents)
           'Add
         )
         (if UnHide
           (vla-put-visible Rtn :vlax-true)
           (vla-put-visible Rtn :vlax-false)
         )
       )
      )
    )
  )
  Rtn
)
;;;打开Word文件
;;;(setq wordapp (gxl-word-app-open (getfiled "选择文件" "" "doc" 0) 1))
(Defun gxl-word-app-open (DocFile UnHide /  Rtn)
  (setq DocFile (strcase DocFile))
  (if (null (wcmatch DocFile "*.DOC"))
    (setq DocFile (strcat DocFile ".DOC"))
  )
  (if (and (findfile DocFile)
          (setq Rtn (vlax-get-or-create-object "Word.Application"))
      )
    (progn
;|
      (vlax-invoke-method
       (vlax-get-property Rtn 'Documents)
(vla-get-Documents rtn)
       'Open
       DocFile
      )
      |;
      (mswm-open (vla-get-Documents rtn) DocFile)
      (if UnHide
       (vla-put-visible Rtn :vlax-true)
       (vla-put-visible Rtn :vlax-false)
      )
    )
  )
  Rtn
)
;;; (gxl-word-app-save (vla-get-ActiveDocument wordapp)) 保存word文档
(Defun gxl-word-app-save (DocObj)
  (mswm-Save DocObj)
)
这是我发现的不同 之处，希望有人可以为我解答


该贴已经同步到 YAOSHIWEI的微博

YAOSHIWEI

我怎么感觉 不对啊是不是哪个地方有问题，上面那一个是我在书上看到的，下面那个是论坛上的，这两个有区别吗