VB读取excel表.doc

我给你个简单的例子，假设有文件c:1.xls要在VB中操作Excel，需要引用Excel对象模型方法，在菜单里选择工程 - 引用，在窗口里勾选 Microsoft Excel XX.X Object Library其中，XX.X取决于你安装的Office的版本号Private Sub Command6_Click()Dim excel_App As Excel.ApplicationDim excel_Book As Excel.WorkbookDim excel_sheet As Excel.Worksheet启动ExcelSet 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的值为100excel_sheet.Range(A2).Value = 9 设置单元格A2的值为9excel_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 = NothingEnd Sub追问你好，高手！我的想法是这样的，编一个软件，这个软件用excel表格当做它的数据库。这个软件只能对表格进行读写操作。比如：当text1读入A行a内容时，text2自动读取A行b内容，代码里不要对表格进行赋值。回答难道你没看懂，读取单元格数据的方法？不过，我没理解你的：当text1读入A行a内容时，text2自动读取A行b内容 何谓：A行a内容追问A行a内容就是：A 行（记录），a 列（字段）回答那么我举例：首先设行用H变量，列用L1和L2变量，H = 20L1 = AL2 = BText1.Text = excel_sheet.Range(L1 & Cstr(H).Value Text2.Text = excel_sheet.Range(L2 & Cstr(H).Value