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

名前

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

本文

HOtaさん、ありがとうございました。返答が遅れまして申し訳ありません。

早速ですが、上記の通りの内容を追加してみたのですが、色が変更されません。
試しに入れてみたのが、下記なのですが、何か間違えがありますでしょうか？

// 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;

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;

E_WorkSheet.Cells[1,1].Interior.ColorIndex := 35;
    E_WorkSheet.Range[E_WorkSheet.Cells[1,1]
                ,E_WorkSheet.Cells[5,5]].Interior.ColorIndex := 5;

//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;

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

戻る