数据导出到Excel表问题 ( 积分: 100 )

我在一个软件里把数据导出到Excel表格中，可是我不知道怎样将原先Excel表格中某个Sheet的数据先清空，请各位大侠帮忙。

我在一个软件里把数据导出到Excel表格中，可是我不知道怎样将原先Excel表格中某个Sheet的数据先清空，请各位大侠帮忙。

你用什么方法打开Excel的？如果用F1Book的话，用F1Book1.InitTable

使用XLSREADWRITE控件。

ftp://61.152.102.114:2100/datanew/2004122115453522801.rar
注释 能够将数据库的数据导入EXCEL，并制作出漂亮的EXCEL表格

源码如下：
v:=CreateOleObject('Excel.Application');//创建OLE对象
v.visible:=False;
FileNameString := ExtractFilePath(Application.ExeName) + 'Excel/GranarySystemBook.xls';
if FileExists(FileNameString) then
v.workbooks.Open(FileNameString) //添加工作表
else
begin
MessageDlg('GranarySystemBook.xls 文件不存在！', mtError,[mbOk], 0);
exit;
end;
v.workbooks[1].sheets[1].name:='StoreHouse';
sheet:=v.workbooks[1].sheets['StoreHouse'];
//----------------------------------------
此处添加清空sheet单元格代码
//---------------------------------------
v.WorkBooks[1].Sheets['StoreHouse'].Cells[1,1] := '仓房基本信息记录报表';
v.WorkBooks[1].Sheets['StoreHouse'].Cells[2,1] := '出表日期：' + DateTimeToStr(DateOf(Now));
v.WorkBooks[1].Sheets['StoreHouse'].Cells[3,1] := '仓房编号';
v.WorkBooks[1].Sheets['StoreHouse'].Cells[3,2] := '仓房名称';
v.WorkBooks[1].Sheets['StoreHouse'].Cells[3,3] := '仓房类型';
v.WorkBooks[1].Sheets['StoreHouse'].Cells[3,4] := '仓房长/直径';
v.WorkBooks[1].Sheets['StoreHouse'].Cells[3,5] := '仓房宽/檐高';
v.WorkBooks[1].Sheets['StoreHouse'].Cells[3,6] := '仓房高/顶高';
v.WorkBooks[1].Sheets['StoreHouse'].Cells[3,7] := '角度';
v.WorkBooks[1].Sheets['StoreHouse'].Cells[3,8] := '保管员';
v.WorkBooks[1].Sheets['StoreHouse'].Cells[3,9] := '设计储量';
v.WorkBooks[1].Sheets['StoreHouse'].Cells[3,10] := '实际储量';
v.WorkBooks[1].Sheets['StoreHouse'].Cells[3,11] := '粮食名称';
v.WorkBooks[1].Sheets['StoreHouse'].Cells[3,12] := '入仓日期';
v.WorkBooks[1].Sheets['StoreHouse'].Cells[3,13] := '入仓水分';
v.WorkBooks[1].Sheets['StoreHouse'].Cells[3,14] := '当前水分';
v.WorkBooks[1].Sheets['StoreHouse'].Cells[3,15] := '温度修正值';
v.WorkBooks[1].Sheets['StoreHouse'].Cells[3,16] := '温度上限值';
v.WorkBooks[1].Sheets['StoreHouse'].Cells[3,17] := '温度下限制';
v.WorkBooks[1].Sheets['StoreHouse'].Cells[3,18] := 'RTU编号';


v.WorkBooks[1].Save;
v.Quit;
MessageDlg('数据已经成功输出到Excel表格中！', mtInformation,[mbOk], 0);

最后自己搞定了
v.Range['A1:Z2000'].Select;
v.Selection.Clear;

多人接受答案了。