一个VB的DataTable导出Excel表,转成C#，求指点

[t_kong]

Sub toexcel(ByVal dt As DataTable, ByVal filename As String)
Dim i, j As Integer
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlChar As New Excel.Chart
Dim xlSheet As New Excel.Worksheet

If dt Is Nothing Then Exit Sub
xlApp = New Excel.Application
xlApp = CreateObject("Excel.Application")
xlBook = xlApp.Workbooks.Add
xlSheet = xlBook.Worksheets.Add
If dt.Rows.Count <> 0 Then
For i = 0 To dt.Rows.Count - 1
For j = 0 To dt.Columns.Count - 1
xlSheet.Cells(i + 2, j + 1) = Rs_dt_i_j(dt, i, j)
Next
Next

For i = 0 To dt.Columns.Count - 1

xlSheet.Cells(1, i + 1) = dt.Columns(i).ColumnName
Next

xlBook.SaveAs(filename) '保存文件
xlApp.Quit()
xlApp = Nothing
End If

End Sub

[t_kong]

个人参考啦http://blog.csdn.net/t_kong/article/details/8848094....感觉写得不错。大家学习一下 顺便自己顶一下