使用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.ListV
