[vb.net]自己寫的一個將數據信息存入Excel表格中的方法

12345678910111213141516171819202122232425262728293031323334'將信息存入表格中
    '參數： 文件名 活動表名 字段名數組 數據集合
    Private Sub insertExcel(filename As String, table As String, fieldArr As Array, dataArrList As ArrayList)

        Dim xlApp As Excel.Application
        Dim xlBook As Excel.Workbook
        Dim xlSheet As Excel.Worksheet

        xlApp = CreateObject("Excel.Application") '創建EXCEL對象

        '如果Excel表格不存在則創建表格
        If Not File.Exists(filename) Then
            xlApp.Workbooks.Add.SaveAs(filename)
        End If

        xlBook = xlApp.Workbooks.Open(filename) '打開已經存在的EXCEL工件簿文件  
        xlApp.Visible = False '設置EXCEL對象可見（或不可見）  
        xlSheet = xlBook.Worksheets(table) '設置活動工作表  
        '寫字段名
        For i = 0 To fieldArr.Length - 1
            xlSheet.Cells(1, i + 1) = fieldArr(i) '給單元格（row,col）賦值  
        Next
        '寫數據
        For i = 0 To dataArrList.Count - 1
            For j = 0 To dataArrList(i).Length - 1
                xlSheet.Cells(i + 2, j + 1) = dataArrList(i)(j) '給單元格（row,col）賦值  
            Next
        Next

        xlBook.Close(True) '關閉工作簿  
        xlApp.Quit() '結束EXCEL對象  
        xlApp = Nothing '釋放xlApp對象  

    End Sub
例：
12345        Dim fieldArr As Array = {"ID", "nType", "nCodePage", "nFail", "nAlexa", "SiteUrl", "SitePass", "Config", "IP", "nScript", "AccessTime", "Note"}
        Dim dataArrList As ArrayList = New ArrayList
        dataArrList.Add({0, 0, 963, 0, -1, "http://www.xxxxx.com/admin/css.asp", "star", "", "", 1, "2013/8/1", ""})
        dataArrList.Add({1, 0, 963, 0, -1, "http://www.yyyyy.com/admin/css.asp", "star", "", "", 1, "2013/8/1", ""})
        insertExcel("C:\123.xlsx", "Sheet1", fieldArr, dataArrList)

原文鏈接：http://blog.jaekj.com/archives/1226.html