皮皮网
皮皮网
bimap源码

【android 源码cstdatomic】【棋牌真人源码】【blocklauncher源码下载】delphi excel源码

时间:2024-12-24 08:58:40 分类:热点 编辑:如何看asp源码
1.在DELPHI设置EXCEL工作薄的名称

delphi excel源码

在DELPHI设置EXCEL工作薄的名称

       首先打开EXCEL文件,改名保存后,android 源码cstdatomic删除原文件就达到目地了。棋牌真人源码

       源码:

       procedure TForm1.Button1Click(Sender: TObject);

       const

        NewName = 'NewName.xls';

       var

        fnm,blocklauncher源码下载pth: String;

        ExlApp: TExcelApplication;

        ExlWb: TExcelWorkbook;

       begin

        if OpenDialog1.Execute then begin

        fnm := OpenDialog1.FileName;

        pth := ExtractFilePath(fnm);

        ExlApp := TExcelApplication.Create(Forms.Application);

        ExlApp.Connect;

        ExlApp.Visible[0] := False;

        ExlWb := TExcelWorkbook.Create(Forms.Application);

        ExlWb.ConnectTo(

        ExlApp.Workbooks.Open(fnm,

        EmptyParam,EmptyParam,EmptyParam,EmptyParam,

        EmptyParam,EmptyParam,EmptyParam,EmptyParam,

        EmptyParam,EmptyParam,EmptyParam,EmptyParam,

        EmptyParam,EmptyParam,0));

        ExlApp.Application.DisplayAlerts[0] := False;

        ExlWb.SaveCopyAs(pth + NewName);

        ExlWb.Close(EmptyParam, fnm, EmptyParam, 0);

        ExlApp.Quit;

        //必要时,可以删除原来的源码使用原理文件

        //DeleteFile(fnm);

        end;

       end;

本文地址:http://04.net.cn/html/21d65899320.html

copyright © 2016 powered by 皮皮网   sitemap