《VB读取Excel表的内容VB网VB视频教程VB编程入门网.doc》由会员分享,可在线阅读,更多相关《VB读取Excel表的内容VB网VB视频教程VB编程入门网.doc(2页珍藏版)》请在三一文库上搜索。
1、VB 读取 Excel 表的内容 VB 网 VB 视频教程 VB 编程入门 网VB 读取 Excel 表的内容VB 读取 Excel 表的内容代码很简单 就是速度有点慢啊Option ExplicitDim xlApp As Excel.Application ' 定义 EXCEL 类Dim xlBook As Excel.Workbook ' 定义工件簿类Dim xlsheet As Excel.Worksheet ' 定义工作表类 Private Sub Command1_Click()Dim i As Integer, j As IntegerSet xlApp
2、= CreateObject("Excel.Application") ' 创建 EXCEL 应用类xlApp.Visible = False ' 设置 EXCEL 不可见Set xlBook = xlApp.Workbooks.Open(App.Path & "data.xls") ' 打开 EXCEL 工作簿Set xlsheet = xlBook.Worksheets(1) ' 打开 EXCEL 工作 表'xlsheet.Activate ' 激活工作表Dim litemFor i =
3、 2 To 7 ' 行 /记录条数Set litem = ListView1.ListItems.Add() litem.Text = xlsheet.Cells(i, 1) litem.SubItems(1) = xlsheet.Cells(i, 2) litem.SubItems(2) = xlsheet.Cells(i, 3) litem.SubItems(3) = xlsheet.Cells(i, 4) 'MsgBox xlsheet.Cells(i, j)Next xlBook.Close (True) ' 关闭 EXCEL 工作簿 xlApp.Quit ' 关闭 EXCELSet xlApp = Nothing ' 释放 EXCEL 对象 End Sub