日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當(dāng)前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

从DataTable高效率导出数据到Excel

發(fā)布時(shí)間:2024/4/15 编程问答 28 豆豆
生活随笔 收集整理的這篇文章主要介紹了 从DataTable高效率导出数据到Excel 小編覺得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.

首先從數(shù)據(jù)庫讀取數(shù)據(jù)到DataTable,這我就不提了,大家都明白。下面直接介紹如何從DataTable高效率導(dǎo)出數(shù)據(jù)到Excel中的方法,代碼如下:

1 using Microsoft.Office.Interop.Excel; 2 using System.Runtime.InteropServices; 3 4 [DllImport("User32.dll", CharSet = CharSet.Auto)] 5 public static extern int GetWindowThreadProcessId(IntPtr hwnd, out int pid); 6 //函數(shù)原型;DWORD GetWindowThreadProcessld(HWND hwnd,LPDWORD lpdwProcessld); 7 //參數(shù):hWnd:窗口句柄 8 //參數(shù):lpdwProcessld:接收進(jìn)程標(biāo)識(shí)的32位值的地址。如果這個(gè)參數(shù)不為NULL,GetWindwThreadProcessld將進(jìn)程標(biāo)識(shí)拷貝到這個(gè)32位值中,否則不拷貝 9 //返回值:返回值為創(chuàng)建窗口的線程標(biāo)識(shí)。 10 11 //dt:從數(shù)據(jù)庫讀取的數(shù)據(jù);file_name:保存路徑;sheet_name:表單名稱 12 private void DataTableToExcel(DataTable dt, string file_name, string sheet_name) 13 { 14 Microsoft.Office.Interop.Excel.Application Myxls = new Microsoft.Office.Interop.Excel.Application(); 15 Microsoft.Office.Interop.Excel.Workbook Mywkb = Myxls.Workbooks.Add(); 16 Microsoft.Office.Interop.Excel.Worksheet MySht = Mywkb.ActiveSheet; 17 MySht.Name = sheet_name; 18 Myxls.Visible = false; 19 Myxls.DisplayAlerts = false; 20 try 21 { 22 //寫入表頭 23 object[] arrHeader = new object[dt.Columns.Count]; 24 for(int i = 0; i < dt.Columns.Count; i++) 25 { 26 arrHeader[i] = dt.Columns[i].ColumnName; 27 } 28 MySht.Range[Mysht.Cells[1,1], MySht.Cells[1,dt.Columns.Count]].Value2 = arrHeader; 29 //寫入表體數(shù)據(jù) 30 object[,] arrBody = new object[dt.Rows.Count, dt.Columns.Count]; 31 for(int i = 0; i < dt.Rows.Count; i++) 32 { 33 for(int j = 0; j < dt.Columns.Count; j++) 34 { 35 arrBody[i,j] = dt.Rows[i][j].ToString(); 36 } 37 } 38 MySht.Range[MySht.Cells[2,1], MySht.Cells[dt.Rows.Count + 1, dt.Columns.Count]].Value2 = arrBody; 39 if(Mywkb != null) 40 { 41 Mywkb.SaveAs(file_name); 42 Mywkb.Close(Type.Missing, Type.Missing, Type.Missing); 43 Mywkb = null; 44 } 45 } 46 catch(Exception ex) 47 { 48 MessageBox.Show(ex.Message, "系統(tǒng)提示"); 49 } 50 finally 51 { 52 //徹底關(guān)閉Excel進(jìn)程 53 if(Myxls != null) 54 { 55 Myxls.Quit(); 56 try 57 { 58 if(Myxls != null) 59 { 60 int pid; 61 GetWindowThreadProcessId(new IntPtr(Myxls.Hwnd), out pid); 62 System.Diagnostics.Process p = System.Diagnostics.Process.GetProcessById(pid); 63 p.Kill(); 64 } 65 } 66 catch(Exception ex) 67 { 68 MessageBox.Show("結(jié)束當(dāng)前EXCEL進(jìn)程失敗:" + ex.Message); 69 } 70 Myxls = null; 71 } 72 GC.Collect(); 73 } 74 }

說明:

1)上述方法中,將DataTable單元格內(nèi)容寫入數(shù)組后一次性賦值給Excel的Range,效率非常高,比之循環(huán)DataTable單元格逐個(gè)賦值給Excel的Cell的方法,速度快多了;

2)Excel的Range.Value(2)既可以給Excel的區(qū)域賦值,也可以獲取Excel區(qū)域的值,通過Excel的Range.Value(2)來獲取區(qū)域的值,比之循環(huán)區(qū)域Cell逐個(gè)獲取值存儲(chǔ)在數(shù)組中的方法,效率高得多;

3)上述方法中用到的徹底關(guān)閉Excel進(jìn)程的方式,也值得注意。

轉(zhuǎn)載于:https://www.cnblogs.com/Scl891004X/p/6900160.html

總結(jié)

以上是生活随笔為你收集整理的从DataTable高效率导出数据到Excel的全部?jī)?nèi)容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò),歡迎將生活随笔推薦給好友。