使用server页里的Texcelappliation组件操作Excel,遇到问题,请教:(100分)

  • 主题发起人 主题发起人 g00
  • 开始时间 开始时间
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;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ExcelApplication1.Connect;
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.ActiveSheet as _Worksheet);
ExcelWorksheet1.Range['A1','A1'].Delete(xlUp);
end;
//经测试正确
 
不行呀。还是没有上移!
我加了EntireRow也不行:
ExcelWorksheet1.Range['A1','A1'].EntireRow.Delete(xlUp);
 
后退
顶部