delpih 识别excel颜色吗？
delpih 识别excel颜色吗？
在线等
[解决办法]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Comobj;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  sFileName: string;
  MsExcel, MsExcelWorkBook, FRange: Variant;

  function CreateExcel: Boolean;
  begin
    MsExcel := CreateOleObject('Excel.Application');
    try
      Result := True;
    except
      Result := False;
      ShowMessage('Excel未安或用Excel失！');
    end;
  end;

  procedure CloseExcel;
  begin
    MsExcel.Application.Quit;
    MsExcel := Null;
  end;

  function OpenWorkBook: Boolean;
  begin
    MsExcelWorkBook := MsExcel.WorkBooks.Open(sFileName);
    try
      Result := True;
    except
      Result := False;
      ShowMessage('打Excel文件失！');
    end;
  end;

  procedure CloseWorkBook;
  begin
    MsExcelWorkBook.Close(False);
  end;
begin
  if OpenDialog1.Execute then
    sFileName := OpenDialog1.FileName
  else
    exit;

  if CreateExcel then
  try
    Screen.Cursor := crHourGlass;
    if OpenWorkBook then
    try
      MsExcel.Worksheets[1].Activate;
      //FRange := MsExcel.Worksheets[1].Range[MsExcel.Worksheets[1].Cells[1, 2], MsExcel.Worksheets[1].Cells[1, 2]];
      //lbHint.Font.Color := FRange.Interior.Color;
      Memo1.Color := MsExcel.Worksheets[1].Cells[1, 3].Interior.Color;
    finally
      CloseWorkBook;
    end; 
 
  finally
    Self.Enabled := True;
    Screen.Cursor := crDefault;
    CloseExcel;
  end;
end;

end.

[解决办法]
上面的例子是取Excel单元格的底色，不知道是不是你要的。

Memo1.Color := MsExcel.Worksheets[1].Cells[1, 3].Interior.Color;//第一行第三列的颜色