Excel自动填充

dcl1214

1. (defun $excel-zi-dong-tian-chong$ (xlapp     sh-n      rang-start
   
2.            c-cz       XlAutoFillType
   
3.            lst       /         co
   
4.            nums       rang-end  row
   
5.            rows       strs      xlsheet
   
6.           )
   
7.           ;自动填充
   
8.           ;xlapp             excel的对象
   
9.           ;sh-n              sheet的表名字
   
10.           ;rang-start        起始单元格，字串格式
    
11.           ;c-cz              参照列，用来计算最大行的行号
    
12.           ;XlAutoFillType    填充模式
    
13.           ;lst               预留参数
    
14.           ;($excel-zi-dong-tian-chong$  nil "Sheet1" "C1" "A65536" 6 NIL)
    
15.   (or XlAutoFillType (setq XlAutoFillType 6))
    
16.   (or c-cz (setq c-cz "A65536"))  ;参照列，用来计算最下面哪一行的行号
    
17.   (or xlapp (setq xlapp ($xlapp-New$ NIL nil nil))) ;EXCEL对象
    
18.   (setq  xlsheet
    
19.    (vl-catch-all-apply
    
20.      'vlax-get-property
    
21.      (list (vl-catch-all-apply
    
22.        'vlax-get-property
    
23.        (list (vl-catch-all-apply
    
24.          'vlax-get-property
    
25.          (list xlapp 'activeworkbook)
    
26.        )
    
27.        'Sheets
    
28.        )
    
29.      )
    
30.      'Item
    
31.      sh-n
    
32.      )
    
33.    )
    
34.   )          ;根据传入进来的表名字获取表对象
    
35.   (cond  ((and rows (= (type rows) 'str) (= (type (read rows)) 'int))
    
36.           ;传入进来是字串格式，同时read后是int格式
    
37.    t
    
38.   )
    
39.   ((and rows (= (type (read rows)) 'int)) ;传入进来的就是int格式
    
40.    (setq rows (vl-princ-to-string rows)) ;转换为字串格式
    
41.   )
    
42.   (t
    
43.    (setq rows (vl-princ-to-string
    
44.           (vlax-get-property
    
45.       (vlax-get-property
    
46.         (msxlp-get-range xlsheet c-cz)
    
47.         'End
    
48.         3
    
49.       )
    
50.       'Row
    
51.           )
    
52.         )
    
53.    )        ;自动根据参照列计算最大行的行号
    
54.   )
    
55.   )          ;填充的最大行数
    
56.   (setq nums nil)
    
57.   (setq  strs (MAPCAR 'vl-list->string
    
58.          (mapcar 'list (vl-string->list rang-start))
    
59.        )
    
60.   )          ;转为字串表
    
61.   (setq strs (reverse strs))    ;倒置
    
62.   (while (and strs (= (type (read (car strs))) 'int))
    
63.     (setq nums (cons (car strs) nums))  ;找到数字，其实就是起始行号
    
64.     (setq strs (cdr strs))
    
65.   )
    
66.   (setq co (apply 'strcat (reverse strs))) ;得到起始列号
    
67.   (setq row (apply 'strcat (reverse nums))) ;得到起始行号
    
68.   (and rang-start
    
69.        co
    
70.        rows
    
71.        (setq rang-end (strcat rang-start ":" co rows))
    
72.   )          ;计算填充的最大行号
    
73.   (vl-catch-all-apply
    
74.     'vlax-invoke-method
    
75.     (LIST (vl-catch-all-apply
    
76.       'msxlp-get-range
    
77.       (list xlsheet rang-start)
    
78.     )
    
79.     'AutoFill
    
80.     (vl-catch-all-apply
    
81.       'msxlp-get-range
    
82.       (list xlsheet rang-end)
    
83.     )
    
84.     XlAutoFillType
    
85.     )
    
86.   )          ;执行填充
    
87. )

(defun $excel-zi-dong-tian-chong$ (xlapp     sh-n      rang-start<br />            c-cz       XlAutoFillType<br />            lst       /         co<br />            nums       rang-end  row<br />            rows       strs      xlsheet<br />           )<br />           ;自动填充<br />           ;xlapp             excel的对象<br />           ;sh-n              sheet的表名字<br />           ;rang-start        起始单元格，字串格式<br />           ;c-cz              参照列，用来计算最大行的行号<br />           ;XlAutoFillType    填充模式<br />           ;lst               预留参数<br />           ;($excel-zi-dong-tian-chong$  nil "Sheet1" "C1" "A65536" 6 NIL)<br />   (or XlAutoFillType (setq XlAutoFillType 6))<br />   (or c-cz (setq c-cz "A65536"))  ;参照列，用来计算最下面哪一行的行号<br />   (or xlapp (setq xlapp ($xlapp-New$ NIL nil nil))) ;EXCEL对象<br />   (setq  xlsheet<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<br />      )<br />    )<br />   )          ;根据传入进来的表名字获取表对象<br />   (cond  ((and rows (= (type rows) 'str) (= (type (read rows)) 'int))<br />           ;传入进来是字串格式，同时read后是int格式<br />    t<br />   )<br />   ((and rows (= (type (read rows)) 'int)) ;传入进来的就是int格式<br />    (setq rows (vl-princ-to-string rows)) ;转换为字串格式<br />   )<br />   (t<br />    (setq rows (vl-princ-to-string<br />           (vlax-get-property<br />       (vlax-get-property<br />         (msxlp-get-range xlsheet c-cz)<br />         'End<br />         3<br />       )<br />       'Row<br />           )<br />         )<br />    )        ;自动根据参照列计算最大行的行号<br />   )<br />   )          ;填充的最大行数<br />   (setq nums nil)<br />   (setq  strs (MAPCAR 'vl-list->string<br />          (mapcar 'list (vl-string->list rang-start))<br />        )<br />   )          ;转为字串表<br />   (setq strs (reverse strs))    ;倒置<br />   (while (and strs (= (type (read (car strs))) 'int))<br />     (setq nums (cons (car strs) nums))  ;找到数字，其实就是起始行号<br />     (setq strs (cdr strs))<br />   )<br />   (setq co (apply 'strcat (reverse strs))) ;得到起始列号<br />   (setq row (apply 'strcat (reverse nums))) ;得到起始行号<br />   (and rang-start<br />        co<br />        rows<br />        (setq rang-end (strcat rang-start ":" co rows))<br />   )          ;计算填充的最大行号<br />   (vl-catch-all-apply<br />     'vlax-invoke-method<br />     (LIST (vl-catch-all-apply<br />       'msxlp-get-range<br />       (list xlsheet rang-start)<br />     )<br />     'AutoFill<br />     (vl-catch-all-apply<br />       'msxlp-get-range<br />       (list xlsheet rang-end)<br />     )<br />     XlAutoFillType<br />     )<br />   )          ;执行填充<br /> )

kmliro_2017

谢谢分享！！！！！