引用Excel XX Object library
Function SendToExcel(ByVal Table As DataTable, ByVal SheetName As String)
Dim oExcel As New Excel.Application()
Dim obook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Try
obook = oExcel.Workbooks.Add '.Open(file)
oSheet = obook.Worksheets(1)
oSheet.Name = SheetName
Dim r As Integer, c As Integer
Dim rCount As Integer
Dim cCount As Integer
rCount = Table.Rows.Count
cCount = Table.Columns.Count()
For c = 1 To cCount
oSheet.Cells(1, c) = Table.Columns(c - 1).Caption '设置列标题
Next
c = 0 : r = 0
For r = 1 To rCount
For c = 1 To cCount
oSheet.Cells(r + 1, c) = CStr(Table.Rows(r - 1)(c - 1).ToString)
Next
Next
oExcel.Visible = True
Catch ex As Exception
MsgBox(ex.Message)
End Try
oExcel = Nothing
obook = Nothing
oSheet = Nothing
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DTygzl As New System.Data.DataTable
Dim a As String = "员工表" '生成的Excel的表名
Me.SqlDataAdapter1.Fill(DataSetName, "DataTableName")
DTygzl = DatasetName.Tables("DataTableName")
SendToExcel(DTygzl, a)
End Sub
Function SendToExcel(ByVal Table As DataTable, ByVal SheetName As String)
Dim oExcel As New Excel.Application()
Dim obook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Try
obook = oExcel.Workbooks.Add '.Open(file)
oSheet = obook.Worksheets(1)
oSheet.Name = SheetName
Dim r As Integer, c As Integer
Dim rCount As Integer
Dim cCount As Integer
rCount = Table.Rows.Count
cCount = Table.Columns.Count()
For c = 1 To cCount
oSheet.Cells(1, c) = Table.Columns(c - 1).Caption '设置列标题
Next
c = 0 : r = 0
For r = 1 To rCount
For c = 1 To cCount
oSheet.Cells(r + 1, c) = CStr(Table.Rows(r - 1)(c - 1).ToString)
Next
Next
oExcel.Visible = True
Catch ex As Exception
MsgBox(ex.Message)
End Try
oExcel = Nothing
obook = Nothing
oSheet = Nothing
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DTygzl As New System.Data.DataTable
Dim a As String = "员工表" '生成的Excel的表名
Me.SqlDataAdapter1.Fill(DataSetName, "DataTableName")
DTygzl = DatasetName.Tables("DataTableName")
SendToExcel(DTygzl, a)
End Sub