导出图片到Excel-完整Job

static void ExportImageToExcel(Args _args)
{
container ImaPos;
COM comWorksheet;
COM comShapes;
COM comCells;
COM comFont;
COM comPageSetup;
SysExcelWorksheet sheet;
SysExcelApplication excel;
SysExcelWorkbooks books;
SysExcelWorkbook book;
SysExcelWorksheets sheets;
SysExcelCells cells;
COMVariant variant = new COMVariant();
COMVariant xpos = new COMVariant();
COMVariant ypos = new COMVariant();
COMVariant state = new COMVariant();
COMVariant width = new COMVariant();
COMVariant height = new COMVariant();

image MyImage=new image();
str 200 FileName;
container newPos;
int _nheight;
real _ywidth,_yheight,curRow,curCol;
;
curCol=1;
_ywidth=1;
_yheight=1;
FileName='D://My Pictures//Good Pic//1600FG100_013.jpg';
if (FileName)
{
excel = SysExcelApplication::construct();
books = excel.workbooks();
book = books.add();
sheets = book.worksheets();
sheet = sheets.itemFromNum(1);

cells=sheet.cells();
variant.int(-4167);
comWorkSheet=sheet.comObject();

comPageSetup = comWorkSheet.PageSetup();
comPageSetup.LeftMargin(28);
comPageSetup.RightMargin(28);

comCells=comWorkSheet.Cells();
comFont=comCells.Font();
comFont.size(9);

comCells.rowheight(16.5);
comCells.ColumnWidth(8.435);

}
MyImage.loadImage(FileName);
try
{
variant.bStr(FileName);
xpos.int(1);
ypos.int(1);
state.int(2);
width.int(MyImage.width());
height.int(MyImage.height());
comShapes = comWorkSheet.shapes();
comShapes.addPicture(variant,1,1,_ywidth,_yheight,width,height);
}
catch(Exception::Error)
{
comWorkSheet.close();
excel.quit();
}
excel.visible(true);
}