Excel VBA 中，ListView 是一个用于显示列表数据的控件。它提供了一个类似于 Windows 资源管理器的界面，可以用于显示和管理列表项。通过 VBA 代码，可以对 ListView 进行各种操作，如添加、删除、修改列表项，以及响应列表项的点击事件等。下面是一个 Excel VBA 中使用 ListView 控件的简单教程。

1. 在 Excel 中添加 ListView 控件

首先需要在 Excel 中添加 ListView 控件。打开 Excel，选择“开发工具”选项卡，然后点击“插入”按钮，在弹出的菜单中选择“ActiveX 控件”下的“ListView Control”。在 Excel 工作表中绘制一个合适大小的 ListView 控件。

2. 设置 ListView 控件的常用属性

ListView 控件的常用属性包括：

• ListItems：返回一个 ListView.ListItems 集合，用于访问和操作列表项。
• ColumnHeaders：返回一个 ListView.ColumnHeaders 集合，用于访问和操作列表头。
• MultiSelect：设置是否允许多项选择。
• LabelEdit：设置是否允许编辑列表项的标签。
• View：设置列表的显示模式，如大图标、小图标、列表等。
• SortOrder：设置列表的排序顺序。

可以通过在 VBA 代码中设置这些属性来控制 ListView 的行为。例如，以下代码设置 ListView 的多项选择属性为 False，不允许多项选择：

ListView1.MultiSelect=False

3. 添加和删除列表项

可以使用 ListView.ListItems.Add 方法向 ListView 中添加列表项，使用 ListView.ListItems.Remove 方法从 ListView 中删除列表项。例如，以下代码添加一个名为“item1”的列表项：

Set lvi=ListView1.ListItems.Add(1, "item1", "item1")

其中，第一个参数“1”表示添加到第一列，第二个参数“item1”表示列表项的文本，第三个参数“item1”表示列表项的标签。

4. 修改列表项的文本和标签

可以使用 ListView.ListItems.Item 方法获取指定索引的列表项，然后修改其文本和标签。例如，以下代码将第一个列表项的文本修改为“new item1”：

ListView1.ListItems(1).Text="new item1"

其中，“1”表示第一个列表项的索引。

5. 响应列表项的点击事件

可以使用 ListView.ListItems.ItemClick 事件响应列表项的点击事件。例如，以下代码在列表项被点击时弹出一个消息框：

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    MsgBox Item.Text
End Sub

其中，“ListView1_ItemClick”是自定义的事件处理程序名称，“ByVal Item As MSComctlLib.ListItem”表示传递给事件处理程序的参数类型为 ListView.ListItem。

6. 从 Excel 中读取数据并显示在 ListView 中

可以使用 VBA 代码从 Excel 中读取数据，并将其显示在 ListView 中。例如，以下代码从名为“Sheet1”的工作表中读取第一列和第二列的数据，并显示在 ListView 中：

Sub ReadDataFromExcel()
    Dim arr As Variant
    arr=ThisWorkbook.Sheets("Sheet1").Range("A1:B10")
    ListView1.ListItems.Clear
    For i=1 To UBound(arr, 1)
        Set lvi=ListView1.ListItems.Add(1, arr(i, 1), arr(i, 2))
    Next
End Sub

其中，“ReadDataFromExcel”是自定义的过程名称。使用ThisWorkbook.Sheets("Sheet1").Range("A1:B10")获取数据，并将其存储在一个数组中。然后，使用一个循环将数组中的数据添加到 ListView 中。

需要注意的是，上述代码中的“Sheet1”和“A1:B10”需要根据实际情况进行修改。此外，还可以根据需要对数据进行进一步处理，如添加到数据库中。

istView是WinForm中的一个Windows 列表视图控件，可以通过5种不同的视图形式来动态显示数据的集合。ListView提供了很多基本属性和事件，通过定义属性和事件我们可以设计出符合我们需求的样式及功能。

ListView的View视图属性

要想用好ListView控件我们需要先来了解下ListView的视图模式，ListView提供了五种视图显示模式，分别是：

LargeIcon：每项都显示一个最大化图标和一个标签（标签在图标的下方）；

Details：需要有列表头（否则不显示内容），可以显示任意的列，但只有第一栏可以包含一个小图标和标签（标签在图标的右方），其它的列项可以显示文字信息或控件（显示控件可以通过重写ListView方法来实现）；

SmallIcon：每个项都显示一个小图标和一个标签（标签在图标的右方）；

List：跟SmallIcon差不多，每个项都显示一个小图标和一个标签（标签在图标的右方）；各项排列在列中，没有列标头

Tile：每个项都显示一个完整大小的图标，右边显示一个标签和子项信息（仅Windows XP 和 Windows Server 2003 系统支持）。

我的Dome是要获取文件夹下载所有文件信息并将文件信息显示在ListView列表中，它每项需要显示多列数据显然只有Details视图适合我们。ListView默认视图为LargeIcon，我们只要选择控件在属性中找到view属性，选择Details即可。

Details视图结构

在Details视图模式中，ListView为我们整个视图控件，跟Excel表格相似有列和行的概念。Columns定义ListView标题（不算入列表数据中，就是个列表头）；items定义ListView显示的数据项，是Item的集合；Item定义到items中的每一行（通过实例化ListViewItem获取）；SubItem则定位到了Item中的具体单元格。

创建列表头

Details有个特点就是必须创建列表头不然就算你添加了数据也无法显示的，创建列表头我们可以通过ColumnHeader来实现，每显示一列就需要有一个列表头。如果通过ColumnHeader实例化添加比较麻烦的话可以使用下面这种方式添加比较简洁，如果列表较多的话可以用循环遍历实现。

列表项添加数据

向列表项中添加数据我们可以通过ListView中的item属性来添加，多行数据可以通过for或者foreach来遍历数据集。这里通过folderBrowserDialog控件来选择文件夹并拿到文件夹中的所有对象，通过foreach遍历对象判断对象是否文件夹，如果是文件夹则获取文件夹名称如果是文件则获取文件名，最后通过Add方法将该信息添加到ListView中的item属性中。

向列表项中添加多列数据

上面我们将文件名写入了列表项中，但你会发现每行只有一条数据，在没有定义item时默认只有一条数据。如果我们一行需要写入多条数据该怎么操作呢，这时候我们可以通过ListViewItem来实例化item对象，再使用SubItems.Add()方法将当行内单元格的数据添加到item集合中，最后把item集合抛给items即可。当然你也可以通过指定items下标来对指定行追加每列数据，SubItems.Add()方法会依次向后添加一列数据（注意：该列必须定义列表头方能显示数据）。

列表绑定图标

首先使用imagelist控件先生成一个图片列表，右键imagelist控件->选择图像->添加，将你准备的图标（支持ico图标）添加进来。然后通过与imageList列表集合绑定来获取每项图标 ，选择的不同视图模式对应不同的绑定属性，Details、SmallIcon、List视图使用listView1.SmallImageList属性，LargeIcon、Tile视图使用listView1.LargeImageList属性，否则图标将无法正常显示。

绑定只需通过ListViewItem的ImageIndex属性指向imageList的下标即可，如果用foreach遍历我们需要自行添加一个变量来指定下标。

THE END