5,386
社区成员
发帖
与我相关
我的任务
分享
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.