各位高手 这是我第三次发这个贴了
请注意是插入到指定的单元格,请给有用的建议
从数据库读取图片的路径,然后通过路径读取图片插入到EXCEL 指定单元格
string picurl;
Workbook workbook1 = excel1.Workbooks.Add(true);
Worksheet xlWorksheet = (Worksheet)workbook1.Worksheets["sheet1"]; xlWorksheet.Cells.HorizontalAlignment = XlHAlign.xlHAlignCenter;
xlWorksheet.Cells.VerticalAlignment=XlVAlign.xlVAlignCenter;
Range myrange = xlWorksheet.get_Range(xlWorksheet.Cells[1, 1], xlWorksheet.Cells[1,11]);
myrange.Value2 = "产品信息表";
excel1.Application.DisplayAlerts = false;//使合并操作不提示警告信息
myrange.Merge(false);//参数为True则为每一行合并为一个单元格
excel1.Application.DisplayAlerts = true;
xlWorksheet.Cells[2,1] = "图片";
xlWorksheet.Cells[2,2]= "产品名" ;
xlWorksheet.Cells[2,3] = "型号" ;
xlWorksheet.Cells[2,4]= "尺码" ;
xlWorksheet.Cells[2,5] = "级别" ;
for(int i=0;i <myds.table[0].rows.count;i++)
{
picurl =MapPath(myds.tables[0].rows[i]["picture"].tostring());//路径 如何这个图片路径插入到excel指定单元格 }
请注意是插入到指定的单元格,请给有用的建议
从数据库读取图片的路径,然后通过路径读取图片插入到EXCEL 指定单元格
string picurl;
Workbook workbook1 = excel1.Workbooks.Add(true);
Worksheet xlWorksheet = (Worksheet)workbook1.Worksheets["sheet1"]; xlWorksheet.Cells.HorizontalAlignment = XlHAlign.xlHAlignCenter;
xlWorksheet.Cells.VerticalAlignment=XlVAlign.xlVAlignCenter;
Range myrange = xlWorksheet.get_Range(xlWorksheet.Cells[1, 1], xlWorksheet.Cells[1,11]);
myrange.Value2 = "产品信息表";
excel1.Application.DisplayAlerts = false;//使合并操作不提示警告信息
myrange.Merge(false);//参数为True则为每一行合并为一个单元格
excel1.Application.DisplayAlerts = true;
xlWorksheet.Cells[2,1] = "图片";
xlWorksheet.Cells[2,2]= "产品名" ;
xlWorksheet.Cells[2,3] = "型号" ;
xlWorksheet.Cells[2,4]= "尺码" ;
xlWorksheet.Cells[2,5] = "级别" ;
for(int i=0;i <myds.table[0].rows.count;i++)
{
picurl =MapPath(myds.tables[0].rows[i]["picture"].tostring());//路径 如何这个图片路径插入到excel指定单元格 }
Sub kkk()
aa = ActiveWorkbook.Sheets.Count
For i = 1 To aa
Worksheets(i).Select
Worksheets(i).Range("A2").Select
Sheets(i).Range("A2").RowHeight = 60 ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 48, 72, 60).Select
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Shadow.Obscured = msoTrue
Selection.ShapeRange.Shadow.Type = msoShadow18
Selection.ShapeRange.Fill.UserPicture "d:\11.jpg"
Next i
End Sub