已经打开的新工作簿，如何插入一行，设置居中对齐？

pxt2001

请问，已经打开的excel 新工作簿，如何在A1单元格前插入一行，然后A1:E5区域设置居中对齐？

llsheng_73

1. (setq xls(vlax-get-object"excel.application"))
   
2. (msxl-select(msxl-get-range xls"A1"))
   
3. (msxl-Insert(msxl-get-selection xls))
   
4. 
   
5. (msxl-put-HorizontalAlignment(msxl-get-range xls"A1:E5")msxl-xlCenter)
   

(setq xls(vlax-get-object"excel.application"))<br /> (msxl-select(msxl-get-range xls"A1"))<br /> (msxl-Insert(msxl-get-selection xls))<br /> <br /> (msxl-put-HorizontalAlignment(msxl-get-range xls"A1:E5")msxl-xlCenter)<br />

需要连接ms-excel库

1. (defun XLSLib(/ path tlb)
   
2.   (setq obj(vlax-get-or-create-object "Excel.Application"))
   
3.   (setq path(vlax-get obj 'Path))
   
4.   (if(vl-some'(lambda(x)(setq tlb(findfile(strcat path"/"x))))
   
5.       '("Excel8.olb""Excel9.olb""Excel10.olb""Excel.exe"))
   
6.     tlb(alert"本系统内未找到微软EXCEL,初始化失败!")))
   
7. (defun xlsinit( / tlbfile)
   
8.   (if(and(null msxl-xl24HourClock)(setq tlbfile(XLSLib)))
   
9.     (vlax-import-type-library :tlb-filename tlbfile :methods-prefix"msxl-":properties-prefix"msxl-":constants-prefix"msxl-"))
   
10.     msxl-xl24HourClock)

(defun XLSLib(/ path tlb)<br />   (setq obj(vlax-get-or-create-object "Excel.Application"))<br />   (setq path(vlax-get obj 'Path))<br />   (if(vl-some'(lambda(x)(setq tlb(findfile(strcat path"/"x))))<br />       '("Excel8.olb""Excel9.olb""Excel10.olb""Excel.exe"))<br />     tlb(alert"本系统内未找到微软EXCEL,初始化失败!")))<br /> (defun xlsinit( / tlbfile)<br />   (if(and(null msxl-xl24HourClock)(setq tlbfile(XLSLib)))<br />     (vlax-import-type-library :tlb-filename tlbfile :methods-prefix"msxl-":properties-prefix"msxl-":constants-prefix"msxl-"))<br />     msxl-xl24HourClock)

这样连接库之后就比vlax-get,vlax-put,vlax-invoke方便了很多

逍遥天下

路过，顶一下

pxt2001

请问：
(if(vl-some'(lambda(x)(setq tlb(findfile(strcat path"<a href="http://bbs.mjtd.com/file://\\" target="_blank">\\"x</a>))))
这段无法运行，怎么情况？

llsheng_73

pxt2001 发表于 2017-10-19 12:45
请问：
(if(vl-some'(lambda(x)(setq tlb(findfile(strcat path"\\"x))))
这段无法运行，怎么情况？

(vl-some'(lambda(x)(setq tlb(findfile(strcat path"/"x))))
'("Excel8.olb""Excel9.olb""Excel10.olb""Excel.exe"))
应该是网页的问题，它把"\\"X转成了网址。。。。所以发生意外