Excelのセル色、フォント色を変えるには？ (ID：11288)

名前

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

本文

お世話になります。
現在、DelphiからExcel出力を行おうとしております。
ただ、セルの色、フォントの色を変えるといった単純なものなはずなのに、壁にぶちあったまま、数時間経過しております。こんな質問で恐縮ですが皆さんの知恵をかしてください。

以下ソースです。
中間のデータをセットしている部分で、各セル毎（もしくわブロックにして）色を変更したいと思っております。
どうぞ宜しくお願いします。

// Excel をオープン
     E_Excel :=  CreateOleObject('Excel.Application');
     E_Application :=  E_Excel.Application;
     E_Application.Visible :=  FALSE;
     E_Application.WorkBooks.Open(FileName); // XLS ファイルを指定
     E_WorkBook :=  E_Application.ActiveWorkbook;
     E_WorkSheet:=  E_Application.ActiveSheet;

//DataSet  からデータ取得
    ADODataSet1.First;
    for x := 0 to ADODataSet1.RecordCount-1 do begin
      for i := 0 to ADODataSet1.Fields.Count-1 do begin
        if x = 0 then begin
          E_WorkSheet.Cells[x+1,i+1].Value := ADODataSet1.Fields.Fields[i].FieldName;
        end;
        E_WorkSheet.Cells[x+2,i+1].Value := ADODataSet1.Fields.Fields[i].AsString;
      end;
      ADODataSet1.Next;
    end;

//Excel保存 & ObjectFree
     E_Application.DisplayAlerts := False;
     E_WorkSheet := unassigned;
     E_WorkBook.SaveAs(FileName);
     E_WorkBook := unassigned;
     E_Application.ActiveWorkBook.Close(FileName);
     E_Application.Quit;
     E_Application := unassigned;
     E_Excel := unassigned;

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

戻る