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

关于DElphi7的ExCEl保存问题.

过去没做过,觉得题目很有意思,一狠心放弃了一个饭局,现做了一个,见附件的源码。 输入一个字符或字串按一次“确定”按...

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

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

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

你的问题,不是内容长短的问题。 从截图的序号“104”的具体任务有很多条,每条的后面带着回车换行符,所以造成了换行。 修改代码: m:string; for y := 0 to ADOQuery.FieldCount - 1 do begin m:=StringReplace(ADOQuery.Fields[y].AsString,chr...

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

可以的

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

貌似和delphi没关系,都是sql语句问题. 1 首行的空行删掉,然后看下sql语句union all的帮助. 语句大致是这样 select 序号, 姓名,备注 from [sheet1$] union all select 序号1 as 序号,姓名1 as姓名,备注1 as 备注 from [sheet1$] union all select...

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

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