如何用R将已有.CSV文件作为工作表添加至Excel？

没问题！其实核心思路很简单——先把CSV文件读取成你熟悉的dataframe，之后就能直接复用你现有的write.xlsx()代码来追加工作表了。下面是具体的实现步骤和示例：

步骤1：读取CSV文件为Dataframe #

先用read.csv()把CSV文件加载到R的dataframe中，这里推荐加上stringsAsFactors = FALSE参数，避免默认把字符串列转成因子类型（后续操作更灵活）：

# 替换成你的CSV文件路径
csv_file <- "your_file_path/your_data.csv"
csv_df <- read.csv(csv_file, stringsAsFactors = FALSE)

如果你的CSV有特殊编码（比如中文），可以额外指定encoding参数，比如：

csv_df <- read.csv(csv_file, stringsAsFactors = FALSE, encoding = "UTF-8")

步骤2：复用现有代码追加工作表 #

直接把读取好的csv_df代入你已经在用的write.xlsx()函数，保持append=TRUE参数即可：

library(xlsx)

# 替换成你的目标Excel文件和工作表名称
excelFileName <- "your_target_excel.xlsx"
excelsheetname <- "CSV_Imported_Sheet" # 自定义工作表名，建议唯一

write.xlsx(csv_df, file = excelFileName, sheetName = excelsheetname, append = TRUE, row.names = FALSE)

一些小提示 #

• 如果目标Excel文件还不存在，append=TRUE也会自动创建新文件并添加工作表；
• 如果指定的sheetName已经在Excel中存在，write.xlsx()会抛出错误，所以建议给每个CSV对应的工作表起独特的名字；
• 若CSV的分隔符不是逗号，可以用read.delim()并指定sep参数（比如制表符分隔用sep="\t"）。

内容的提问来源于stack exchange，提问作者nsivakr