procedure
TForm1
.
Button6Click(Sender: TObject);
var
xlstest, thesheet:Variant;
begin
try
xlstest:=CreateOleObject(
'Excel.Application'
);
except
Exit;
end
;
xlstest
.
WorkBooks
.
Open(ExtractFilePath(Paramstr(
0
))+
'tt.xls'
);
thesheet:= xlstest
.
Workbooks[
1
].Worksheets[
'sheet1'
];
thesheet
.
cells
.
item[
2
,
2
]:=
'aa'
;
//memo1.text;
xlstest
.
DisplayAlerts:=
false
;
xlstest
.
ActiveWorkBook
.
SaveAs(ExtractFilePath(Paramstr(
0
))+
'tt.xls'
);
xlstest
.
Quit;
end
;
procedure
TForm1
.
Button6Click(Sender: TObject);
var
xlstest, thesheet:Variant;
begin
try
xlstest:=CreateOleObject(
'Excel.Application'
);
except
Exit;
end
;
xlstest
.
WorkBooks
.
Open(ExtractFilePath(Paramstr(
0
))+
'tt.xls'
);
thesheet:= xlstest
.
Workbooks[
1
].Worksheets[
'sheet1'
];
thesheet
.
cells
.
item[
2
,
2
]:=
'aa'
;
//memo1.text;
xlstest
.
DisplayAlerts:=
false
;
xlstest
.
ActiveWorkBook
.
SaveAs(ExtractFilePath(Paramstr(
0
))+
'tt.xls'
);
xlstest
.
Quit;
end
;
if
self
.
OpenDialog1
.
Execute
then
filename:=self
.
OpenDialog1
.
FileName;
if
filename=
''
then
Exit;
//打开Excel报表
form1
.
teminate_excel;
try
Self
.
ExcelApplication1:=TExcelApplication
.
Create(Self);
Self
.
ExcelApplication1
.
Connect;
except
messagebox(application
.
Handle,
'无法生成Excel报表,请确定安装了Excel后重试'
,
'信息'
,mb_ok
or
mb_iconinformation);
exit;
end
;
Self
.
ExcelApplication1
.
Visible[
0
]:=
False
;
Self
.
ExcelApplication1
.
DisplayAlerts[
0
]:=
False
;
//这句屏蔽提示对话框,可以实现保存时不出现是否覆盖的提示
self
.
ExcelApplication1
.
Workbooks
.
Open(filename,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
0
);
self
.
ExcelWorkbook1
.
ConnectTo(Self
.
ExcelApplication1
.
Workbooks[
1
]);
self
.
ExcelWorksheet1:=TExcelWorkSheet
.
Create(self);
self
.
ExcelWorksheet1
.
ConnectTo(Self
.
ExcelWorkbook1
.
Worksheets[
1
]
as
_worksheet);
self
.
ExcelWorksheet1
.
SaveAs(
'f:\统计报表.xls'
);
//这句实现保存