急急急？在线等待！如何动态在WorkBooks中增加WorkSheets？ 如标题 解决方案 » 免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender:TObject);var v :Variant; Sheet:Variant;begin//打开Excel新建文件 try v := CreateOleObject('Excel.Application'); v.Visible:=CheckBox1.Checked;//是否显示Excel v.WorkBooks.Add;//新建Excel文件 v.WorkBooks[1].WorkSheets[1].Name:='操作Excel';//第一页标题 v.WorkBooks[1].WorkSheets[2].Name:='编程乐园'; v.WorkBooks[1].WorkSheets[3].Name:='都来看呀';// v.WorkBooks[1].WorkSheets['Delphi演示'];'等效下面的语句 Sheet:=v.WorkBooks[1].WorkBooks[1]; Sheet.Cells[1,1]:='好看';//单元格内容 Sheet.Cells[1,2]:='确实'; Sheet.Cells[1,2]:='我喜欢'; except//错误处理 ShowMessage('初始化Excel失败，可能没有装Excel或者其他错误，请重起再试'); v.DisplayAlerts:=false;//是否提示存盘 v.Quit;//退出Excel exit; end; Application.Restore; Application.BringToFront;end; 一个窗口跟随另一个窗口动态改变位置？ [救命]中间层的数据集过多功能严重问题 高薪诚聘Delphi程序员 用setupapi安装modem，不弹出硬件安装向导，怎么做呀？急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！ 请问 如下sql语句 用API函数读写串口失败的问题,在线等待~ 没有比这更菜的问题了 SQL和ListView的问题，急 高分求解 怎么改变dbgrid中显示的字段的长度？ 如何判断一个控件不否已经存在？ 急：有谁碰到过这样的问题？
var v :Variant; Sheet:Variant;begin//打开Excel新建文件 try v := CreateOleObject('Excel.Application'); v.Visible:=CheckBox1.Checked;//是否显示Excel v.WorkBooks.Add;//新建Excel文件 v.WorkBooks[1].WorkSheets[1].Name:='操作Excel';//第一页标题 v.WorkBooks[1].WorkSheets[2].Name:='编程乐园'; v.WorkBooks[1].WorkSheets[3].Name:='都来看呀';// v.WorkBooks[1].WorkSheets['Delphi演示'];'等效下面的语句 Sheet:=v.WorkBooks[1].WorkBooks[1]; Sheet.Cells[1,1]:='好看';//单元格内容 Sheet.Cells[1,2]:='确实'; Sheet.Cells[1,2]:='我喜欢'; except//错误处理 ShowMessage('初始化Excel失败，可能没有装Excel或者其他错误，请重起再试'); v.DisplayAlerts:=false;//是否提示存盘 v.Quit;//退出Excel exit; end; Application.Restore; Application.BringToFront;end;