ExcelCopySheet
简述
复制一份Sheet，如果ToEnd为真则，则拷贝到最末尾。注意，复制Sheet后，必须保存，才复制成功。最后需要将Excel进程退出，否则Excel处于加锁的状态，不能再进行修改等操作。
ExcelCopySheet(FileName;SheetName;NewName:String;ToEnd:Boolean):Boolean;
| 名称 | 类型 | 说明 |
|---|
| FileName | String | 字符串类型。Excel文件名称 |
| SheetName | String | 字符串类型。Sheet名称 |
| NewName | String | 字符串类型。新sheet名称 |
| ToEnd | Boolean | 布尔类型。为真则拷贝到最末尾，否则拷贝到最前面 |
| 返回 | Boolean | 复制成功则返回真，如果excel文件不存在或者SheetName不存在或者NewName已经存在
或者复制失败，则返回假 |
ret:=rdo2 ExcelCopySheet("C:\\VBA.xls","sheet1","sheet2",1);
if ret then
begin
ret1:=rdo2 excelsave("C:\\VBA.xls");
if ret1 then
ret2:=rdo2 excelquit();
end
return ret;