不好意思 现在才看到;Private Sub 导出EXCEL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim xlApp, xlBook, xlSheet As Object xlapp = CreateObject("Excel.Application") xlbook = xlapp.Workbooks.Add xlsheet = xlbook.Worksheets(1) 'Dim xlapp As New Excel.Application 'Dim xlbook As Excel.Workbook 'Dim xlsheet As Excel.Worksheet Dim rowindex, colindex As Integer rowindex = 1 '行 colindex = 0 '列 'xlbook = xlapp.Workbooks.Open("c:\EXCEL.xls") '打开EXCEL文件 xlsheet = xlapp.Worksheets("sheet1") '打开sheet1那页 Dim a As New DataSet Dim table As New System.Data.DataTable table = DataSet11.Tables("INVMATLISTA") '填充表 Dim row As DataRow '定义row为表格的行 Dim col As DataColumn '定义col为表格的列 '把表格的每一列写到EXCEL去 For Each col In table.Columns colindex = colindex + 1 xlapp.Cells(1, colindex) = col.ColumnName Next '把表格的每一行写到EXCEL去 For Each row In table.Rows rowindex = rowindex + 1 colindex = 0 For Each col In table.Columns colindex = colindex + 1 xlapp.Cells(rowindex, colindex) = row(col.ColumnName) Next Next xlapp.Visible = True End Sub 前提要先引用一个Microsoft.Office.Interop.Excel.dll然后在最上面先输入Imports Microsoft.Office.Interop; 就可以了