Excelの特定のセルを他の場所にコピーしたい (ID:16756)

名前

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

本文

Delphi4.ProでExcel2002を起動し特定のセルのフォント情報や、罫線/色等の全ての情報を他の場所にコピーしたいのですが、よく分かりません。
何方か教えて下さい。
OSはXPです。
uses  Comobj;

procedure TForm1.PrintClick(Sender: TObject);
var
  E_Excel       : Variant;
  E_Application : Variant;
  E_WorkBook    : Variant;
  E_WorkSheet   : Variant;
begin
// Excel をオープン
  try
  E_Excel               := CreateOleObject('Excel.Application');
  E_Application         := E_Excel.Application;
  except
      on EOleSysError do begin
         //起動失敗
         ShowMessage('Excelが起動できません');
         E_Excel := Null;
         Exit;
      end;
  end;
  E_Application.Visible := True;
  E_Application.WorkBooks.Open('C:\A_C\MyData.xls'); //ｘｌｓファイルを指定
  E_WorkBook            := E_Application.ActiveWorkbook;
  E_WorkSheet           := E_Application.ActiveSheet;

// ここでセルＨ12からＩ13の情報をセルＡ10からＢ11にコピーする
     //ここの処理を教えて下さい

// データをファイルに書き込む
      E_WorkSheet.Cells(11,2).Value := '1234';  //セルＢ11にデータセット

// WorkBookの内容を保存してExcelを終了する
  E_WorkBook.Saved := FALSE;
  E_Application.WorkBooks.Close;
  E_Excel.Quit;
  E_Excel     := unAssigned;
  E_WorkBook  := Unassigned;                           //変数のクリア
  E_WorkSheet := Unassigned;                         //変数のクリア

end;

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

戻る