能帮忙把导出Excel改成导出WPS吗，搞了好久没搞好。
本帖最后由 wgij007 于 2020-12-24 08:20 编辑;;;表快速输出 XLS
;lst表一行一子表，一格一元素
;(ls2xls (list (list "x" "y" 3)(list 1 "" 3)))
(defun ls2xls (lst / Excel:i2ColNo lens maxl x excel bks acBook sht rc cells range)
(defun Excel:i2ColNo (a / l _i2ColNo)
(defun _i2ColNo (num / lst)
(cond((<= 1 num 26)(setq lst(cons num lst)))
((> num 26)(setq lst(append(_i2ColNo (/ num 26))(list(rem num 26)))))
(t lst)
) lst
)
(if (and(>= (setq a(fix(abs a)))1)(setq l(_i2ColNo a)))
(apply 'strcat(mapcar '(lambda (x)(chr(+ 64 x)))l))
)
);整数转EXCEL的列编号
(setq lens(mapcar 'length lst))
(setq maxl(apply 'max lens))
(if (not(apply '= lens))
(setq lst(mapcar '(lambda(x)
(repeat(- maxl(length x))(setq x(append x(list "")))) x)lst)
);子表不等长的用""补齐
)
(setq excel (vlax-get-or-create-object "Excel.Application"))
(vla-put-visible excel :vlax-true)
(setq lens(length lst));行数
(setq bks (vlax-get excel 'workbooks))
(setq acBook(vlax-invoke bks 'Add))
(setq sht(vlax-get excel 'ActiveSheet))
(setq rc (strcat "A1:"(excel:i2ColNo maxl)(itoa lens)));写表范围
(setq cells(vlax-get sht 'cells))
(setq range(vlax-get-property cells 'Range rc))
(vlax-put-property range'value2
(vlax-safearray-fill
(vlax-make-safearray vlax-vbstring
(cons 1 lens)(cons 1(length (car lst)))
)lst
)
)
;(vlax-put-property (vlax-get-property sht "Range" "A:A") "ColumnWidth" 20);列宽20
;(vlax-put-property (vlax-get-property sht "Range" "1:1") "RowHeight" 30);行高30
)
把Excel.Application 改为 ket.Application也不行
首先改成ket.Application，然后看看有什么错误提示，然后再根据错误提示修改代码。 楼上是高人 我也很需要这个，静等高人 LIULISHENG 发表于 2021-9-18 23:03
我也很需要这个，静等高人
问题找到了，装一个数据库就可了
页:
[1]