我给你个简单的例子，假设有文件＂c:\1.xls＂'要在VB中操作Excel，需要引用Excel对象模型'方法，在菜单里选择[工程]--[引用]，在窗口里勾选MicrosoftExcelXX.XObjectLibrary'其中，XX.X取决于你安装的Office的版本号PrivateSubCommand6_Click()Dimexcel_AppAsExcel.ApplicationDimexcel_BookAsExcel.WorkbookDimexcel_sheetAsExcel.Worksheet'启动ExcelSetexcel_App=CreateObject("Excel.Application")'引用程序对象实例'设置Excel为不可见excel_App.Visible=False'打开文件Setexcel_Book=excel_App.Workbooks.Open("C:\1.XLS")'工作簿实例Setexcel_sheet=excel_Book.Worksheets("Sheet1")'数据表实例excel_sheet.Range("C1").Value="你好!"'设置单元格C1的值为"你好!"excel_sheet.Range("A1").Value=100'设置单元格A1的值为100excel_sheet.Range("A2").Value=9'设置单元格A2的值为9excel_sheet.Range("A3").Value=excel_sheet.Range("A1").Value+excel_sheet.Range("A2").Value'计算''''''''''''''''''''''''''''''''''''关闭Excel文件Setexcel_sheet=Nothingexcel_App.ActiveWorkbook.Closesavechanges:=True'保存对EXCELL进行更改。Setexcel_Book=Nothingexcel_App.QuitSetexcel_App=NothingEndSub追问你好，高手！我的想法是这样的，编一个软件，这个软件用excel表格当做它的数据库。这个软件只能对表格进行读写操作。比如：当text1读入A行a内容时，text2自动读取A行b内容，代码里不要对表格进行赋值。回答难道你没看懂，读取单元格数据的方法？不过，我没理解你的：＂当text1读入A行a内容时，text2自动读取A行b内容＂何谓：A行a内容追问A行a内容就是：A行（记录），a列（字段）回答那么我举例：首先设行用H变量，列用L1和L2变量，H=20L1="A"L2="B"Text1.Text=excel_sheet.Range(L1&Cstr(H)).ValueText2.Text=excel_sheet.Range(L2&Cstr(H)).Value