2つのExcelファイルのそれぞれのシートを取得して保存するには (ID:34160)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

自己レスです。
OpenとConnectToを別に書いて、Item[x]に数字を入れたら上手くいきました。
var
  LCID: Integer;
begin
  ExcelApplication1.Connect;
  try
    LCID := LOCALE_USER_DEFAULT;
    ExcelApplication1.Workbooks.Open('C:\Book1.xls',
                                     EmptyParam,EmptyParam,EmptyParam,
                                     EmptyParam,EmptyParam,EmptyParam,
                                     EmptyParam,EmptyParam,EmptyParam,
                                     EmptyParam,EmptyParam,EmptyParam,
                                     EmptyParam,EmptyParam,0);
    ExcelApplication1.Workbooks.Open('C:\Book2.xls',
                                     EmptyParam,EmptyParam,EmptyParam,
                                     EmptyParam,EmptyParam,EmptyParam,
                                     EmptyParam,EmptyParam,EmptyParam,
                                     EmptyParam,EmptyParam,EmptyParam,
                                     EmptyParam,EmptyParam,0);

ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Item[1]);
    ExcelWorkbook2.ConnectTo(ExcelApplication1.Workbooks.Item[2]);

(ExcelWorkbook2.Sheets['Sheet11'] As ExcelWorksheet).Copy(
      EmptyParam,
      ExcelWorkbook1.Sheets['Sheet10'] As ExcelWorksheet,
      LCID);

DeleteFile('C:\Book3.xls');
    ExcelWorkBook1.SaveAs('C:\Book3.xls',//Filename
                  Integer(xlNormal),    //FileFormat
                  EmptyParam,    //Password
                  EmptyParam,    //WriteResPassword
                  False,         //ReadOnlyRecommended
                  False,         //CreateBackup
                  xlNoChange,    //AccessMode
                  EmptyParam,    //ConflictResolution
                  EmptyParam,    //AddToMru
                  EmptyParam,    //TextCodepage
                  EmptyParam,    //TextVisualLayout
                  EmptyParam,    //Local
                  LCID);         //LCID
  finally
    ExcelApplication1.Disconnect;
    ExcelApplication1.Quit;
  end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る