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

2013-04-24 05:12:35 102 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Excel控件Spire.XLS教程：将数据导出到WPF的Excel中 Spire.XLS 是一款专业的Excel控件，无需Excel，也能进行全部Excel的功能操作,支持 .NET和 WPF。本教程将给大家介绍如何将数据导出到WPF的Excel中。通过 Spire.XLS for WPF全部问题可以轻松解决。阅读详情

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

...全文