从多个 Excel 工作簿导出多个工作表并保留工作簿名称并附加工作表名称

问题描述

我有 350 个 excel 工作簿。 每个工作簿都有不同数量的工作表,但有些是空的。

我想用工作簿的文件提取每个工作表并用工作表名称提取下划线 - 有没有办法在 R 中自动执行此操作?我找到了使用 VBA 通过工作簿执行此操作的工具,但首选 R。

例如

工作簿: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 

解决方法

暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!

如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@)