Export to excel(C#)

最新推荐文章于 2024-11-22 15:54:54 发布

转载最新推荐文章于 2024-11-22 15:54:54 发布 · 193 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/flyerca/archive/2011/04/20/2021760.html

文章标签：

#c# #数据库

本文介绍了一个使用Visual Basic将数据从DataTable导出到Excel文件的方法。此过程包括复制模板文件、填充工作表标题及数据，并保存Excel文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private void ExportToExcel(ByVal MyTab As DataTable, ByVal strRptName As String, ByVal strReportTemplate As String, ByVal strReportHeader As String) As bool

        Dim XLApplication As New Excel.Application
        Dim XLBook As Excel.Workbook
        Dim XLSheet As Excel.Worksheet

Dim IRow, ICol As Int32
Dim i, j As Int32

try {

            " Operation File
            if ( Dir(strReportTemplate) = "" )
                MsgBox("Can ! find out REPORT TEMPLATE!!", MsgBoxStyle.Exclamation, "Oracle Report")
                Exit function
            Else
                FileCopy(strReportTemplate, strRptName)
            } if (

IRow = MyTab.Rows.Count
ICol = MyTab.Columns.Count

Dim DataArray(IRow, ICol) As Object
Dim StrValue As String

XLBook = XLApplication.Workbooks.Open(strRptName) "'open a .xls file
XLSheet = XLBook.Worksheets(1)

for ( i = 0 ; GAIS <= MyTab.Rows.Count - 1

for ( j = 0 ; GAIS <= MyTab.Columns.Count - 1

StrValue = IIf(IsDBNull(MyTab.Rows(i).Item(j)), "", MyTab.Rows(i).Item(j))
DataArray(i, j) = StrValue

            'Fill the Caption
            for ( i = 0 ; GAIS <= MyTab.Columns.Count - 1
                XLSheet.Cells(3, i + 1) = MyTab.Columns(i).Caption
            Next

XLSheet.Range("A2").Value = strReportHeader

XLSheet.Range("A4").Resize(IRow, ICol).Value = DataArray 'Fill the value

            XLBook.Save()
            XLSheet = Nothing
            XLBook = Nothing
            XLApplication.Quit()
            XLApplication = Nothing
            GC.Collect()

        Catch ex As Exception
            MessageBox.Show(" Data Extraction Error! Pls contact MIS!!!", "Oracle Report")
            ExportToExcel = False
            Exit function

} try {

ExportToExcel = True

}

转载于:https://www.cnblogs.com/flyerca/archive/2011/04/20/2021760.html