using vb.net export a datatable to Excel and save as file
2012-08-24 12:43
921 查看
Export a datatable to Excel and save as file
Dim CurrentCI As System.Globalization.CultureInfo = System.Threading.Thread.CurrentThread.CurrentCulture
System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-US")
If (tmpDataTable Is Nothing) Then
Return
End If
Dim rowNum As Integer = tmpDataTable.Rows.Count
Dim columnNum As Integer = tmpDataTable.Columns.Count
Dim rowIndex As Integer = 1
Dim columnIndex As Integer = 0
Dim xlApp As Excel.Application = New ApplicationClass()
xlApp.DefaultFilePath = ""
xlApp.DisplayAlerts = True
xlApp.SheetsInNewWorkbook = 1
Dim xlBook As Workbook = xlApp.Workbooks.Add(True)
'将DataTable的列名导入Excel表第一行
Dim dc As DataColumn
For Each dc In tmpDataTable.Columns
columnIndex = columnIndex + 1
xlApp.Cells(rowIndex, columnIndex) = dc.ColumnName
Next
'将DataTable中的数据导入Excel中
Dim i As Integer = 0
For i = 0 To rowNum - 1
rowIndex = rowIndex + 1
columnIndex = 0
Dim j As Integer = 0
For j = 0 To columnNum - 1
columnIndex = columnIndex + 1
xlApp.Cells(rowIndex, columnIndex) = Convert.ToString(tmpDataTable.Rows(i)(j))
Next
Next
'xlBook.SaveCopyAs(HttpUtility.UrlDecode(strFileName, System.Text.Encoding.UTF8));
xlBook.SaveCopyAs(strFileName)
End
Dim CurrentCI As System.Globalization.CultureInfo = System.Threading.Thread.CurrentThread.CurrentCulture
System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-US")
If (tmpDataTable Is Nothing) Then
Return
End If
Dim rowNum As Integer = tmpDataTable.Rows.Count
Dim columnNum As Integer = tmpDataTable.Columns.Count
Dim rowIndex As Integer = 1
Dim columnIndex As Integer = 0
Dim xlApp As Excel.Application = New ApplicationClass()
xlApp.DefaultFilePath = ""
xlApp.DisplayAlerts = True
xlApp.SheetsInNewWorkbook = 1
Dim xlBook As Workbook = xlApp.Workbooks.Add(True)
'将DataTable的列名导入Excel表第一行
Dim dc As DataColumn
For Each dc In tmpDataTable.Columns
columnIndex = columnIndex + 1
xlApp.Cells(rowIndex, columnIndex) = dc.ColumnName
Next
'将DataTable中的数据导入Excel中
Dim i As Integer = 0
For i = 0 To rowNum - 1
rowIndex = rowIndex + 1
columnIndex = 0
Dim j As Integer = 0
For j = 0 To columnNum - 1
columnIndex = columnIndex + 1
xlApp.Cells(rowIndex, columnIndex) = Convert.ToString(tmpDataTable.Rows(i)(j))
Next
Next
'xlBook.SaveCopyAs(HttpUtility.UrlDecode(strFileName, System.Text.Encoding.UTF8));
xlBook.SaveCopyAs(strFileName)
End
相关文章推荐
- csharp: Export DataTable to Excel using OpenXml 2.5 in asp.net
- Read and Write compressed data to a binary file using ASP.NET
- ReadCompareExcelToDictionary (Resource file export and import)
- Save a Microsoft Excel Workbook as a PDF File by Using PowerShell
- Csharp:The .dat File using BinaryReader and BinaryWriter Convert to DataTable
- Csharp:The .dat File using BinaryReader and BinaryWriter Convert to DataTable
- a class for export datatable to csv/excel using xsl.
- Export large data from GridView to Excel file using C#
- ASP.NET datagrid直接导出为Excel Export to Excel from DataGrid (Using an Microsoft Access database)
- ASP.NET Export DataTable to Excel
- Create, Read, Write, Copy, Move and Delete a Text File using C# and VB.NET
- NetSuite SuiteScript 2.0 export data to Excel file(xls)
- asp.net using library ClosedXML to export excel
- Using VB.NET to Encode SMS and EMS
- BI Java 补丁错误处理 :Cannot login to the SAP J2EE Engine using user and password as provided in the Filesystem Secure Store. Enter va
- Export Grid Data To Excel In Advance Kendo UI Using MVC WEB API And Entity Framework
- How to read and save Images in a Sql Server Database using ADO.NET and C#
- AsyncFileUpload File Type and File Size Validation using VB.NET
- save file as byte array to DB using jdbctemplate
- Using .NET and Excel 2003 To Validate E-Mails