怎么将网页图片导入到excel中

如何将网页图片导入到excel中
我用如下方法将网页的内容生成excel文件供用户下载，但是里面的图片全部全都是红叉，有什么办法啊？？
Response.Clear()
Response.ContentType = "application/vnd.ms-excel"
Response.AppendHeader("Content-Disposition", "attachment;filename=" & HttpUtility.UrlEncode("图书明细" & ".xls", System.Text.Encoding.UTF8))
Me.EnableViewState = False
Dim oStringWriter As System.IO.StringWriter = New System.IO.StringWriter
Dim oHtmlTextWriter As System.Web.UI.HtmlTextWriter = New System.Web.UI.HtmlTextWriter(oStringWriter)
Me.RenderControl(oHtmlTextWriter)
Response.Write(oStringWriter.ToString())
Response.End()

[解决办法]
帮你up一下

[解决办法]
没遇到过，不知道怎么解决...
[解决办法]
这个真没做过，应该跟导出文字差不多。
[解决办法]
顶下

[解决办法]
你只是把html导入了excel

[解决办法]
帮顶
[解决办法]
希望对你有帮助

C# code

using   System;using   System.IO;using   System.Data;using   System.Drawing;using   System.Drawing.Imaging;using   System.Windows.Forms;using   Excel;private   void   EduceExcel(){string   picPath=Directory.GetCurrentDirectory()+ '\\Excelpic.jpg ';string   ExcelName=Directory.GetCurrentDirectory()+ '\\ExcelModul.xls ';string   fileName   =   'Excel '+DateTime.Now.ToString().Replace( ': ',   ' ')   +   '.xls ';Excel.Application   app   =new   Excel.Application();//建立Excel对象app.Visible=true;//让Excel文件可见Workbook   objbook;objbook   =   app.Workbooks.Add(ExcelName);Worksheet   worksheet;worksheet   =(Worksheet)objbook.Worksheets[1];Excel.Pictures   pics=(Excel.Pictures)worksheet.Pictures(Type.Missing);//建立图片集合对象int   TD=1;int   p=1;PicItemColletion   picItems=   PicItem.Getpictems();//读取数据库图片数据集合foreach(PicItem   PI   in   picItems){if(PI.ImageData   !=   null){MemoryStream   stream   =   new   MemoryStream(PI.ImageData,   0,   PI.ImageData.Length);Bitmap   bitmap   =   new   Bitmap(stream);bitmap.Save(picPath,System.Drawing.Imaging.ImageFormat.Jpeg);//保存临时图片文件到硬盘里if(File.Exists(picPath)){stream.Close();//关闭图像文件流Range   range_1   =range=worksheet.get_Range( 'A '+TD.ToString(), 'A '+TD.ToString());//获取填充单元格范围pics.Insert(picPath,Type.Missing);//获取图片Excel.Picture   pic   =   (Excel.Picture   )pics.Item(p);//建立图片集合某一图片对象pic.Left   =   (double)range_1.Left;pic.Top   =   (double)range_1.Top;pic.Height   =(double)range_1.Height;pic.Width   =(double)range_1.Width;TD=TD+1;p=p+1;  }}if(File.Exists(picPath)){File.Delete(picPath);//删除图片}}
[解决办法]
JScript code
function AutomateExcel() {  var oXL = new ActiveXObject("Excel.Application");   var oWB = oXL.Workbooks.Add();   var oSheet = oWB.ActiveSheet;    var sel=document.body.createTextRange();  sel.moveToElementText(tid1);  sel.select();  sel.execCommand("Copy");  oSheet.Paste();  oXL.Visible =true;  oXL=null;  sel.execCommand("Unselect");}