VB怎样操作向excel中插入数据（求代码）

2024-12-14 13:59:21

推荐回答（2个）

回答1：

通过看你的图片,和你的描述不是很一致.

只能给你一些思路.

Sub 循环插入()
For i = 1 To 10 '设定循环次数,从1到10
    Cells(i, 1) = i * i '单元格i行1列输入数据i*i
Next
End Sub

'此程序运行后是在A1:A10的单元格依次填充1的平方,到10的平方

回答2：

VB本身的自动化功能就可以实现，其方法如下：
　　1、在工程中引用Microsoft Excel类型库：
　　从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。
　　2、在通用对象的声明过程中定义EXCEL对象：
　　Dim xlApp As Excel.Application
　　Dim xlBook As Excel.WorkBook
　　Dim xlSheet As Excel.Worksheet