15问答网 > 在VB界面上用ole控件显示出了我电脑d盘的Excel，到时对Excel增加数据，怎么弄？

在VB界面上用ole控件显示出了我电脑d盘的Excel，到时对Excel增加数据，怎么弄？

2025-03-25 10:05:45

推荐回答（1个）

回答1：

打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项
先声明三个变量：
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
在Form_Load()中添加代码：
Set xlApp = CreateObject("Excel.application")
Set xlBook = xlApp.Workbooks.Open("d:\xjid.xls") '要打开Excel文件及路径
Set xlSheet = xlBook.Worksheets("Sheet1")'要打开的工作表
在要增加数据的地方加入代码：
iEnd = xlSheet.Range("A65535").End(xlUp).Row+1 '找到最后一行
xlSheet.Range("A" & iEnd)="你好" '如在A列最后一个单元格增加“你好”