使用ListView控件动态显示Excel表中

Private Sub cmdDelete_Click()    '添加删除按钮
Dim i As Integer
     For i = Me.ListView1.ListItems.Count To 1 Step -1     '循环选定记录
        If Me.ListView1.ListItems(i).Selected Then
            Me.ListView1.ListItems.Remove i
        End If
    Next i
End Sub


Private Sub ComboBox1_Change()   '添加下拉列表框
   Dim ITM As ListItem            定义ListView控件
   Dim i As Integer
    ListView1.ColumnHeaders.Clear     ’添加筛选数据前，清空列表
    ListView1.ListItems.Clear
   ListView1.Icons = ImageList1      ‘绑定ImgeList控件
   ListView1.SmallIcons = ImageList1
   ListView1.ColumnHeaderIcons = ImageList1
   ListView1.ColumnHeaders.Add 1, , "num", ListView1.Width / 3, , 1    ’为列表添加表头
   ListView1.ColumnHeaders.Add 2, , "name", ListView1.Width / 3, lvwColumnCenter, 2
   ListView1.ColumnHeaders.Add 3, , "departm