VB 访问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.lvResult.ListItems(i).SubItems(j) Next j Next i oExlWorkbook.SaveAs App.Path & "/" & Replace(Now, ":", "") & ".xls" '这里下面五句是消去Excel进程的关键 oExlWorkbook.Close oExlApp.Quit Set oExlWorkSheet = Nothing Set oExlWorkbook = Nothing Set oExlApp = Nothing Else MsgBox "没有数据需要导出！！" Exit Sub End If