度量快速开发平台-专业、快速的软件定制快开平台

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
热搜: 部件 流程 SQL
查看: 1674|回复: 3
打印 上一主题 下一主题

[分享] 从DataTable高效率导出数据到Excel

[复制链接]

182

主题

2120

帖子

4842

积分

论坛元老

Rank: 8Rank: 8

积分
4842
跳转到指定楼层
楼主
发表于 2020-4-25 19:15:20 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
using Microsoft.Office.Interop.Excel;
using System.Runtime.InteropServices;

[DllImport("User32.dll", CharSet = CharSet.Auto)]
public static extern int GetWindowThreadProcessId(IntPtr hwnd, out int pid);
//函数原型;DWORD GetWindowThreadProcessld(HWND hwnd,LPDWORD lpdwProcessld);
//参数:hWnd:窗口句柄
//参数:lpdwProcessld:接收进程标识的32位值的地址。如果这个参数不为NULL,GetWindwThreadProcessld将进程标识拷贝到这个32位值中,否则不拷贝
//返回值:返回值为创建窗口的线程标识。

//dt:从数据库读取的数据;file_name:保存路径;sheet_name:表单名称
private void DataTableToExcel(DataTable dt, string file_name, string sheet_name)
{
       Microsoft.Office.Interop.Excel.Application Myxls = new  Microsoft.Office.Interop.Excel.Application();
       Microsoft.Office.Interop.Excel.Workbook Mywkb = Myxls.Workbooks.Add();
       Microsoft.Office.Interop.Excel.Worksheet MySht = Mywkb.ActiveSheet;
       MySht.Name = sheet_name;
       Myxls.Visible = false;
       Myxls.DisplayAlerts = false;
       try
       {
              //写入表头
              object[] arrHeader = new object[dt.Columns.Count];
              for(int i = 0; i < dt.Columns.Count; i++)
              {
                     arrHeader[i] = dt.Columns[i].ColumnName;
              }
              MySht.Range[Mysht.Cells[1,1], MySht.Cells[1,dt.Columns.Count]].Value2 = arrHeader;
              //写入表体数据
              object[,] arrBody = new object[dt.Rows.Count, dt.Columns.Count];
              for(int i = 0; i < dt.Rows.Count; i++)
              {
                      for(int j = 0; j < dt.Columns.Count; j++)
                      {
                              arrBody[i,j] = dt.Rows[i][j].ToString();
                      }
              }
              MySht.Range[MySht.Cells[2,1], MySht.Cells[dt.Rows.Count + 1, dt.Columns.Count]].Value2 = arrBody;
              if(Mywkb != null)
              {
                      Mywkb.SaveAs(file_name);
                      Mywkb.Close(Type.Missing, Type.Missing, Type.Missing);
                      Mywkb = null;
              }
       }
       catch(Exception ex)
       {
               MessageBox.Show(ex.Message, "系统提示");
       }
       finally
       {
                //彻底关闭Excel进程
                if(Myxls != null)
                {
                       Myxls.Quit();
                       try
                       {
                              if(Myxls != null)
                              {
                                    int pid;
                                    GetWindowThreadProcessId(new IntPtr(Myxls.Hwnd), out pid);
                                    System.Diagnostics.Process p = System.Diagnostics.Process.GetProcessById(pid);
                                     p.Kill();
                              }
                       }
                       catch(Exception ex)
                       {
                              MessageBox.Show("结束当前EXCEL进程失败:" + ex.Message);
                       }
                       Myxls = null;
                }
                GC.Collect();
       }
}

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

182

主题

2120

帖子

4842

积分

论坛元老

Rank: 8Rank: 8

积分
4842
地板
 楼主| 发表于 2020-4-30 19:42:12 | 只看该作者
回复 支持 反对

使用道具 举报

235

主题

2547

帖子

5835

积分

论坛元老

Rank: 8Rank: 8

积分
5835
板凳
发表于 2020-4-27 14:07:18 | 只看该作者
回复

使用道具 举报

141

主题

1551

帖子

3573

积分

论坛元老

Rank: 8Rank: 8

积分
3573
沙发
发表于 2020-4-26 17:25:47 | 只看该作者
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|重庆度量科技  本站关键词:快速开发平台

GMT+8, 2024-11-6 03:05 , Processed in 0.114939 second(s), 25 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表