procedure TForm3.Button1Click(Sender: TObject);
var MSWord:Variant;
i,j:Integer;
begin
SaveDialog1.Filter:='*.DOC|*.DOC';
SaveDialog1.DefaultExt:='DOC';
if SaveDialog1.Execute then
begin
MSWord:=CreateOLEObject('Word.Application');
MSWord.Documents.Open(FileName:=SaveDialog1.FileName,ReadOnly:=False);
MSWord.Visible:=False;
MSWord.ActiveDocument.Range(Start:=0,End:=0);
Table1.Open;
j:=Table1.RecordCount;
Table1.First;
for i:=1 to j do
begin
MSWord.ActiveDocument.Range.InsertAfter(Text:=Table1.FieldByName('CODE').AsString+Table1.FieldByName('COLOR').AsString+Chr(13));
Table1.Next;
end;
MSWord.Documents.Close;
end;
end;
procedure TForm3.Button2Click(Sender: TObject);
var MSExcel:Variant;
i,j:Integer;
begin
SaveDialog1.Filter:='*.XLS|*.XLS';
SaveDialog1.DefaultExt:='XLS';
if SaveDialog1.Execute then
begin
MSExcel:=CreateOLEObject('Excel.Application');
MSExcel.WorkBooks.Add;
MSExcel.Visible:=False;
Table1.Open;
j:=Table1.RecordCount;
Table1.First;
for i:=1 to j do
begin
MSExcel.Cells[i,1].Value:=Table1.FieldByName('CODE').AsString;
MSExcel.Cells[i,2].Value:=Table1.FieldByName('COLOR').AsString;
Table1.Next;
end;
MSExcel.ActiveWorkBook.SaveAs(SaveDialog1.FileName);
MSExcel.ActiveWorkBook.Saved:=True;
MSExcel.Quit;
end;
end;
type
TForm1 = class(TForm);
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
procedure FormShow(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
xlApp: Variant;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses
ComObj;
{$R *.DFM}
procedure TForm1.FormShow(Sender: TObject);
begin
//
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
//
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: integer;
begin
xlApp := CreateOleObject('Excel.Application');
xlApp.Visible := True;
xlApp.Workbooks.Add(EmptyParam); // xlWBatWorkSheet
xlApp.Workbooks[1].WorkSheets[1].Name := '乘法表';
// xlApp.Workbooks[1].Title := 'XXXX';
for i:=1 to 200 do
if i mod 2 = 0 then
begin
xlApp.Workbooks[1].WorkSheets['乘法表'].Columns[i].Font.Size := 10;
xlApp.Workbooks[1].WorkSheets['乘法表'].Columns[i].Font.Color := clBlue;
xlApp.Workbooks[1].WorkSheets['乘法表'].Columns[i].Font.Name := '宋体';
end
else if i mod 2 = 1 then
begin
xlApp.Workbooks[1].WorkSheets['乘法表'].Columns[i].Font.Size := 10;
xlApp.Workbooks[1].WorkSheets['乘法表'].Columns[i].Font.Color := clRed;
xlApp.Workbooks[1].WorkSheets['乘法表'].Columns[i].Font.Name := '宋体';
end;
for i:=1 to 200 do
for j:=1 to 200 do
// xlApp.Workbooks[1].WorkSheets['mmmm'].Cells[i,j] := 20;
if (j<=i) then
xlApp.Workbooks[1].WorkSheets['乘法表'].Cells[i,j] := IntToStr(j)+'*'+IntToStr(i)+'='+IntToStr(i*j);
// for i:=1 to 20 do
// xlApp.Workbooks[1].WorkSheets['mmmm'].Cells[21,i] := '=sum(A1:A20)';