如何编程实现VB.NET数据集中的数据导出到EXCEL

1、首先在“解决方案”中的“项目”中的“引用”上点右键,引入COM组件中的EXEL组件,如下图所示:(版本可能不一样,这不影响,我安装的是OFFICE 2003)

2、在程序的开始,添加如下语句:
Imports Microsoft.Office.Interop
3、建立一个新的过程函数输出到EXCEL中:
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim myexcel As New Excel.Application
        myexcel.Visible = True
        myexcel.Workbooks.Add()
        Dim col As Integer
        Dim row As Integer
        Dim col1 As Integer
          myexcel.Worksheets("sheet1").activate()
'以下是修改输出到EXCEL表中的每一列的列名
        myexcel.Cells(1, 1).value = "单位名称"
        myexcel.Cells(1, 2).value = "单位性质"
        myexcel.Cells(1, 3).value = "办公地址"
        myexcel.Cells(1, 4).value = "通讯地址"
        myexcel.Cells(1, 5).value = "办公电话"
        myexcel.Cells(1, 6).value = "缴纳会费情况"
        myexcel.Cells(1, 7).value = "缴纳金额"
 '以下将数据集中的数据分别输出到EXCEL中的每一列中去,我的数据集是“dsresults”,根据每人的情况适当修改
      For row = 0 To dsresults.Tables("results").Rows.Count - 1
            For col = 1 To dsresults.Tables("results").Columns.Count - 1
                myexcel.Cells(row + 2, col).value = dsresults.Tables("results").Rows(row)(col)
            Next
'EXCEL中的每一列自动根据填充的数据自动调整
            myexcel.ActiveSheet.columns.autofit()
        Next
    End Sub
 4、最终输出效果为:

原文地址:https://www.cnblogs.com/yunbo/p/234880.html