文件名称：VB中读取EXCEL源码
文件大小：4KB
文件格式：RAR
更新时间：2013-08-27 06:40:32
读取EXCEL
VB读取EXCEL源码Private Sub Command1_Click() Dim i As Integer, j As Integer Set xlApp = 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 litem For i = 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 '关闭EXCEL Set xlApp = Nothing '释放EXCEL对象 End Sub
【文件预览】：
VB读取Excel内容
----Form1.frm(3KB)
----工程1.vbp(829B)
----MSSCCPRJ.SCC(190B)
----工程1.vbw(50B)
----data.xls(14KB)