难以逾越，变量取得excel单元格数据，请教高手

llsheng_73

(defun vlxls-get-cell(obj row col / item cells);;;网上找的，不过忘了从哪里找了的，相信大神们都能看出它来自哪里
  (setq item (vlax-get-property
               (setq cells(vlax-get-property obj "Cells"))"Item"(vlax-make-variant row)
               (vlax-make-variant col)))
  (vlax-release-object cells)
  (vlax-variant-value item))

yxh1202

llsheng_73 发表于 2013-12-21 00:07
(defun vlxls-get-cell(obj row col / item cells);;;网上找的，不过忘了从哪里找了的，相信大神们都能看出 ...

能给个范例吗

yxh1202

llsheng_73 发表于 2013-12-21 00:07
(defun vlxls-get-cell(obj row col / item cells);;;网上找的，不过忘了从哪里找了的，相信大神们都能看出 ...

你好，我昨晚在一个外国网站上看到这个，可能有帮助，但是不会结合我的要求达到目的：
http://bbs.mjtd.com/forum.php?mo ... mp;extra=#pid620734

渠辉

2. ;; (excel-getcell 1 2)
   
3. (defun excel-getcell (row col)
   
4.   (setq        excel (cond ((vlax-get-or-create-object "ket.application"))
   
5.                     ((vlax-get-or-create-object "execl.application"))
   
6.               )
   
7.         sht   (vlax-get excel 'activesheet)
   
8.   )
   
9.   (variant-value
   
10.     (vlax-get-property
    
11.       (vlax-variant-value
    
12.         (vlax-get-property
    
13.           (vlax-get-property sht 'cells)
    
14.           'item
    
15.           row
    
16.           col
    
17.         )
    
18.       )
    
19.       'value2
    
20.     )
    
21.   )
    
22. )

;; (excel-getcell 1 2)<br /> (defun excel-getcell (row col)<br />   (setq        excel (cond ((vlax-get-or-create-object "ket.application"))<br />                     ((vlax-get-or-create-object "execl.application"))<br />               )<br />         sht   (vlax-get excel 'activesheet)<br />   )<br />   (variant-value<br />     (vlax-get-property<br />       (vlax-variant-value<br />         (vlax-get-property<br />           (vlax-get-property sht 'cells)<br />           'item<br />           row<br />           col<br />         )<br />       )<br />       'value2<br />     )<br />   )<br /> )

yxh1202

渠辉 发表于 2022-7-26 07:26

谢谢你时隔几年还回帖指导