corrupted file if & in sheet name

[elfunesto]

Describe the bug
The bug is similar to closed #277 : a file with a sheet including "&" is corrupted

To Reproduce

library(openxlsx)
file=loadWorkbook("test.xlsx)
saveWorkook(file,"test_new.xlsx)

The file test_new.xlsx is corrupted

Expected behavior
The file should not be corrupted and be exactly the same as "test.xlsx". If the sheet "Components & input parameter" is removed from test.xlsx, then

library(openxlsx)
file=loadWorkbook("test.xlsx)
saveWorkook(file,"test_new.xlsx)

works as expected

Example files
test.xlsx

Additional context

> packageVersion("openxlsx")
[1] ‘4.2.7.1’

[JanMarvin]

Hi @elfunesto , I would accept a pull request, but there’s no development from my side regarding this.

[elfunesto]

Hi @JanMarvin , I have just discovered openxlsx2 which is not affected by the bug. Easier (and probably wiser) to migrate to this new package

[JanMarvin]

If this works for you, perfect!