VB 访问Excel简单实例

最新推荐文章于 2020-12-14 17:55:26 发布

lsgis2001

最新推荐文章于 2020-12-14 17:55:26 发布

阅读量3.4k

点赞数

分类专栏： VB6相关文章标签： excel vb listview integer

本文链接：https://blog.csdn.net/lsgis2001/article/details/6258695

版权

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

这是里一个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 =

最低0.47元/天解锁文章