VB读取excel表

我给你个简单的例子，假设有文件＂c:\1.xls＂

'要在VB中操作Excel，需要引用Excel对象模型

'方法，在菜单里选择[工程] -- [引用]，在窗口里勾选Microsoft Excel XX.X Object Library

'其中，XX.X取决于你安装的Office的版本号

Private Sub Command6_Click()

Dim excel_App As Excel.Application

Dim excel_Book As Excel.Workbook

Dim excel_sheet As Excel.Worksheet

'启动Excel

Set excel_App = CreateObject("Excel.Application") '引用程序对象实例

'设置Excel为不可见

excel_App.Visible = False

'打开文件

Set excel_Book = excel_App.Workbooks.Open("C:\1.XLS") '工作簿实例Set excel_sheet = excel_Book.Worksheets("Sheet1") '数据表实例excel_sheet.Range("C1").Value = "你好!" '设置单元格C1的值为"你好!"

excel_sheet.Range("A1").Value = 100 '设置单元格A1的值为100

excel_sheet.Range("A2").Value = 9 '设置单元格A2的值为9

excel_sheet.Range("A3").Value = excel_sheet.Range("A1").Value +

excel_sheet.Range("A2").Value '计算

'''''''''''''''''''''''''''''''''''

'关闭Excel文件

Set excel_sheet = Nothing

excel_App.ActiveWorkbook.Close savechanges:=True '保存对EXCELL进行更改。

Set excel_Book = Nothing

excel_App.Quit

Set excel_App = Nothing

End Sub

追问

你好，高手！

我的想法是这样的，编一个软件，这个软件用excel表格当做它的数据库。这个软件只能对表格进行读写操作。比如：

当text1读入A行a内容时，text2自动读取A行b内容，代码里不要对表格进行赋值。

69978084

回答

难道你没看懂，读取单元格数据的方法？

不过，我没理解你的：

＂当text1读入A行a内容时，text2自动读取A行b内容＂

何谓：A行a内容

69980212

追问

A行a内容就是：A 行（记录），a 列（字段）69997505

回答

那么我举例：首先设行用H变量，列用L1和L2变量，

H = 20

L1 = "A"

L2 = "B"

Text1.Text = excel_sheet.Range(L1 & Cstr(H)).Value

Text2.Text = excel_sheet.Range(L2 & Cstr(H)).Value