delphi操作excel删除工作表遇到的问题

Question

本帖最后由 w272107545 于 2011-09-30 15:37:05 编辑

Answer 1

http://topic.csdn.net/t/20041117/14/3561454.html

Answer 2

function formatNeighborhoodInfo(fileName:string):Boolean;
var
  Excel,WorkBook: OleVariant;
  Sheet: Variant;
  i:integer;
begin
  try
    excel := CreateOleObject('Excel.Application');
    WorkBook := excel.Workbooks.Add(fileName);
    Sheet := WorkBook.Worksheets[1];
  except
    result := false ;
    EXIT;
  end;  try
    excel.Visible:=true;
    Excel.Sheets[2].delete;
    Excel.Sheets[1].delete;
    excel.DisplayAlerts := false;
 { except
    ShowMessage('Failure'); }
  finally
    Excel.Quit;
    Excel := Unassigned;
  end;  result := true ;
end;
你给的那个帖子我没看懂，这是我的代码。应该怎么改？

Answer 3

会了。谢谢。执行Excel.Sheets[2].delete;
之前设置excel.displayAlerts:=false;就OK了。

Answer 4

再请教一个问题：
如何用DELPHI控制EXCEL自动填充某一列的值为2