Lisp实现在EXCEL中自动填充

zdqwy19

          用Lisp如何编写在excel选择一行某几个单元格的数据形式实现下拉填充的效果。
          I don't know the reason why you use"AutoFill"method or what the series you want to fill. You must give the default series defined by yourself if you want to use"AutoFill"method. I would like to suggest you to read the help topic about"AutoFill"method. I copied it and pasted it below. Please read it.
Excel Developer Reference
Range.AutoFill Method
Performs an autofill on the cells in the specified range.
Syntax
expression.AutoFill(Destination, Type)
expression  A variable that represents a Range object.
Parameters
Name Required/Optional Data Type Description
Destination Required Range The cells to be filled. The destination must include the source range.
Type Optional XlAutoFillType Specifies the fill type.
Return Value
Variant
Example

This example performs an autofill on cells A1:A20 on Sheet1, based on the source range A1:A2 on Sheet1. Before running this example, type 1 in cell A1 and type 2 in cell A2.
Visual Basic for Applications
Set sourceRange = Worksheets("Sheet1").Range("A1:A2")
Set fillRange = Worksheets("Sheet1").Range("A1:A20")
sourceRange.AutoFill Destination:=fillRange
        这是vba的自动填充说明，我用vlisp改了不成功，有哪位高手愿意帮忙修改一下用vlisp怎么写，谢谢！

snddd2000

2. (vl-load-com)
   
3. (setq excelapp0 (vlax-get-object "Excel.Application"))
   
4. ;;excel程序对象,Application 对象
   
5. (setq activeworkbook0 (vlax-get-property excelapp0 'ActiveWorkbook))
   
6. ;;excel工作簿对象
   
7. (setq activesheet0 (vlax-get-property activeworkbook0 'ActiveSheet))
   
8. ;;excel工作表对象
   
9. (setq cells0 (vlax-get-property activesheet0 'cells))
   
10. ;;excel单元格对象
    
11. (setq SourceRange (vlax-get-property cells0 'range "A1:A2"))
    
12. (setq FillRange (vlax-get-property cells0 'range "A1:A20"))
    
13. (vlax-invoke-method SourceRange 'autofill FillRange 2);;;2007版excel

(vl-load-com)<br /> (setq excelapp0 (vlax-get-object "Excel.Application"))<br /> ;;excel程序对象,Application 对象<br /> (setq activeworkbook0 (vlax-get-property excelapp0 'ActiveWorkbook))<br /> ;;excel工作簿对象<br /> (setq activesheet0 (vlax-get-property activeworkbook0 'ActiveSheet))<br /> ;;excel工作表对象<br /> (setq cells0 (vlax-get-property activesheet0 'cells))<br /> ;;excel单元格对象<br /> (setq SourceRange (vlax-get-property cells0 'range "A1:A2"))<br /> (setq FillRange (vlax-get-property cells0 'range "A1:A20"))<br /> (vlax-invoke-method SourceRange 'autofill FillRange 2);;;2007版excel

zdqwy19

snddd2000 发表于 2012-3-21 10:28

       谢谢！看样子方法是正确的，不出现恼人的错误提示，就是我的电脑cpu一下子就跑了100.或许是我引用时错了，我在查查。

zdqwy19

解决了，是电脑测试时错误累加的结果，再次表示感谢。

fdb2007

学习，看高手的成果

jyzas

谢谢沙发的源码

YDPLDL

谢谢沙发的源码!

dbqtju

终于看到获得活动工作簿的代码了：(setq activeworkbook0 (vlax-get-property excelapp0 'ActiveWorkbook))。原来如此。谢谢。

itoboy

值得学习学习