Delphi里如何保存并关闭excel

本博客介绍如何通过Visual Basic for Applications (VBA) 编程语言操作Excel文件,包括打开、读取、修改指定单元格数据,并最终保存修改后的文件。此教程适合希望在Excel中进行自动化数据处理的用户。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

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[1as _worksheet);
 
  self.ExcelWorksheet1.SaveAs('f:\统计报表.xls');//这句实现保存



评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值