xlsreadwriteii5删除sheet不能超过3个

[wxh660]

在xlsreadwriteii5的使用过程中出现一个无法解决的问题。就是不能删除超过3个sheet.具体如下：一个excel模板中有很多sheet,但我只要其中一个。我采取的是：先导入模板，删除其余的sheet,再另存。但是只能删除三个以内，否则破坏了excel.百思不解，求助高人。
procedure TForm1.Button3Click(Sender: TObject);
var
r:nteger;
xls:TXlsReadWriteII5;
begin
XLS := TXLSReadWriteII5.Create(nil);
//Xls.filename:='111.xls'; xls.read;
xls.LoadFromFile('111.xls');
For r:=9 downto 3 do
xls.delete(3);//删除第三个以后的sheet,如果只删除3个以下则正常
xls.savetofile('222.xls');
...... //操作数据
xls.Write;
xls.Free;
end;

[wxh660]

已解决，可能是模板有一些未知问题

[lyhoo163]

已解决了，就好。。。

[wxh660]

又发现一个奇怪的现象，xlsreadwrite,只能设置纵向打印，不能设置横向打印，到网上找了一个原码看了一个，解释是设置了纵向就是纵向打印，否则为横向。但在实际中，如果把有多个sheet的文件另存后，打开发现，打印设置与原来文件正好相反，如果设置其中的一个为纵向，其它的打印设置仍然没变，不知何原因？

[wxh660]

看样子，用xlsreadwrite的人少，只能自己慢慢摸索了

[wxh660]

几天了，竟然没人回答？？？太没人气了。。。

[joanagle]

请教楼主，xlsreadwriteii5怎么判断EXCEL中有几个Sheet?