Question

从EXCEL工作薄中第一个工作表里的A1单元格提取一个数值让它显示在VB窗体的Text文本框里

从EXCEL工作薄中第一个工作表里的A1单元格提取一个数值让它显示在VB窗体的Text文本框里要怎么写代码，这个工作薄是随程序一起运行的，在后台运行。不需要重复打开它。帮忙写个完整代码，理论的东西后面在请教，先求段代码。
感谢网友的热心回复，还请各大家看清题目，要的是VB代码，不是VBA代码，谢谢，请大家帮我写段代码，很多理论的东西看着晕^_^

Answer 1

给你一个例子

添加一个按钮；
'首先通过VB的菜单[工程] -- [引用]，勾选：Microsoft Excel 11.0 Object Library

'其中11.0是不一定的，要看你计算机安装的OFFICE版本而定

Private Sub Command1_Click()
Dim xlsApp As Excel.Application '声明Excel对象变量

Set xlsApp = Excel.Application '创建EXCEL对象实例
xlsApp.Workbooks.Open ("C:\实验1.xls") '使用EXCEL对象的Open方法打开已经存在的工作簿EXCEL文件

xlsApp.Visible = False '设置EXCEL对象不可见（或True为可见）

'引用单元格方法1
xlsApp.Workbooks("实验1.xls").Sheets("Sheet1").Cells(1, 1) = 999 '给“Sheet1”表的第1行第1格即“A1”单元格赋值999
xlsApp.Workbooks("实验1.xls").Sheets("Sheet1").Cells(2, 1) = "你好！" '给“Sheet1”表的第1行第1格即“A2”单元格赋值"你好！"
xlsApp.Workbooks("实验1.xls").Sheets("Sheet1").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#
xlsApp.Workbooks("实验1.xls").Sheets("Sheet1").Range("C1").Value = Str '用变量给“Sheet1”表的“C1”单元格赋值
xlsApp.Workbooks("实验1.xls").Sheets("Sheet1").Range("C2").Value = d '用变量给“Sheet1”表的“C2”单元格赋值 日期类型

'读取单元格数据
Dim x As Integer
Dim s As String
Dim d1 As Date
x = xlsApp.Workbooks("实验1.xls").Sheets("Sheet1").Cells(1, 1).Value
s = xlsApp.Workbooks("实验1.xls").Sheets("Sheet1").Range("C1").Value
d1 = xlsApp.Workbooks("实验1.xls").Sheets("Sheet1").Range("C2").Value
MsgBox x, , "VBA 实例"
MsgBox s, , "VBA 实例"
MsgBox d1, , "VBA 实例"

'单元格之间直接完成赋值
xlsApp.Workbooks("实验1.xls").Sheets("Sheet1").Range("A5").Value = xlsApp.Workbooks("实验1.xls").Sheets("Sheet1").Range("A1").Value - 99
xlsApp.Workbooks("实验1.xls").Sheets("Sheet1").Range("A10").Value = Sqr(xlsApp.Workbooks("实验1.xls").Sheets("Sheet1").Range("A5"))

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

End Sub

Answer 2

textbox1.text=sheets("sheet1").range("A1")