复制EXCEL中的图片到另外一个EXCEL解决办法

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

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

Delphi(Pascal) code

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;