Question

关于VB插入EXCEL对象问题

你好, 我在百度看到你的提问, 就是VB窗体上插入EXCEL对象后如何提取单元格值问题, 不知道你有没有解决了? 谢谢

Answer 1

我下面说的是在程序里，引用EXCEL对象的方法：
首先通过VB的菜单[工程] -- [引用]，勾选：Microsoft Excel XX.X Object Library
其中XX.X是由你计算机安装的OFFICE版本而定的，比如：2003版的是11.0，2010版的是14.0

有以上引用，就可以用下面的代码对EXCEL数据表进行操作了：下面是一些简单的例子；

Dim xlsApp As Excel.Application '声明Excel对象变量
Dim xlsBook As Excel.Workbook '声明工作簿对象变量
Dim xlsSheet As Excel.Worksheet '声明工作表对象变量

'******************** 创建EXCEL对象实例、打开EXCEL文件，并创建工作簿实例的 方法一 ********************
Set xlsApp = CreateObject("Excel.Application") '创建EXCEL对象实例
Set xlsBook = xlsApp.Workbooks.Open("C:\实验1.xls") '设置工作簿对象并打开已经存在的工作簿EXCEL文件
'**********************************************************************************************************

xlsApp.Visible = False '设置EXCEL对象不可见（或True为可见）
Set xlsSheet = xlsBook.Worksheets("Sheet1") '设置工作表对象为打开的工作簿中的表“Sheet1”

'引用单元格方法1
xlsSheet.Cells(1, 1) = 999 '给“Sheet1”表的第1行第1格即“A1”单元格赋值999
xlsSheet.Cells(2, 1) = "你好！" '给“Sheet1”表的第1行第1格即“A2”单元格赋值"你好！"
xlsSheet.Cells(3, 2) = "EXCEL" '给“Sheet1”表的第1行第1格即“B3”单元格赋值"EXCEL"

'引用单元格方法2
Dim Str As String
Dim d As Date
Str = "欢迎使用EXCEL VBA"
d = #8/28/2012#
xlsSheet.Range("C1").Value = Str '用变量给“Sheet1”表的“C1”单元格赋值
xlsSheet.Range("C2").Value = d '用变量给“Sheet1”表的“C2”单元格赋值 日期类型

xlsBook.Close (True) '关闭工作簿并保存所做的修改 (False)则放弃修改，xlsBook.Close将会提问
xlsApp.Quit '关闭EXCEL对象
Set xlsApp = Nothing '释放xlApp对象

追问

你好, 感谢你的回答, 但这不是我要的, 我的EXCEL表格是已经作为对象插入在窗体上了, 我不需要另外在打开一个EXCEl表格, 我是在窗体上插入表格后运行, 然后在窗体的表格中填入数据, 然后提取数据再运行其他功能