G
g00
Unregistered / Unconfirmed
GUEST, unregistred user!
完全删除行,也就是删除行,并上移被删除行以下的单元格。
大致的代码如下
ExcelApp是Texcelapplication的实例
wkBk是工作簿实例
wbst是工作表实例
下面这句是删除操作,执行后,被删除行以下的单元格并没有上移,55~
wbst.Range['A1','A1'].EntireRow.Delete(xlShiftUp);
type
ExcelApp: texcelapplication;
procedure TfrmReport.test1();
var
wkBk : _WorkBook;
EParam : Variant;
do
cuType : Variant;
wbst : _worksheet;
begin
EParam:=EmptyParam;
do
cuType:=0;
ExcelApp.connect;
try
wkBk:=ExcelApp.WorkBooks.Open(ExtractFilepath(application.ExeName)+'模版一.xlt',EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,DocuType);
except
showmessage('打开工作簿失败!');
exit;
end;
wbst:=wkBk.ActiveSheet as _Worksheet;
//删除行,并上移被删除行以下的单元格
wbst.Range['A1','A1'].EntireRow.Delete(xlShiftUp);
end;
大致的代码如下
ExcelApp是Texcelapplication的实例
wkBk是工作簿实例
wbst是工作表实例
下面这句是删除操作,执行后,被删除行以下的单元格并没有上移,55~
wbst.Range['A1','A1'].EntireRow.Delete(xlShiftUp);
type
ExcelApp: texcelapplication;
procedure TfrmReport.test1();
var
wkBk : _WorkBook;
EParam : Variant;
do
cuType : Variant;
wbst : _worksheet;
begin
EParam:=EmptyParam;
do
cuType:=0;
ExcelApp.connect;
try
wkBk:=ExcelApp.WorkBooks.Open(ExtractFilepath(application.ExeName)+'模版一.xlt',EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,DocuType);
except
showmessage('打开工作簿失败!');
exit;
end;
wbst:=wkBk.ActiveSheet as _Worksheet;
//删除行,并上移被删除行以下的单元格
wbst.Range['A1','A1'].EntireRow.Delete(xlShiftUp);
end;