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

最后

以上就是坚定玫瑰为你收集整理的VB 访问Excel简单实例的全部内容，希望文章能够帮你解决VB 访问Excel简单实例所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。