复制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;

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

相关推荐