我给你个简单的例子，假设有文件＂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为不可见 excel_App.Visible = False '打开文件 Set excel_Book = excel_App.Workbooks.Open(\ '工作簿实例 Set excel_sheet = excel_Book.Worksheets(\ '数据表实例 excel_sheet.Range(\你好!\ '设置单元格C1的值为\你好!\excel_sheet.Range(\ '设置单元格A1的值为100 excel_sheet.Range(\ '设置单元格A2的值为9 excel_sheet.Range(\excel_sheet.Range(\ '计算 ''''''''''''''''''''''''''''''''''' '关闭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 = \L2 = \Text1.Text = excel_sheet.Range(L1 & Cstr(H)).Value Text2.Text = excel_sheet.Range(L2 & Cstr(H)).Value
(完整word版)VB读取excel表
