因為項目需要在導(dǎo)出數(shù)據(jù)到EXECL文檔的同時還需要導(dǎo)出圖片進(jìn)去，在處理是遇到的一些問題，在此記錄一下。

首先代碼寫好之后放測試服務(wù)器上去執(zhí)行的時候報錯了，報檢索 COM 類工廠中 CLSID 為 {00024500-0000-0000-C000-000000000046} 的組件時失敗，原因是出現(xiàn)以下錯誤: 80070005。

這個解決方法我基本上是按照網(wǎng)上來進(jìn)行解決的，但是需要注意的就是，設(shè)置完權(quán)限之后，還需要在服務(wù)器安裝的office文件夾分配權(quán)限。

權(quán)限問題設(shè)置完之后就是調(diào)試代碼了，網(wǎng)上搜索到的資料都是先插入數(shù)據(jù)，然后在數(shù)據(jù)的最后插入圖片，而不是我想要的每一行都有圖片，所以不符合我的需求，于是就自己看著網(wǎng)上的代碼整吧整吧。

/// <summary>/// /// </summary>/// <param name="dt">數(shù)據(jù)源</param>/// <param name="filepath">文件路勁例如（E:\\Execl\\201706070001.xls）</param>protected void ExportExcel(DataTable dt, string filepath){if (dt == null || dt.Rows.Count == 0) return;Microsoft.Office.Interop.Excel.Application xlApp = new Microsoft.Office.Interop.Excel.Application();object m_objOpt = System.Reflection.Missing.Value;if (xlApp == null){return;}//System.Globalization.CultureInfo CurrentCI = System.Threading.Thread.CurrentThread.CurrentCulture; System.Threading.Thread.CurrentThread.CurrentCulture = new System.Globalization.CultureInfo("en-US");Microsoft.Office.Interop.Excel.Workbooks workbooks = xlApp.Workbooks;Microsoft.Office.Interop.Excel.Workbook workbook = workbooks.Add(Microsoft.Office.Interop.Excel.XlWBATemplate.xlWBATWorksheet);Microsoft.Office.Interop.Excel.Worksheet worksheet = (Microsoft.Office.Interop.Excel.Worksheet)workbook.Worksheets[1];Microsoft.Office.Interop.Excel.Range range;long totalCount = dt.Rows.Count;long rowRead = 0;for (int i = 0; i < dt.Columns.Count; i++){worksheet.Cells[1, i + 1] = dt.Columns[i].ColumnName;range = (Microsoft.Office.Interop.Excel.Range)worksheet.Cells[1, i + 1];range.Interior.ColorIndex = 15;}for (int r = 0; r < dt.Rows.Count; r++){for (int i = 0; i < dt.Columns.Count; i++){try{if (i == 4){range = worksheet.get_Range("E" + (r + 2), m_objOpt); //這里是因為我要給文檔的E列插入圖片，所以加了判斷，并寫死了E列range.Select();float PicLeft, PicTop;PicLeft = Convert.ToSingle(range.Left);PicTop = Convert.ToSingle(range.Top);range.ColumnWidth = 60;//設(shè)置單元格的寬range.RowHeight = 120;//設(shè)置單元格的高worksheet.Shapes.AddPicture(dt.Rows[r][i].ToString(), Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoCTrue, PicLeft, PicTop, 100, 100);//這后面的100 是設(shè)置圖片的寬高}elseworksheet.Cells[r + 2, i + 1] = dt.Rows[r][i].ToString();}catch{worksheet.Cells[r + 2, i + 1] = dt.Rows[r][i].ToString().Replace("=", "");}}rowRead++;}xlApp.Visible = true;workbook.Saved = true;workbook.SaveAs(filepath);workbook.Close(true, Type.Missing, Type.Missing);workbook = null;xlApp.Quit();xlApp = null;}

?

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

總結(jié)

以上是生活随笔為你收集整理的向EXECL文件中导入数据的同时插入图片的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

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