如何在循环中导出多个文件？

Question

我有数据问题，因为我无法将它们写入文件，我想使用循环

file_1 <- dane[as.Date(dane$Date,format="%Y-%m-%d") > as.Date('2016-12-31') & as.Date(dane$Date,format="%Y-%m-%d") <= as.Date('2017-07-02'),]
file_2 <- dane[as.Date(dane$Date,format="%Y-%m-%d") > as.Date('2017-07-02') & as.Date(dane$Date,format="%Y-%m-%d") <= as.Date('2017-12-31'),]
file_3 <- dane[as.Date(dane$Date,format="%Y-%m-%d") > as.Date('2017-12-31') & as.Date(dane$Date,format="%Y-%m-%d") <= as.Date('2018-07-02'),]


for (ii in 1:23){
name <- paste("file_", ii)
write.xlsx(name[ii], file = "./test/test.xlsx", sheetname = name, append = TRUE)
}

file_1中的数据如下1

我不知道如何解决它。