VB 访问Excel简单实例

最新推荐文章于 2025-09-22 11:59:12 发布

原创

最新推荐文章于 2025-09-22 11:59:12 发布 · 3.5k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#excel #vb #listview #integer

这篇博客提供了一个使用VB将ListView控件中的数据导出到Excel的示例程序。通过创建Excel应用程序对象，打开工作簿，设置工作表，并遍历ListView的列表项和列头，将数据写入Excel单元格。最后，保存文件并关闭Excel进程，确保无残留进程。

这是里一个VB写Excel的一段小程序，自己写的，可以解决写完后进程保留/excel问题，例子是在listview控件中得到数据。

If Me.lvResult.ListItems.Count > 0 Then Dim oExlApp As Excel.Application Dim oExlWorkbook As Excel.Workbook Dim oExlWorkSheet As Excel.Worksheet Set oExlApp = CreateObject("Excel.Application") oExlApp.Visible = False Set oExlWorkbook = oExlApp.Workbooks.Open(App.Path & "/Temp.xls") Set oExlWorkSheet = oExlWorkbook.Worksheets("Sheet1") Dim i, j As Integer For j = 1 To Me.lvResult.ColumnHeaders.Count oExlWorkSheet.Cells(1, j) = Me.lvResult.ColumnHeaders(j).Text Next j For i = 1 To Me.lvResult.ListItems.Count oExlWorkSheet.Cells(i + 1, 1) = "'" & Me.lvResult.ListItems(i).Text For j = 1 To Me.lvResult.ColumnHeaders.Count - 1 oExlWorkSheet.Cells(i + 1, j + 1) = Me.l