Excel单元格复制

dcl1214

1. (defun $excel-rang-copy$
   
2.        (xlapp       SH-N-O  SH-N-new   address-o
   
3.         address-n  lst  /     xlsheet1
   
4.         xlsheet2
   
5.        )
   
6.           ;单元格复制
   
7.   ;SH-N-O原sheet表名
   
8.   ;SH-N-new 新的目标sheet表名
   
9.   ;address-o原复制单元格地址
   
10.   ;address-n 新的单元格地址
    
11.   (or xlapp (setq xlapp ($xlapp-New$ NIL nil nil)))
    
12.   (or SH-N-new (setq SH-N-new SH-N-O))
    
13.   (setq  xlsheet1
    
14.    (vl-catch-all-apply
    
15.      'vlax-get-property
    
16.      (list (vl-catch-all-apply
    
17.        'vlax-get-property
    
18.        (list (vl-catch-all-apply
    
19.          'vlax-get-property
    
20.          (list xlapp 'activeworkbook)
    
21.        )
    
22.        'Sheets
    
23.        )
    
24.      )
    
25.      'Item
    
26.      SH-N-O
    
27.      )
    
28.    )
    
29.   )
    
30.   (setq  xlsheet2
    
31.    (vl-catch-all-apply
    
32.      'vlax-get-property
    
33.      (list (vl-catch-all-apply
    
34.        'vlax-get-property
    
35.        (list (vl-catch-all-apply
    
36.          'vlax-get-property
    
37.          (list xlapp 'activeworkbook)
    
38.        )
    
39.        'Sheets
    
40.        )
    
41.      )
    
42.      'Item
    
43.      SH-N-new
    
44.      )
    
45.    )
    
46.   )
    
47.   (vl-catch-all-apply
    
48.     'vlax-invoke-method
    
49.     (list (vl-catch-all-apply
    
50.       'msxlp-get-range
    
51.       (list xlsheet1 address-o)
    
52.     )
    
53.     'copy
    
54.     (vl-catch-all-apply
    
55.       'msxlp-get-range
    
56.       (list xlsheet2 address-n)
    
57.     )
    
58.     )
    
59.   )
    
60. )

(defun $excel-rang-copy$<br />        (xlapp       SH-N-O  SH-N-new   address-o<br />         address-n  lst  /     xlsheet1<br />         xlsheet2<br />        )<br />           ;单元格复制<br />   ;SH-N-O原sheet表名<br />   ;SH-N-new 新的目标sheet表名<br />   ;address-o原复制单元格地址<br />   ;address-n 新的单元格地址<br />   (or xlapp (setq xlapp ($xlapp-New$ NIL nil nil)))<br />   (or SH-N-new (setq SH-N-new SH-N-O))<br />   (setq  xlsheet1<br />    (vl-catch-all-apply<br />      'vlax-get-property<br />      (list (vl-catch-all-apply<br />        'vlax-get-property<br />        (list (vl-catch-all-apply<br />          'vlax-get-property<br />          (list xlapp 'activeworkbook)<br />        )<br />        'Sheets<br />        )<br />      )<br />      'Item<br />      SH-N-O<br />      )<br />    )<br />   )<br />   (setq  xlsheet2<br />    (vl-catch-all-apply<br />      'vlax-get-property<br />      (list (vl-catch-all-apply<br />        'vlax-get-property<br />        (list (vl-catch-all-apply<br />          'vlax-get-property<br />          (list xlapp 'activeworkbook)<br />        )<br />        'Sheets<br />        )<br />      )<br />      'Item<br />      SH-N-new<br />      )<br />    )<br />   )<br />   (vl-catch-all-apply<br />     'vlax-invoke-method<br />     (list (vl-catch-all-apply<br />       'msxlp-get-range<br />       (list xlsheet1 address-o)<br />     )<br />     'copy<br />     (vl-catch-all-apply<br />       'msxlp-get-range<br />       (list xlsheet2 address-n)<br />     )<br />     )<br />   )<br /> )