delphi操作excel删除工作表遇到的问题 本帖最后由 w272107545 于 2011-09-30 15:37:05 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 http://topic.csdn.net/t/20041117/14/3561454.html 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;你给的那个帖子我没看懂,这是我的代码。应该怎么改? 会了。谢谢。执行Excel.Sheets[2].delete;之前设置excel.displayAlerts:=false;就OK了。 再请教一个问题:如何用DELPHI控制EXCEL自动填充某一列的值为2 如何Edit里只能输入数字 欢迎有志之士加盟 有没有可能存在不同商品但是有相同的条形码? Delphi控制Excel2000心得 我将在下周推出免费邮件群发&群收系统. 图片直接存入数据库或者建立图片文件索引哪个好? 关于PB动态库Delphi调用的问题! 关系运算符怎么写? C++ Builder 5的下栽(无内容) 谁有D5Asta21的安装密码? 急!!!! TAdoquery 关闭后,TCP连接还是一直建立,如果解决,谢谢 有什么办法把FireBird的数据导入SQL Server中?
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;
你给的那个帖子我没看懂,这是我的代码。应该怎么改?
之前设置excel.displayAlerts:=false;就OK了。
如何用DELPHI控制EXCEL自动填充某一列的值为2