[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