有合并EXCEL单元格和调整列或行的的函数吗？谢谢

Saging

2. (defun c:test()
3.   (vl-load-com)
4.   (setq excel_app (vlax-get-or-create-object "excel.application"))
5.   (vlax-put-property excel_app "visible" "true")
6.   (setq excel_workbook (vlax-get-property excel_app "activeworkbook"))
7.   (if (= excel_workbook nil)
8.     (progn
9.       (setq workbooks (vlax-get-property excel_app "workbooks"))
10.       (setq excel_workbook (vlax-invoke-method workbooks "add"))
11.       )
12.     )
13.   (setq range (vlax-get-property excel_app  "range" "a1:b2"))
14.   (vlax-invoke-method range "select")
15.   (setq selection (vlax-get-property excel_app "selection"))
16.   (vlax-invoke-method selection "merge")  
17.   );以上程序--合并EXCEL单元格

(defun c:test()   (vl-load-com)   (setq excel_app (vlax-get-or-create-object "excel.application"))   (vlax-put-property excel_app "visible" "true")   (setq excel_workbook (vlax-get-property excel_app "activeworkbook"))   (if (= excel_workbook nil)     (progn       (setq workbooks (vlax-get-property excel_app "workbooks"))       (setq excel_workbook (vlax-invoke-method workbooks "add"))       )     )   (setq range (vlax-get-property excel_app  "range" "a1:b2"))   (vlax-invoke-method range "select")   (setq selection (vlax-get-property excel_app "selection"))   (vlax-invoke-method selection "merge")     );以上程序--合并EXCEL单元格

Saging

3.   (setq range (vlax-get-property excel_app "range" "1:2"))
4.   (vlax-put-property range "rowheight" "20");以上调整行高
5.   (setq range (vlax-get-property excel_app "range" "d:e"))
6.   (vlax-put-property range "columnwidth" "30");以上调整列宽

  (setq range (vlax-get-property excel_app "range" "1:2"))   (vlax-put-property range "rowheight" "20");以上调整行高   (setq range (vlax-get-property excel_app "range" "d:e"))   (vlax-put-property range "columnwidth" "30");以上调整列宽

Saging

其实录制一下宏就可以在VBA里面看到代码了.

jyzas

谢谢二楼，正在学