如何用Delphi新建一个xls文件?

如何用Delphi新建一个xls文件,如果该文件已经存在,就覆盖它?

解决方案 »

  1.   

    用数据库生成xls还是用SERVER组件生成？
      

  2.   

    用server建立一个xls文件,要是这个文件已经存在,就覆盖掉它
    或判断这个文件是否存在,存在就先删除它,在用server建立!
      

  3.   

    var i,j,k,l,m,n:integer;ColumnRange,qzw,qzw1,QZW2: Variant;begin
    excelapplication1.Connect;
    excelapplication1.Caption:='123';
    excelapplication1.Visible[0]:=true;
    excelapplication1.Workbooks.Add(null,0);
    excelworkbook1.ConnectTo(excelapplication1.Workbooks[1]);
    excelworksheet1.ConnectTo(excelworkbook1.Worksheets[1] as _worksheet);
    excelworksheet2.ConnectTo(excelworkbook1.Worksheets[2] as _worksheet);
    excelworksheet3.ConnectTo(excelworkbook1.Worksheets[3] as _worksheet);
    excelworksheet2.Activate;
    excelworksheet3.Name:='zwtlzr3';
    excelworksheet2.Name:='zwtlzr2';
    excelworksheet1.Name:='zwtlzr1';
    excelworksheet2.Columns.Font.Name:='黑体';
    ColumnRange:= excelworksheet2.Columns;
    ColumnRange.Columns[3].ColumnWidth:=30;
    ColumnRange.Columns[3].font.name:='隶书';
    ColumnRange.Columns[3].font.color:=clblue;
    j:=2;
    k:=3;
    excelworksheet2.Cells.Item[2,1]:='123';
    excelworksheet2.Cells.Item[2,2]:='456';
    excelworksheet2.SaveAs('d:\zz\123.xls',XLEXCEL9795,' ');
      

  4.   

    覆盖不行，只有删除，
    IF FILEEXISTS('C:\123.XLS')THEN DELETEFILE('C:\123.XLS');
      

  5.   

    谢谢你WWWWA(aaaa) ( )
    上面的代码会在exl里弹出一个是否覆盖的对话框,我不想要!
    判断这个文件是否存在,存在就先删除它,在用server建立?
    谢谢解决马上给分!
      

  6.   

    上面的操作可不可以不打开exl?
      

  7.   

    excelworksheet2.DisplayAlerts := false
      

  8.   

    excelworksheet2.DisplayAlerts:=false;
    加在那,我加上后,就不让我编译了
      

  9.   

    excelworksheet2没有DisplayAlerts这个属性呀?
    我就是不想启动exl!
      

  10.   

    excelapplication1.DisplayAlerts[1]:= false;
      

  11.   

    IF FILEEXISTS('C:\123.XLS')THEN DELETEFILE('C:\123.XLS');
    excelapplication1.DisplayAlerts[0]:= false;//不启动exl
    excelapplication1.Connect;
    excelapplication1.Caption:='123';
    excelapplication1.Visible[0]:=true;
    excelapplication1.Workbooks.Add(null,0);
    excelworkbook1.ConnectTo(excelapplication1.Workbooks[1]);
    excelworksheet1.ConnectTo(excelworkbook1.Worksheets[1] as _worksheet);
    excelworksheet2.ConnectTo(excelworkbook1.Worksheets[2] as _worksheet);
    excelworksheet3.ConnectTo(excelworkbook1.Worksheets[3] as _worksheet);
    excelworksheet2.SaveAs('c:\123.xls',XLEXCEL9795,' ');
    //excelapplication1.Quit;
    可是还是启动exl
      

  12.   

    用SERVER组件创建XLS文件，必须启动EXCEL，如不想启动EXCEL，
    只有用数据库生成XLS文件，当然表中无记录。
      

  13.   

    可以覆盖，设定对话框为默认按钮
    DisplayAlerts := false;