Datagridview导出Excel数据

11 篇文章 0 订阅
/// <summary>
        /// Datagridview导出Excel数据
        /// </summary>
        /// <param name="dgvName">控件Datagridview名称</param>
        /// <param name="strFileName">导出的文件路径</param>
        /// <param name="isShowExcle">是否直接打开</param>
        /// <returns></returns>
        public void BatchExportData(DataGridView dgvName, string strFileName, bool isShowExcle)
        {
            if (dgvName.Rows.Count == 0)
            {
                MessageBox.Show("无数据导出", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
                return;
            }


            // 创建Excel对象
            Microsoft.Office.Interop.Excel.Application excel = new Microsoft.Office.Interop.Excel.Application();
            excel.Application.Workbooks.Add(true);


            // 生成字段名称
            for (int i = 0; i < dgvName.ColumnCount; i++)
            {
                if (dgvName.Columns[i].Visible)
                {
                    excel.Cells[1, i + 1] = dgvName.Columns[i].HeaderText;
                }
            }
            // 填充数据
            for (int i = 0; i < dgvName.RowCount - 1; i++)   //循环行
            {
                for (int j = 0; j < dgvName.ColumnCount; j++) //循环列
                {
                    if (dgvName[j, i].ValueType == typeof(string))
                    {
                        if (dgvName.Rows[i].Cells[j].Visible)
                        {
                            excel.Cells[i + 2, j + 1] = "'" + Convert.ToString(dgvName.Rows[i].Cells[j].Value);
                        }
                    }
                    else
                    {
                        if (dgvName.Rows[i].Cells[j].Visible)
                        {
                            excel.Cells[i + 2, j + 1] = Convert.ToString(dgvName.Rows[i].Cells[j].Value);
                        }
                    }
                }
            }


            // 设置禁止弹出保存和覆盖的询问提示框  
            excel.Visible = false; // 若是true,则在导出的时候会显示EXcel界面。
            excel.DisplayAlerts = false;
            excel.AlertBeforeOverwriting = false;


            // 保存到临时工作簿
            excel.Application.Workbooks.Add(true).Save();


            // 保存文件
            excel.Save(strFileName);
            excel.Quit();
        }
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
如果你的 DataGridView 中有太多的数据导出Excel 中会导致同一行显示两条数据。你需要在导出时将数据分成多个工作表。 以下是示例代码,可以将 DataGridView 中的数据分成多个工作表,每个工作表最多显示2000个数据行: ``` Private Sub ExportToExcel(ByVal dgv As DataGridView) Dim xlApp As Excel.Application Dim xlWorkBook As Excel.Workbook Dim xlWorkSheet As Excel.Worksheet Dim misValue As Object = System.Reflection.Missing.Value Dim i As Integer Dim j As Integer Dim iRowCount As Integer Dim iColCount As Integer Dim iSheetCount As Integer Dim iStartRow As Integer Dim iEndRow As Integer xlApp = New Excel.Application xlWorkBook = xlApp.Workbooks.Add(misValue) iRowCount = dgv.RowCount iColCount = dgv.ColumnCount iSheetCount = Math.Ceiling(iRowCount / 2000) For k As Integer = 1 To iSheetCount xlWorkSheet = DirectCast(xlWorkBook.Sheets.Add(After:=xlWorkBook.Sheets(xlWorkBook.Sheets.Count), Count:=1, Type:=xlWorkSheetType), Excel.Worksheet) xlWorkSheet.Name = "Sheet" & k.ToString() iStartRow = (k - 1) * 2000 + 1 iEndRow = k * 2000 If iEndRow > iRowCount Then iEndRow = iRowCount End If '写入表头 For j = 0 To iColCount - 1 xlWorkSheet.Cells(1, j + 1) = dgv.Columns(j).HeaderText Next '写入数据 For i = iStartRow To iEndRow For j = 0 To iColCount - 1 xlWorkSheet.Cells(i - iStartRow + 2, j + 1) = dgv(j, i - 1).Value.ToString() Next Next '格式化单元格 xlWorkSheet.Rows("1:1").Font.Bold = True xlWorkSheet.Columns.AutoFit() Next xlApp.Visible = True ReleaseObject(xlWorkSheet) ReleaseObject(xlWorkBook) ReleaseObject(xlApp) End Sub '释放 COM 对象 Private Sub ReleaseObject(ByVal obj As Object) Try System.Runtime.InteropServices.Marshal.ReleaseComObject(obj) obj = Nothing Catch ex As Exception obj = Nothing Finally GC.Collect() End Try End Sub ``` 在上面的代码中,我们将 DataGridView 分成多个工作表,并按顺序命名为 Sheet1、Sheet2、Sheet3 等等。每个工作表最多显示2000个数据行。你可以根据需要更改此限制。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值