VB读取ecel表新版新版.pdfVIP

我给你个简单的例子，假设有文件＂ 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 内容，代码里不要对表格进 行赋值。 回答 难道你没看懂，读取单元格数据的方法？ 不过，我没理解你的： ＂当text1 读入 A 行 a 内容时， text2 自动读取 A 行 b 内容＂ 何谓： A 行 a 内容 追问 A 行 a 内容就是： A 行（记录）， a 列（字段） 回答 那么我举例：首先设行用 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