我给你个简单的例子,假设有文件"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表
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)