Delphi里如何保存并关闭excel

Delphi > 数据库相关
收藏 回复
[问题点数：60分]
更多帖子
私信 空间 博客
thunderingman
等级
本版专家分：0
结帖率 85.11%
使用comobj，对excel表格进行了读、写操作，比如想在点击button1后保存该excel，并关闭退出该excel。
语句怎么写。

  eclApp.WorkBooks.Close;
  eclApp.Quit;

貌似还不够
只看楼主 引用 举报 楼主 收起
展开阅读全文
更多帖子
私信 空间 博客
SuperTitan004
等级
本版专家分：1538
eclApp.WorkBooks.Close;
eclApp.Quit;
eclApp:=unassigned;
这样试试
只看TA 引用 举报 #1得分 0
更多帖子
私信 空间 博客
dinoalex
等级
本版专家分：30774
勋章
Blank
黄花 2011年3月 Delphi大版内专家分月排行榜第二
2009年7月 Delphi大版内专家分月排行榜第二
2009年6月 Delphi大版内专家分月排行榜第二
Blank
蓝花 2011年4月 Delphi大版内专家分月排行榜第三
      eclApp.DisplayAlerts:=false;
      eclApp.Quit;
只看TA 引用 举报 #2得分 0
更多帖子
私信 空间 博客
nkym0626
等级
本版专家分：1190
学习了 
只看TA 引用 举报 #3得分 0
更多帖子
私信 空间 博客
thunderingman
等级
本版专家分：0
各位学者 ，貌似上面的都不对么，这样会弹出是否保存的对话框的？
保存的语句是哪条？
只看TA 引用 举报 #4得分 0
更多帖子
私信 空间 博客
wujinyuan
等级
本版专家分：744
try
    FWorkBook.WorkSheets[1].SaveAs(SaveFilaName);
    FWorkBook.Save;
  finally
    FworkBook.Saved   :=   True;
    FExcelApp.WorkBooks.Close;
    FExcelApp.Quit;
    FExcelApp := Unassigned;
  end;
只看TA 引用 举报 #5得分 0
更多帖子
私信 空间 博客
thunderingman
等级
本版专家分：0
SaveAs的话变成另存为了，都会跳出对话框，问是否覆盖了，这样都不好
只看TA 引用 举报 #6得分 0
更多帖子
私信 空间 博客
thunderingman
等级
本版专家分：0
继续求教上面的问题，
 eclApp.cells[2,2].value:='aa';
对某一个单元格输入内容后，希望保存该内容，然后关闭该excel，不要跳出是否保存的对话框的
只看TA 引用 举报 #7得分 0
更多帖子
私信 空间 博客
thunderingman
等级
本版专家分：0
各位高手，帮忙啊
只看TA 引用 举报 #8得分 0
更多帖子
私信 空间 博客
dinoalex
等级
本版专家分：30774
勋章
Blank
黄花 2011年3月 Delphi大版内专家分月排行榜第二
2009年7月 Delphi大版内专家分月排行榜第二
2009年6月 Delphi大版内专家分月排行榜第二
Blank
蓝花 2011年4月 Delphi大版内专家分月排行榜第三 


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;
只看TA 引用 举报 #9得分 0
更多帖子
私信 空间 博客
thunderingman
等级
本版专家分：0
谢谢大侠 还有个问 就是如何先判断该文件是否已经打开 因为我发现任务管理器里还运行着该进程，有没有语句能判断该excel文档是否还打开着，如果打开着就先关了这个进程，谢谢
只看TA 引用 举报 #10得分 0
1 2
收起
收藏 回复
thunderingman

等级：

关注 私信 TA的帖子
Delphi对Excel的所有操作

（Delphi对Excel的所有操作）逐个试试！   一) 使用动态创建的方法  首先创建 Excel 对象，使用ComObj:  var ExcelApp: Variant;  ExcelApp := CreateOleObject( 'Excel.Application' );  1) ...

用Delphi全面控制Excel

首先创建 Excel 对象，使用ComObj:var ExcelID: Variant;ExcelID := CreateOleObject( Excel.Application );1) 显示当前窗口：ExcelID.Visible := True;2) 更改 Excel 标题栏：ExcelID.Caption := 应用程序调用 ...

Delphi控制Excel（一）

用Delphi从数据库中取得资料，然后导出到Excel中做成报表是个不错的选择，因为Excel强大的报表功能那可是没话说  前提  Delphi中要  uses comobj;  var Excel:Variant;  一、Excel操作  1.创建Excel对象...

Delphi里如何保存并关闭excel

procedure TForm1.Button6Click(Sender: TObject); var  xlstest, thesheet:Variant; ... xlstest:=CreateOleObject('Excel.Application');  except  Exit;  end;  

Delphi对Excel文件的操作（1）——保存

//保存数据到文件//path：文件所在路径//data：待保存的数据//SheetName：Excel表单的名字function SaveToExcel(path:string;data:Variant;SheetName:string):boolean;varflag:boolean;temp:integer;i:Integer;index...

Delphi10调用EXCEL后无法关闭进程的问题

调用EXCEL后，就算对象Quit后，EXCEL进程还是在内存中，没有释放，原因是Range对象有问题，以Range[a1,b1]这样的形式访问过对象后，EXCEL进程就无法释放，改用Range['a1:b1']就可以正常释放了。 注：D7木有这个...

用Delphi将数据导入到Excel并控制Excel

用Delphi将数据导入到Excel并控制Excel   在日常办公中，用得最多的是Word和Excel，而Excel对数据报表的处理尤为方便（操作公式、打印格式等），如果我们将数据导入到Excel中后，再靠我们平时对Excel熟练的...

delphi 调用excel，修改excel并显示

目的：将查询结果输出到excel，并打开excelfunction TFrmDBCZ_Report_DLBBFK.ProcessExcel(date: string): Boolean;var xlapp,MySheet,MyBooks:Variant; i,j:Integer; filename,savefile :string;begin ...

Delphi控制Excel2000

source: http://blog.csdn.net/SiTwo/archive/2004/09/16/106270.aspx类　别:COM & ActiveX(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var...ExcelApp := CreateOleObject( Excel.Application );1) 显示当

Delphi生成多Sheet的Excel文件

Delphi生成多Sheet的Excel文件的代码。 ---------------------------------------- uses ComObj;//生成Excel表格头信息。//by JRQ 20091205procedure CreatExcelTitle(ExlApp: OleVariant; SheetName: string);var...

Delphi常用的Excel操作

以下是我在Delphi中用过的Excel操作 ExlApp:=CreateOLEObject('Excel.Application'); //创建对象 ExlApp.Visible :=False;// True; //是否显示 ExlApp.DisplayAlerts := False; //是否显示警告 ExlApp.Caption:=a...

引用Delphi操作EXCEL (详细)

引用Delphi操作EXCEL    来源：http://wenjieshiyu.blog.163.com/blog/static/10739413201072033115869/   Delphi 控制Excel (一) 使用动态创建的方法 首先创建 Excel 对象，使用ComObj: var ExcelApp: ...

Delphi控制Excel2000

Delphi控制Excel2000类　别:COM & ActiveX(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( Excel.Application );1) 显示当前窗口:ExcelApp.Visible := ...

用Delphi将数据导入到Excel并控制Excel(转载)

1、 直接使用Delphi自带的组件：在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet。 2、动态创建Excel文件：首先创建 Excel 对象，使用ComObj,Excel2000: var ExcelApp: Variant; ExcelApp := C...

Delphi操作Excel大全

Delphi操作Excel大全

Delphi创建Excel文件常用操作

首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( Excel.Application ); 1) 显示当前窗口： ExcelApp.Visible := True; 2) 更改 Excel 标题栏： ExcelApp.Caption := 应用...

delphi控制Excel格式

设置EXCEL的单元格的格式为文本格式ColumnRange.Columns[1].numberformatlocal:=@; ExcelApplication1.ActiveSheet.Rows[1].numberformat:=@; ExcelApp.Cells[j,2].numberformatlocal:=@; excelworksheet1.Cells....

delphi stringgrid导出为excel

procedure TLiYQBYJL.btnBYJLTJDCClick(Sender: TObject); var ExcelApp, workbook, sheet: Variant; col, row, j, i: Integer; str: string; begin ... dlgSave1.Filter := 'Excel2007格式...

怎么在delphi中读取Excel数据（各种详细操作）

首先创建 Excel 对象，使用ComObj : Var ExcelApp : Variant ; ExcelApp := CreateOleObject ( '' Excel.Application '' ) ; 1 ) 显示当前窗口： ExcelApp.Visible := True ; 2 ) 更改 Excel 标题栏： ...

DELPHI中四种EXCEL访问技术实现

一ADO方式访问Excel文件

Delphi 导出数据至Excel的7种方法

delphi 快速导出excel uses ComObj,clipbrd; function ToExcel(sfilename:string; ADOQuery:TADOQuery):boolean; const xlNormal=-4143; var y : integer; tsList : TStringList; s,filename :strin

delphi学习点滴——操作excel的几个控件使用说明

在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet。 1) 打开Excel ExcelApplication1.Connect; 2) 显示当前窗口: ExcelApplication1.Visible[0]:=True; 3) 更改 Excel 标题栏: Excel...

delphi DBGrid的数据导出到Excel文件保存

delphi 将DBGrid的数据导出到Excel文件保存 文章出自：http://blog.csdn.net/suiyunonghen/archive/2009/05/21/4207564.aspx (* 原作者： iamdream(delphi盒子) 修改： 不得闲 功能： 将DbGrid数据保存到...

学完这个你就成为excel高手了！（Delphi对Excel的所有操作）逐个试试！

（Delphi对Excel的所有操作）逐个试试！   一) 使用动态创建的方法  <br />首先创建 Excel 对象，使用ComObj:  var ExcelApp: Variant;  ExcelApp := CreateOleObject( 'Excel...

DELPHI如何将数据导出到指定格式的EXCEL模版

Delphi(Pascal) code path:=ExtractFilePath(Application.ExeName); if self.OpenDialog1.Execute then filename:=self.OpenDialog1.FileName; try Self.ExcelApplication1:=TExcelApplicatio

delphi excel 读取和写入

//读excel function TForm1.readExcel(fileName :WideString):TStringList; var I, J ,len,ret: Integer; MaxRow, MaxCol: Integer; List, Strs: TStringList; ExcelApp, Sheet: Variant; ...

DELPHI中EXCEL组件的使用方法

DELPHI中EXCEL组件的使用方法:（一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口：ExcelApp.Visible := True;2...

Delphi生成多Sheet的Excel文件的代码

//生成Excel表格头信息。//by JRQ 20091205 procedure CreatExcelTitle(ExlApp: OleVariant; SheetName: string); var Range: OleVariant; begin  ExlApp.Cells[1, 1].Value := '序号'; //第一行第1列

Delphi中控制Excel

用Delphi从数据库中取得资料，然后导出到Excel中做成报表是个不错的选择，因为Excel强大的报表功能那可是没话说前提Delphi中要 uses comobj;var Excel:Variant;一、Excel操作1.创建Excel对象Excel := ...

2020数学建模A题

2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据 2020数学建模国赛A题及其数据

相关热词 c#提取字符串中的数字 c# 扩展无返回类 c#网站如何做预览功能 c# 异步 返回值 c#chart实时曲线图 c# 窗体 隐藏 c#实现终端上下滑动 c# 传递数组 可变参数 c# list 补集 c#获得所有窗体