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

关于DElphi7的ExCEl保存问题.

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

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

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

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

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

1可以用FTP做上传和下载,指定路径; 2在服务器用IIS做一下虚拟目录,允许目录访问,然后用FTP上传,下载可以用HTTP请求,或都直接用webbrowse控件

1.选中待设定规则的单元格区域:这里选中D列,如下图: 2.进入规则管理页面:方法如下图,“开始”——“条件格式”——“管理规则(R)” 新建条件规则:如下图, 新规则设置,如下图: 接着如下设置: 为符合条件的单元格设置底色,如下图: 然后点击“确...

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

只要改变连接字符串为 'Provider=Microsoft.ACE.OLEDB.12.0;Password="";Data Source='+FileName+';Extended Properties=''Excel 12.0;IMEX=1;HDR=YES'';Persist Security Info=True;' 就可以实现对2007的读龋

如果不支持,那就只能使用控件的办法,如果想使用excel2007,这个delphi7自带的控件是不支持的,解决办法有二: 1. 自己导入excel2007的动态库。 2. 使用第三方控件,比如NativeExcel。 顺便提一句: 貌似COM方式应该是兼容性最好的吧,怎么不支...

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