VB用LISTVIEW读取EXCEL实例

VB用LISTVIEW读取EXCEL实例

第一步：用EXCEL创建成绩表，如下图示例

第二步：打开VB6创建一工程、标准窗口

第三步：引用EXCEL，在菜单栏，工程——引用，如下图

第四步：在工具栏加载控件Microsoft windows Common Controls 6.0 (SP6)，如下图

第五步：在标准窗口加入listview控件，控件属性设置如下图

在“列首”标签添加字段名，如下图

第五步：编写代码

Dim xlapp As Excel.Application

Private Sub Form_Load()

Set xlapp = CreateObject("excel.Application")

xlapp.Visible = False

xlapp.Workbooks.Open App.Path & "\成绩表.xls", , 1

Dim litem

Dim i As String

i = 2

Do While xlapp.Cells(i, 1).Value <> "" '查找列中所有的单元格Set litem = ListView1.ListItems.Add()

litem.Text = xlapp.Range("A" & i).Value

litem.SubItems(1) = xlapp.Range("B" & i).Value

litem.SubItems(2) = xlapp.Range("C" & i).Value

litem.SubItems(3) = xlapp.Range("D" & i).Value

litem.SubItems(4) = xlapp.Range("E" & i).Value

litem.SubItems(5) = xlapp.Range("F" & i).Value

i = i + 1

Loop

xlapp.Workbooks("成绩表").Close savechanges:=False

xlapp.Quit

Set xlapp = Nothing

End Sub

最后运行效果如下图