在EXECL文件中同时导入数据和插入图片的方法-创新互联

这篇文章主要介绍了在EXECL文件中同时导入数据和插入图片的方法，具有一定借鉴价值，需要的朋友可以参考下。希望大家阅读完这篇文章后大有收获。下面让小编带着大家一起了解一下。

因为项目需要在导出数据到EXECL文档的同时还需要导出图片进去，在处理是遇到的一些问题，在此记录一下。

首先代码写好之后放测试服务器上去执行的时候报错了，报检索 COM 类工厂中 CLSID 为 {00024500-0000-0000-C000-000000000046} 的组件时失败，原因是出现以下错误: 80070005。

这个解决方法我基本上是按照网上来进行解决的，但是需要注意的就是，设置完权限之后，还需要在服务器安装的office文件夹分配权限。

权限问题设置完之后就是调试代码了，网上搜索到的资料都是先插入数据，然后在数据的最后插入图片，而不是我想要的每一行都有图片，所以不符合我的需求，于是就自己看着网上的代码整吧整吧。

/// 
/// /// 
/// 数据源/// 文件路劲例如（E:\\Execl\\201706070001.xls）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;//设置单元格的宽
                            range.RowHeight = 120;//设置单元格的高worksheet.Shapes.AddPicture(dt.Rows[r][i].ToString(), Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoCTrue, PicLeft, PicTop, 100, 100);//这后面的100 是设置图片的宽高
                        }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;
        }

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。