复制EXCEL中的图片到另外一个EXCEL

Question

    通过OpenDialog开启2个excel（Source.xls,Target.xls），把其中Source.xls中的第一张Sheet中A1：B10区域的图片复制到Target.xls中。
    请高手赐教，不胜感谢！

Answer 1

20分实在不值得写代码。大概告你个思路吧，就是：用OLE操作Excel，打开Source文件，选中指定区域的图片，执行复制操作，然后打开Target文件，执行粘贴操作。可以先录制一段宏，再翻译成Delphi代码，很简单的。

Answer 2

如果不想用用ole,去2ccc下载一个nativeExcel的纯delphi第三方控件

Answer 3

   加到50分了，可以给个代码了吧？
   我会用COMOBJ，可以操作两个EXCEL文件，把其中一个的资料复制到另外一个，但是遇上图片，不知道如何处理。
   求代码，详细点，我是初学者。

Answer 4

function Excel(srcFile, dstFile: string): Boolean;
var
  ExcelApp1, ExcelApp2: Variant;
begin
  Result := False;
  ExcelApp1 := CreateOleObject('Excel.Application');
  ExcelApp1.WorkBooks.Open(srcFile);
  ExcelApp1.ActiveSheet.Range['A1:B10'].Copy;
  ExcelApp2 := CreateOleObject('Excel.Application');
  ExcelApp2.WorkBooks.Open(dstFile);
  ExcelApp2.ActiveSheet.Range['A1'].PasteSpecial;
  ExcelApp1.WorkBooks.Close;
  ExcelApp1.Quit;
  ExcelApp2.ActiveWorkbook.RemovePersonalInformation := False;
  ExcelApp2.ActiveWorkBook.Save;
  ExcelApp2.WorkBooks.Close;
  ExcelApp2.Quit;
  Result := True;
end;没加容错代码，容错代码自己加。