当前位置:编程学习 > VB >>

咨询一下VB操作Excel(不是VBA)有没有类似autofill的指令

想操作Excel,在比如说U3单元格中输入一个很长的公式
然后将U4:U30单元格自动套用该公式

找了一下,自己没办法
网上找到个公式
Application.AddCustomList listarray:=Range("A1:A8")
运用后出错

用VBA的autofill,似乎格式也不被VB2008接受

请问各位,用VB操作excel的时候,有类似VBA中的autofill来自动套用的代码吗? --------------------编程问答-------------------- 你在Excel中录制一个宏看看? --------------------编程问答--------------------
引用 1 楼 veron_04 的回复:
你在Excel中录制一个宏看看?


我说的不是VBA,也不是宏
而是通过VB直接操作excel --------------------编程问答--------------------
引用 2 楼 fwcben 的回复:
引用 1 楼 veron_04 的回复:
 你在Excel中录制一个宏看看?


 我说的不是VBA,也不是宏
 而是通过VB直接操作excel

这位同志可能有点误解...一般在VB程序里操作EXCEL无非两种方法:VBA对象库(注意是对象库)和ADO...
如不用VBA和ADO难道要自己解构XLS文件格式?...使用VBA不是说一定要在OFFICE里写VBA代码... --------------------编程问答-------------------- 只能关注了。。。 --------------------编程问答--------------------
引用楼主 fwcben 的回复:
想操作Excel,在比如说U3单元格中输入一个很长的公式
然后将U4:U30单元格自动套用该公式

找了一下,自己没办法
网上找到个公式
Application.AddCustomList listarray:=Range("A1:A8")
运用后出错

用VBA的autofill,似乎格式也不被VB2008接受

请问各位,用VB操作excel的时候,有类似VBA中的autofill来自动套用的代码吗?


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim excel_app As Object
        excel_app = CreateObject("Excel.Application")
        excel_app.Visible = True
        excel_app.Workbooks.Open(Filename:="C:\book1.xls")
        excel_app.ActiveSheet.Range("U3").Select()
        excel_app.Selection.AutoFill(Destination:=excel_app.ActiveSheet.range("U3:U40"), Type:=0)

    End Sub
End Class


--------------------编程问答-------------------- VB 与VBA 差不多 --------------------编程问答-------------------- 通過EXCEL的宏代易做图可以知道
补充:VB ,  基础类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,