liminnet 发表于 2009-5-14 20:07:00

Saging 发表于 2009-5-14 23:12:00

(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 发表于 2009-5-14 23:24:00


(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 发表于 2009-5-14 23:26:00

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

liminnet 发表于 2009-5-15 08:57:00

jyzas 发表于 2013-8-15 07:12:50

谢谢二楼，正在学
页: [1]
查看完整版本: 有合并EXCEL单元格和调整列或行的的函数吗？谢谢