delpih 识别excel颜色吗?

linjie0000 2013-04-25 11:16:22
delpih 识别excel颜色吗?
在线等
...全文
72 5 点赞 打赏 收藏 举报
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
feiba7288 2013-04-26
用ole读出来就行了
  • 打赏
  • 举报
回复
feiba7288 2013-04-26
上面的例子是取Excel单元格的底色,不知道是不是你要的。 Memo1.Color := MsExcel.Worksheets[1].Cells[1, 3].Interior.Color;//第一行第三列的颜色
  • 打赏
  • 举报
回复
feiba7288 2013-04-26

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.
  • 打赏
  • 举报
回复
linjie0000 2013-04-26
有没有例子啊,???
  • 打赏
  • 举报
回复
xiaosailun 2013-04-26
用ole对象操作word,excel,ppt都是可以 你百度一下delphi操作excel有很多例子,再下载一份excel的 api ,读颜色很简单的
  • 打赏
  • 举报
回复
相关推荐
发帖
Delphi
创建于2007-08-02

4929

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2013-04-25 11:16
社区公告
暂无公告