Экспорт нескольких листов из нескольких книг Excel и сохранение имени книги с добавленным именем листа

У меня есть 350 книг Excel. Каждая рабочая книга имеет разное количество листов, хотя некоторые из них пусты.

Я хочу извлекать каждый лист с именем файла рабочей книги и подчеркивать именем листа. Есть ли способ автоматизировать это в R? Я нашел инструменты, чтобы сделать это с помощью рабочей книги с использованием VBA, но R предпочтительнее.

e.g.

Рабочая книга: excelworkbook.xlsx

Листы в рабочей тетради: лист 1, лист 2, рабочий лист

ВЫВОД:

excelworkbook_sheet 1.csv

excelworkbook_sheet 2.csv

excelworkbook_study sheet.csv*

(Я знаю, что пробелы могут быть проблемой? Мне не нужно поддерживать пробелы)

Я также хотел бы избавиться от пустых листов, но я думаю, что даже дойти до этого момента было бы невероятно.

Я просмотрел несколько пакетов и сообщений, но у меня возникла проблема с именованием - я тоже не знаю, с чего начать, поэтому я благодарен за любое руководство! Я просмотрел разные сообщения, чтобы решить эту проблему, у которых есть свои собственные функции, но они не решают мою конкретную проблему добавления имени листа к имени файла и экспорта всех фреймов данных в виде листов с прикрепленным этим именем. Я ожидаю, что мне нужно написать цикл и добавить [i] к этим именам - я действительно не уверен, как это решить.

некоторые источники, на которые я смотрел:

Я все еще здесь после того, как попробовал пакеты readxl и т. Д. ........

# name file path where excel workbooks are located
file_path = "C:\\filepath\\"
#load names of excel files
files = list.files(path=file_path,full.names=TRUE,pattern=".xlsx", recursive=TRUE) 
 ## recursive = TRUE looks at subdirectories as well 

person rspatialqs    schedule 22.02.2021    source источник