1.在DELPHI设置EXCEL工作薄的名称
在DELPHI设置EXCEL工作薄的名称
首先打开EXCEL文件,改名保存后,mfc链表源码删除原文件就达到目地了。山西智慧农业源码
源码:
procedure TForm1.Button1Click(Sender: TObject);
const
NewName = 'NewName.xls';
var
fnm,蔬菜溯源码批发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;
//必要时,可以删除原来的macd组合指标源码文件
//DeleteFile(fnm);
end;
end;