zoukankan      html  css  js  c++  java
  • Export to excel(C#)

    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

                    Next

                Next

                '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

        }

  • 相关阅读:
    jQuery插件显示本地时间.
    javascript样式切换,图片切换,随机背景
    jQuery插件表格数据插件
    jQuery仿yahoo首页弹出层效果
    javascript文本框自动验证数字和日期
    jQuery学习笔记31改变字体大小.颜色,背景
    网站时间显示
    javascript操作frame
    jQuery解决iframe自适应高度问题
    JavaScript动态打开和关闭层,而且还能拖拽(ie,firefox)
  • 原文地址:https://www.cnblogs.com/flyerca/p/2021760.html
Copyright © 2011-2022 走看看