VLISP COM读EXCEL例子代码

marting

下面是个例子，读A1单元格的内容

1. (defun c:extest1(/ eFile A1Value A1Range Workheet cFile Workbooks Excel)
   
2.   (vl-load-com)
   
3.   (if(setq eFile(getfiled "Select *.xls file" "" "xls" 4))
   
4.     (progn
   
5.         (setq A1Value(vlax-variant-value(vlax-get-property
   
6.           (setq A1Range(vlax-get-property
   
7.             (setq Workheet(vlax-get-property
   
8.               (setq Worksheets(vlax-get-property
   
9.                 (setq cFile(vlax-invoke-method
   
10.                   (setq Workbooks(vlax-get-property
    
11.                     (setq Excel(vlax-get-or-create-object "Excel.Application"))
    
12.                     'Workbooks)) 'Open eFile)) 'Worksheets)) 'Item 1)) 'Range "A1"))'Formula)))
    
13.       (alert(strcat eFile "\n" "A1 Value = " A1Value))
    
14.       (vlax-release-object A1Range)(vlax-release-object Workheet)(vlax-release-object Worksheets)
    
15.       (vlax-invoke-method cFile 'Close)(vlax-release-object cFile)
    
16.       (vlax-invoke-method Excel 'Quit)(vlax-release-object Excel)
    
17.       ); end progn
    
18.     ); end if
    
19.   (princ)
    
20.   ); end of c:extest1
    

(defun c:extest1(/ eFile A1Value A1Range Workheet cFile Workbooks Excel)<br />   (vl-load-com)<br />   (if(setq eFile(getfiled "Select *.xls file" "" "xls" 4))<br />     (progn<br />         (setq A1Value(vlax-variant-value(vlax-get-property<br />           (setq A1Range(vlax-get-property<br />             (setq Workheet(vlax-get-property<br />               (setq Worksheets(vlax-get-property<br />                 (setq cFile(vlax-invoke-method<br />                   (setq Workbooks(vlax-get-property<br />                     (setq Excel(vlax-get-or-create-object "Excel.Application"))<br />                     'Workbooks)) 'Open eFile)) 'Worksheets)) 'Item 1)) 'Range "A1"))'Formula)))<br />       (alert(strcat eFile "\n" "A1 Value = " A1Value))<br />       (vlax-release-object A1Range)(vlax-release-object Workheet)(vlax-release-object Worksheets)<br />       (vlax-invoke-method cFile 'Close)(vlax-release-object cFile)<br />       (vlax-invoke-method Excel 'Quit)(vlax-release-object Excel)<br />       ); end progn<br />     ); end if<br />   (princ)<br />   ); end of c:extest1<br />

marting

COM操作的顺序

Excel > Workbooks Collection > Workbook > Worksheets Collection > Worksheet > Cells Range > Cell > Value