llgd.net
当前位置:首页 >> 关于DElphi7的ExCEl保存问题. >>

关于DElphi7的ExCEl保存问题.

1.在保存的时候先判断是否有此文件,如果有的话,先删除.然后再保存. 只是加了个判断而已. 2.使用ExcelApp.DisplayAlerts:=false;//不显示对话框 看看是否可以

Excel := CreateOLEObject('Excel.Application'); Excel.WorkBooks.open(filename); ...... Excel.DisplayAlerts := false; //不提示任何警告信息 Excel.ActiveWorkbook.Save; // 保存 Excel.Quit; //退出

首先,uses ComObj; 在表单中建立一个button1,双击编辑,代码如下: procedure TForm1.Button1Click(Sender: TObject); var ExcelApp: Variant; begin ExcelApp:=CreateOleObject('Excel.Application'); ExcelApp.Visible:=True; ExcelApp.WorkBook...

用 ExcelApp.SaveAs( 'C:\abc.xls' ) 或者 if not ExcelApp.ActiveWorkBook.Saved then ExcelApp.ActiveSheet.PrintPreview;

你为什麽不先把数据插入临时表,然後再在SQL裏面进行作业呢 那样速度快,效率高!

拿Excel 2010做例子: 首先,需要在最上面的uses 里面 加上comObj //AXLSFile 表示文件路径 procedure Xls_To_StringGrid(AXLSFile: string); const xlCellTypeLastCell = $0000000B; var XLApp, Sheet: OLEVariant; RangeMatrix: Variant; x, y, ...

定义一个常量名为xlNormal = -4143,把myWorkBook.SaveAs( c:\aaa.xls)更改为,如下: procedure **** const xlNormal = -4143; begin .... myWorkBook.ActiveWorkbook.SaveAs(‘c:\aaa.xls’,xlNormal,'', '',False,False); //xlNormal在EXCEL中...

我觉得你这种用list方式导Excel,造成你导出的问题,因为里面有换行符号。我一般都用以下代码转Excel,你可以试试! procedure TForm_main.btn_excelClick(Sender: TObject); var XL: Variant; //打开EXCEL文件的Variant变量 Sheet: Variant;//...

我给你看一个我的例子,以前我做的,希望对你有用 procedure TfmvProduceZL.btnDaoChuClick(Sender: TObject); var ExcelApp: Variant; // uses ComObj i,nAll_NUM : integer; s1 : String;begin inherited; ExcelApp := CreateOleObject( 'Exce...

delphi操作EXCEL的方法 一) 使用动态创建的方法 首先创建 Excel 对象,使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' ); 1) 显示当前窗口: ExcelApp.Visible := True; 2) 更改 Excel 标题栏: ExcelAp...

网站首页 | 网站地图
All rights reserved Powered by www.llgd.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com