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、最终输出效果为：
