Основываясь на ответе @Gregory Demin, я импортировал защищенный паролем файл xlsx, используя приведенный ниже код.
filename = "Data - x.xlsx"
xl.workbook.open(filename, password = "******")
new_path = paste0(tempdir(), "\\", filename)
xl()[["Activeworkbook"]]$saveas(new_path, AccessMode=xl.constants$xlExclusive)
#xl()[["Activesheet"]]$Unprotect(password = "******)
df= xl[b11:dz46]
xl.workbook.close()
unlink(new_path)
names(df) <- df[1,]
df <- df[-1,]###Changing the first row as header
Это работает отлично для меня. Однако проблема в том, что у меня 100 файлов в папке, и у каждого из них свой пароль. Поэтому мне нужно повторять это снова и снова. Есть ли способ, которым я могу сделать это один раз. Кроме того, я хочу, наконец, добавить все данные в 1 файл с именем файла в отдельном столбце.