用Vlisp如何获取打开的EXCEL的工作薄名称??????

挚友01

(setq x1 (vlax-get-object "Excel.Application"))
(setq wbs (vlax-get-property x1 "WorkBooks"))
此时怎么提取所有打开的工作薄名称并转换成“表” ？？？？？？？？？？？/

newer

开源函数库有很多的代码你都可以参考，多利用搜索

http://bbs.xdcad.net/forum.php?m ... highlight=WorkBooks

去看看开头的几行代码。

挚友01

(setq shts (vlax-get excel 'sheets))
           (not        (vl-catch-all-error-p
                  (setq sht (vl-catch-all-apply 'vlax-get-property (list shts 'item shtname)))
                )
           )
????????没看听白，直接告讯我一下啊。。。

挚友01

实际我就想判断EXCEL是否打开了指定的工作薄，没打开就将它打开，我只会LISP, VLISP要一点一点研究..请明示，多谢了!

marting

挚友01 发表于 2017-6-29 21:14

你得到了workbooks，他是个容器，你遍历下就得到了

1. (defun c:tt ()
   
2.   (setq lst nil)
   
3.   (and (xd::excel:initlize)
   
4.        (setq wbs (vlax-get **xd::excel** 'workbooks))
   
5.        (vlax-for item wbs
   
6.          (setq lst (cons (vlax-get item 'name) lst))
   
7.        )
   
8.   )
   
9.   (reverse lst)
   
10. )
    
11. 
    

(defun c:tt ()<br />   (setq lst nil)<br />   (and (xd::excel:initlize)<br />        (setq wbs (vlax-get **xd::excel** 'workbooks))<br />        (vlax-for item wbs<br />          (setq lst (cons (vlax-get item 'name) lst))<br />        )<br />   )<br />   (reverse lst)<br /> )<br /> <br />

命令: tt
("工作簿1" "现金流分析1")


N版给你的链接，里面都帮你做了啊，你直接OPEN就是了，没打开的就帮你打开，打开的就激活它。你判断打开没打开多余了。


(if (and (findfile file)
           (setq excel (vlax-get-or-create-object "excel.application"))
           (setq wk (vlax-get excel 'workbooks))
           (vlax-invoke wk 'open file)
           (setq shts (vlax-get excel 'sheets))
           ........................
           ........................

挚友01

(xd::excel:initlize) 这个是函数吧，是要到开开源函数库去找吧? 主要是当工作薄已打开时，再打开同一个名字的工作薄会以只读方式询问，想去掉这个询问

挚友01

  (setq shts (vlax-get excel 'sheets))
这句是提取工作表名吧，然后呢，怎么转换成表? 能看懂的...不好意思，笨啊...

yangjian001

没打开就将它打开

marting

挚友01 发表于 2017-6-29 22:03

和上面一样， 带S的，是容器，取得里面的内容，用 vlax-for ，要举一反三。

挚友01

(vlax-invoke wk 'open file)获得打开文件的工作薄名，那么要提取已打开的工作薄名怎么写？（vlax-get wk "????

csharp

vl-catch-all-apply vlax-get-property wks 'item "book"

挚友01

; 提取EXCEL的数据 row_1为起始行
(defun excel_TCNR(excelFile sheetName row_1 close_1 / lst xl wbs wb shs sh tem1 tem2)
(vl-load-com)
(if (null (setq xl (vlax-get-object "Excel.Application")))   
  (setq xl  (vlax-get-or-create-object "Excel.Application") tem1 "T")       ;创建excel程序对象     
)
(setq wbs (vlax-get-property  xl "WorkBooks"))                   ;获取excel程序对象的工作簿集合对象 增加'WorkBooks) 'Add) 工作簿集合
(if (null tem1)  ; 已有打开的EXCEL
  (progn
    (vlax-for item wbs
      (setq lst (cons (vlax-get item 'name) lst))
    )
    (if (member (file_TQ excelFile) lst)
       (progn
         (vl-catch-all-apply (vlax-get-property wbs 'Item "book"))  ;就这行，提取excelFile 名，不知怎么改(setq wb.....
         (setq tem2 "T"  )
       )
       (setq wb  (vlax-invoke-method wbs "open" excelFile))            ;用工作簿集合对象打开指定的excel文件   
    )
  )
  (setq wb (vlax-invoke-method wbs "open"  excelFile))            ;用工作簿集合对象打开指定的excel文件
)
(if tem1 (vla-put-visible xl 0))   
(setq shs (vlax-get-property wb "Sheets"))                       ;获取刚才打开工作簿的工作表集合
(setq sh  (vlax-get-property  shs "Item" sheetName))             ;获取指定的工作表
(setq rg (vlax-get-property  sh 'usedrange))               ;用指定的字符串创建工作表范围对象  
(setq vvv (vlax-get-property rg 'Value))                         ;获取范围对象的值  
(setq ttt (vlax-safearray->list (vlax-variant-value vvv)))       ;转换为list  
(if tem1
  (progn
    (vlax-invoke-method wb "Close" )                                 ;关闭工作簿
    (vlax-invoke-method  xl "Quit")                                  ;退出excel对象  
    (vlax-release-object xl)                                         ;释放excel对象
) )
(setq c row_1 list_2 '())
(while (< c (length ttt))
  (setq tem (nth c ttt))
  (setq cc 0 list_1 '())
  (repeat (length tem)
    (setq tem1 (nth cc tem))
    (setq list_1 (cons (vlax-variant-value tem1) list_1))
    (setq cc (+ cc 1))
  )
  (setq list_2 (cons (reverse list_1) list_2))
  (setq c (+ c 1))
)
(reverse list_2)
)

csharp

你要取什么？

挚友01

(setq xl (vlax-get-object "Excel.Application"))
(vlax-invoke-method  xl "Quit")                                  ;退出excel对象  没什么作用
     (vlax-release-object xl)
近似没用，进程里还有.  怎么办?

挚友01

？？？？？？