blocks|key|2718163|text|我不熟悉WriteXLS包；我通常使用XLConnect：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2718164|library(XLConnect)
##
newWB+<-+loadWorkbook(
++filename="F:/TempDir/tempwb.xlsx",
++create=TRUE)
##
for(i+in+1:10){
++wsName+<-+paste0("newsheet",i)
++createSheet(
++++newWB,
++++name=wsName)
++##
++writeWorksheet(
++++newWB,
++++data=data.frame(
++++++X=1:10,
++++++Dataframe=paste0("DF+",i)),
++++sheet=wsName,
++++header=TRUE,
++++rownames=NULL)
}
saveWorkbook(newWB)|code-block|syntax|javascript|2718165|这当然是可以矢量化的，正如@joran上面提到的，但是为了快速生成动态工作表名称，我使用了一个for循环来演示。|2718166|我在loadWorkbook中使用了create=TRUE参数，因为我正在创建一个新的.xlsx文件，但是如果您的文件已经存在，那么您不必指定它，因为默认值是FALSE。|2718167|以下是创建的工作簿的一些屏幕截图：|2718168|​|2718169|📷|atomic|2718170|2718171|2718172|2718173|2718174|2718175|2718176|2718177|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/faa88751f50ce4d1633b8b0090a6314c.png|imageAlt|1|https://ask.qcloudimg.com/http-save/yehe-900000/95365962f2f44a2b013c634678c57a97.png|2|https://ask.qcloudimg.com/http-save/yehe-900000/d50777897ddb23b569017bb206eac9ec.png^0|4|8|J|9|0|0|1B|3|0|2|C|I|B|27|5|0|0|0|0|1|0|0|0|0|0|1|1|0|0|0|0|1|2|0|0^^$0|@$1|2|3|4|5|6|7|1F|8|@$9|1G|A|1H|B|C]|$9|1I|A|1J|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|1K|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|1L|8|@$9|1M|A|1N|B|C]]|D|@]|E|$]]|$1|M|3|N|5|6|7|1O|8|@$9|1P|A|1Q|B|C]|$9|1R|A|1S|B|C]|$9|1T|A|1U|B|C]]|D|@]|E|$]]|$1|O|3|P|5|6|7|1V|8|@]|D|@]|E|$]]|$1|Q|3|R|5|6|7|1W|8|@]|D|@]|E|$]]|$1|S|3|T|5|U|7|1X|8|@]|D|@$9|1Y|A|1Z|1|20]]|E|$]]|$1|V|3|R|5|6|7|21|8|@]|D|@]|E|$]]|$1|W|3|R|5|6|7|22|8|@]|D|@]|E|$]]|$1|X|3|T|5|U|7|23|8|@]|D|@$9|24|A|25|1|26]]|E|$]]|$1|Y|3|R|5|6|7|27|8|@]|D|@]|E|$]]|$1|Z|3|R|5|6|7|28|8|@]|D|@]|E|$]]|$1|10|3|T|5|U|7|29|8|@]|D|@$9|2A|A|2B|1|2C]]|E|$]]|$1|11|3|R|5|6|7|2D|8|@]|D|@]|E|$]]|$1|12|3|-4|5|6|7|2E|8|@]|D|@]|E|$]]]|13|$14|$5|15|16|17|E|$18|19|1A|-4]]|1B|$5|15|16|17|E|$18|1C|1A|-4]]|1D|$5|15|16|17|E|$18|1E|1A|-4]]]]

I'm not familiar with the package <code>WriteXLS</code>; I generally use <code>XLConnect</code>: 

<pre><code>library(XLConnect)
##
newWB &lt;- loadWorkbook(
 filename="F:/TempDir/tempwb.xlsx",
 create=TRUE)
##
for(i in 1:10){
 wsName &lt;- paste0("newsheet",i)
 createSheet(
 newWB,
 name=wsName)
 ##
 writeWorksheet(
 newWB,
 data=data.frame(
 X=1:10,
 Dataframe=paste0("DF ",i)),
 sheet=wsName,
 header=TRUE,
 rownames=NULL)
}
saveWorkbook(newWB)
</code></pre>

This can certainly be vectorized, as @joran noted above, but just for the sake of generating dynamic sheet names quickly, I used a <code>for</code> loop to demonstrate.

I used the <code>create=TRUE</code> argument in <code>loadWorkbook</code> since I was creating a new .xlsx file, but if your file already exists then you don't have to specify this, as the default value is <code>FALSE</code>.

Here are a few screenshots of the created workbook:

<img src="https://i.stack.imgur.com/JPXyH.png" alt="enter image description here">

<img src="https://i.stack.imgur.com/1MLlx.png" alt="enter image description here">

<img src="https://i.stack.imgur.com/34x1E.png" alt="enter image description here">

blocks|key|2718215|text|您可以使用xlsx包写入多个工作表。您只需为每个数据框使用不同的sheetName，并且需要添加append=TRUE|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2718216|library(xlsx)
write.xlsx(dataframe1,+file="filename.xlsx",+sheetName="sheet1",+row.names=FALSE)
write.xlsx(dataframe2,+file="filename.xlsx",+sheetName="sheet2",+append=TRUE,+row.names=FALSE)|code-block|syntax|javascript|2718217|另一种选择是在R/xlsx代码中执行所有操作，然后在结束时保存工作簿，这使您可以更好地控制格式和数据框的位置。例如：|2718218|wb+=+createWorkbook()

sheet+=+createSheet(wb,+"Sheet+1")

addDataFrame(dataframe1,+sheet=sheet,+startColumn=1,+row.names=FALSE)
addDataFrame(dataframe2,+sheet=sheet,+startColumn=10,+row.names=FALSE)

sheet+=+createSheet(wb,+"Sheet+2")

addDataFrame(dataframe3,+sheet=sheet,+startColumn=1,+row.names=FALSE)

saveWorkbook(wb,+"My_File.xlsx")|2718219|如果您发现它很有用，下面是一些有趣的帮助器函数，它们使使用xlsx向电子表格添加格式、元数据和其他特性变得更容易：http://www.sthda.com/english/wiki/r2excel-read-write-and-format-easily-excel-files-using-r-software|2718220|entityMap|0|LINK|mutability|MUTABLE|url|http://www.sthda.com/english/wiki/r2excel-read-write-and-format-easily-excel-files-using-r-software^0|5|4|W|9|1C|B|0|0|0|0|T|4|1L|2R|0|0^^$0|@$1|2|3|4|5|6|7|Y|8|@$9|Z|A|10|B|C]|$9|11|A|12|B|C]|$9|13|A|14|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|15|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|16|8|@]|D|@]|E|$]]|$1|M|3|N|5|H|7|17|8|@]|D|@]|E|$I|J]]|$1|O|3|P|5|6|7|18|8|@$9|19|A|1A|B|C]]|D|@$9|1B|A|1C|1|1D]]|E|$]]|$1|Q|3|-4|5|6|7|1E|8|@]|D|@]|E|$]]]|R|$S|$5|T|U|V|E|$W|X]]]]

You can write to multiple sheets with the <code>xlsx</code> package. You just need to use a different <code>sheetName</code> for each data frame and you need to add <code>append=TRUE</code>:

<pre><code>library(xlsx)
write.xlsx(dataframe1, file="filename.xlsx", sheetName="sheet1", row.names=FALSE)
write.xlsx(dataframe2, file="filename.xlsx", sheetName="sheet2", append=TRUE, row.names=FALSE)
</code></pre>

Another option, one that gives you more control over formatting and where the data frame is placed, is to do everything within R/xlsx code and then save the workbook at the end. For example:

<pre><code>wb = createWorkbook()

sheet = createSheet(wb, "Sheet 1")

addDataFrame(dataframe1, sheet=sheet, startColumn=1, row.names=FALSE)
addDataFrame(dataframe2, sheet=sheet, startColumn=10, row.names=FALSE)

sheet = createSheet(wb, "Sheet 2")

addDataFrame(dataframe3, sheet=sheet, startColumn=1, row.names=FALSE)

saveWorkbook(wb, "My_File.xlsx")
</code></pre>

In case you might find it useful, here are some interesting helper functions that make it easier to add formatting, metadata, and other features to spreadsheets using <code>xlsx</code>:
<a href="http://www.sthda.com/english/wiki/r2excel-read-write-and-format-easily-excel-files-using-r-software" rel="noreferrer">http://www.sthda.com/english/wiki/r2excel-read-write-and-format-easily-excel-files-using-r-software</a>

blocks|key|37955|text|您还可以使用openxlsx库在单个workbook.The中将多个数据集导出到多个工作表。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|37956|使用列表名称作为工作表名称，将data.frames列表写入各个工作表。|37957|require(openxlsx)
list_of_datasets+<-+list("Name+of+DataSheet1"+=+dataframe1,+"Name+of+Datasheet2"+=+dataframe2)
write.xlsx(list_of_datasets,+file+=+"writeXLSX2.xlsx")|code-block|syntax|javascript|37958|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|L|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|M|8|@]|9|@]|A|$G|H]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

You can also use the openxlsx library to export multiple datasets to multiple sheets in a single workbook.The advantage of openxlsx over xlsx is that openxlsx removes the dependencies on java libraries.

Write a list of data.frames to individual worksheets using list names as worksheet names.

<pre><code>require(openxlsx)
list_of_datasets &lt;- list("Name of DataSheet1" = dataframe1, "Name of Datasheet2" = dataframe2)
write.xlsx(list_of_datasets, file = "writeXLSX2.xlsx")
</code></pre>

blocks|key|38267|text|对我来说，WriteXLS提供了你想要的功能。由于您没有指定它返回哪些错误，因此我将向您展示一个示例：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|38268|示例|BOLD|38269|library(WriteXLS)
x+<-+list(sheet_a+=+data.frame(a=letters),+sheet_b+=+data.frame(b+=+LETTERS))
WriteXLS(x,+"test.xlsx",+names(x))|code-block|syntax|javascript|38270|说明|38271|如果x为：|38272|38273|一个数据框列表，每个数据框被写到一个单独的表|unordered-list-item|38274|一个字符矢量(由R个对象组成)，每个对象被写到一个单独的表中，否则，请参阅帮助说明：|38275|38276|关于usage的更多信息|38277|?WriteXLS|38278|显示：|38279|`x`:+A+character+vector+or+factor+containing+the+names+of+one+or
+++++more+R+data+frames;+A+character+vector+or+factor+containing
+++++the+name+of+a+single+list+which+contains+one+or+more+R+data
+++++frames;+a+single+list+object+of+one+or+more+data+frames;+a
+++++single+data+frame+object.|38280|解决方案|38281|对于您的示例，您需要在循环期间收集列表中的所有data.frames，并在循环结束后使用WriteXLS。|38282|会话信息|38283|38284|R+3.2.4|38285|WriteXLS+4.0.0|38286|38287|entityMap^0|5|8|0|0|2|0|0|0|2|0|2|1|0|0|0|0|0|0|7|0|0|0|0|0|4|0|18|8|0|0|4|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|1K|8|@$9|1L|A|1M|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|1N|8|@$9|1O|A|1P|B|H]]|D|@]|E|$]]|$1|I|3|J|5|K|7|1Q|8|@]|D|@]|E|$L|M]]|$1|N|3|O|5|6|7|1R|8|@$9|1S|A|1T|B|H]]|D|@]|E|$]]|$1|P|3|Q|5|6|7|1U|8|@$9|1V|A|1W|B|C]]|D|@]|E|$]]|$1|R|3|-4|5|6|7|1X|8|@]|D|@]|E|$]]|$1|S|3|T|5|U|7|1Y|8|@]|D|@]|E|$]]|$1|V|3|W|5|U|7|1Z|8|@]|D|@]|E|$]]|$1|X|3|-4|5|6|7|20|8|@]|D|@]|E|$]]|$1|Y|3|Z|5|6|7|21|8|@$9|22|A|23|B|H]]|D|@]|E|$]]|$1|10|3|11|5|K|7|24|8|@]|D|@]|E|$L|M]]|$1|12|3|13|5|6|7|25|8|@]|D|@]|E|$]]|$1|14|3|15|5|K|7|26|8|@]|D|@]|E|$L|M]]|$1|16|3|17|5|6|7|27|8|@$9|28|A|29|B|H]]|D|@]|E|$]]|$1|18|3|19|5|6|7|2A|8|@$9|2B|A|2C|B|C]]|D|@]|E|$]]|$1|1A|3|1B|5|6|7|2D|8|@$9|2E|A|2F|B|H]]|D|@]|E|$]]|$1|1C|3|-4|5|6|7|2G|8|@]|D|@]|E|$]]|$1|1D|3|1E|5|U|7|2H|8|@]|D|@]|E|$]]|$1|1F|3|1G|5|U|7|2I|8|@]|D|@]|E|$]]|$1|1H|3|-4|5|6|7|2J|8|@]|D|@]|E|$]]|$1|1I|3|-4|5|6|7|2K|8|@]|D|@]|E|$]]]|1J|$]]

For me, <code>WriteXLS</code> provides the functionality you are looking for. Since you did not specify which errors it returns, I show you an example:

Example

<pre><code>library(WriteXLS)
x &lt;- list(sheet_a = data.frame(a=letters), sheet_b = data.frame(b = LETTERS))
WriteXLS(x, "test.xlsx", names(x))
</code></pre>

Explanation

If <code>x</code> is: 

<ul>
<li>a list of data frames, each one is written to a single sheet</li>
<li>a character vector (of R objects), each object is written to a single sheet</li>
<li>something else, then see also what the help states:</li>
</ul>

More on usage

<pre><code>?WriteXLS
</code></pre>

shows:

<pre><code>`x`: A character vector or factor containing the names of one or
 more R data frames; A character vector or factor containing
 the name of a single list which contains one or more R data
 frames; a single list object of one or more data frames; a
 single data frame object.
</code></pre>

Solution

For your example, you would need to collect all data.frames in a list during the loop, and use <code>WriteXLS</code> after the loop has finished.

Session info

<ul>
<li>R 3.2.4</li>
<li>WriteXLS 4.0.0</li>
</ul>

blocks|key|38316|text|在数据小的情况下，R有许多包和函数，可以根据您的需求使用。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|38317|write.xlsx，write.xlsx2，XLconnect也做了这项工作，但与openxlsx相比，这些有时是慢。|offset|length|style|BOLD|38318|因此，如果您正在处理大型数据集，并且遇到了java错误。我建议看一看"openxlsx"，它真的很棒，并将时间减少到1/12。|38319|我对所有功能都进行了测试，最后我对openxlsx功能的性能印象深刻。|38320|下面是将多个数据集写入多个工作表的步骤。|38321|+install.packages("openxlsx")
+library("openxlsx")

++++start.time+<-+Sys.time()

++++#+Creating+large+data+frame
++++x+<-+as.data.frame(matrix(1:4000000,200000,20))
++++y+<-+as.data.frame(matrix(1:4000000,200000,20))
++++z+<-+as.data.frame(matrix(1:4000000,200000,20))

++++#+Creating+a+workbook
++++wb+<-+createWorkbook("Example.xlsx")
++++Sys.setenv("R_ZIPCMD"+=+"C:/Rtools/bin/zip.exe")+##+path+to+zip.exe|code-block|syntax|javascript|38322|Sys.setenv("R_ZIPCMD“=+"C:/+Rtools+/bin/zip.exe")必须是静态的，因为它引用了Rtools中的一些实用程序。|38323|注意:如果您的系统上没有安装Rtools，请先安装它以获得流畅的体验。这是供您参考的链接：(选择合适的版本)|38324|https://cran.r-project.org/bin/windows/Rtools/按照下面的链接检查选项(安装时需要选中所有复选框)|38325|https://cloud.githubusercontent.com/assets/7400673/12230758/99fb2202-b8a6-11e5-82e6-836159440831.png|38326|++++#+Adding+a+worksheets+:+parameters+for+addWorksheet+are+1.+Workbook+Name+2.+Sheet+Name

++++addWorksheet(wb,+"Sheet+1")
++++addWorksheet(wb,+"Sheet+2")
++++addWorksheet(wb,+"Sheet+3")

++++#+Writing+data+in+to+respetive+sheets:+parameters+for+writeData+are+1.+Workbook+Name+2.+Sheet+index/+sheet+name+3.+dataframe+name

++++writeData(wb,+1,+x)

++++#+incase+you+would+like+to+write+sheet+with+filter+available+for+ease+of+access+you+can+pass+the+parameter+withFilter+=+TRUE+in+writeData+function.
++++writeData(wb,+2,+x+=+y,+withFilter+=+TRUE)

++++##+Similarly+writeDataTable+is+another+way+for+representing+your+data+with+table+formatting:

++++writeDataTable(wb,+3,+z)

++++saveWorkbook(wb,+file+=+"Example.xlsx",+overwrite+=+TRUE)

++++end.time+<-+Sys.time()
++++time.taken+<-+end.time+-+start.time
++++time.taken|38327|openxlsx包非常适合在excel文件中读取和写入大量数据，并且在excel中有很多自定义格式的选项。|38328|有趣的事实是，在这里我们不必为java堆内存而烦恼。|38329|entityMap|0|LINK|mutability|MUTABLE|url|https://cran.r-project.org/bin/windows/Rtools/|1^0|0|0|W|16|8|1M|1|0|Y|A|0|0|0|0|0|0|0|1A|0|0|0|2S|1|0|0|0|8|0|0^^$0|@$1|2|3|4|5|6|7|1F|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|1G|8|@$D|1H|E|1I|F|G]|$D|1J|E|1K|F|G]|$D|1L|E|1M|F|G]]|9|@]|A|$]]|$1|H|3|I|5|6|7|1N|8|@$D|1O|E|1P|F|G]]|9|@]|A|$]]|$1|J|3|K|5|6|7|1Q|8|@]|9|@]|A|$]]|$1|L|3|M|5|6|7|1R|8|@]|9|@]|A|$]]|$1|N|3|O|5|P|7|1S|8|@]|9|@]|A|$Q|R]]|$1|S|3|T|5|6|7|1T|8|@]|9|@]|A|$]]|$1|U|3|V|5|6|7|1U|8|@]|9|@]|A|$]]|$1|W|3|X|5|6|7|1V|8|@]|9|@$D|1W|E|1X|1|1Y]]|A|$]]|$1|Y|3|Z|5|6|7|1Z|8|@]|9|@$D|20|E|21|1|22]]|A|$]]|$1|10|3|11|5|P|7|23|8|@]|9|@]|A|$Q|R]]|$1|12|3|13|5|6|7|24|8|@$D|25|E|26|F|G]]|9|@]|A|$]]|$1|14|3|15|5|6|7|27|8|@]|9|@]|A|$]]|$1|16|3|-4|5|6|7|28|8|@]|9|@]|A|$]]]|17|$18|$5|19|1A|1B|A|$1C|1D]]|1E|$5|19|1A|1B|A|$1C|Z]]]]

Incase data size is small, R has many packages and functions which can be utilized as per your requirement.

write.xlsx, write.xlsx2, XLconnect also do the work but these are sometimes slow as compare to openxlsx. 

So, if you are dealing with the large data sets and came across java errors. I would suggest to have a look of "openxlsx" which is really awesome and reduce the time to 1/12th.

I've tested all and finally i was really impressed with the performance of openxlsx capabilities.

Here are the steps for writing multiple datasets into multiple sheets.

<pre><code> install.packages("openxlsx")
 library("openxlsx")

 start.time &lt;- Sys.time()

 # Creating large data frame
 x &lt;- as.data.frame(matrix(1:4000000,200000,20))
 y &lt;- as.data.frame(matrix(1:4000000,200000,20))
 z &lt;- as.data.frame(matrix(1:4000000,200000,20))

 # Creating a workbook
 wb &lt;- createWorkbook("Example.xlsx")
 Sys.setenv("R_ZIPCMD" = "C:/Rtools/bin/zip.exe") ## path to zip.exe
</code></pre>

Sys.setenv("R_ZIPCMD" = "C:/Rtools/bin/zip.exe") has to be static as it takes reference of some utility from Rtools.

Note: Incase Rtools is not installed on your system, please install it first for smooth experience. here is the link for your reference: (choose appropriate version)

<a href="https://cran.r-project.org/bin/windows/Rtools/" rel="nofollow noreferrer">https://cran.r-project.org/bin/windows/Rtools/</a>
check the options as per link below (need to select all the check box while installation)

<a href="https://cloud.githubusercontent.com/assets/7400673/12230758/99fb2202-b8a6-11e5-82e6-836159440831.png" rel="nofollow noreferrer">https://cloud.githubusercontent.com/assets/7400673/12230758/99fb2202-b8a6-11e5-82e6-836159440831.png</a>

<pre><code> # Adding a worksheets : parameters for addWorksheet are 1. Workbook Name 2. Sheet Name

 addWorksheet(wb, "Sheet 1")
 addWorksheet(wb, "Sheet 2")
 addWorksheet(wb, "Sheet 3")

 # Writing data in to respetive sheets: parameters for writeData are 1. Workbook Name 2. Sheet index/ sheet name 3. dataframe name

 writeData(wb, 1, x)

 # incase you would like to write sheet with filter available for ease of access you can pass the parameter withFilter = TRUE in writeData function.
 writeData(wb, 2, x = y, withFilter = TRUE)

 ## Similarly writeDataTable is another way for representing your data with table formatting:

 writeDataTable(wb, 3, z)

 saveWorkbook(wb, file = "Example.xlsx", overwrite = TRUE)

 end.time &lt;- Sys.time()
 time.taken &lt;- end.time - start.time
 time.taken
</code></pre>

openxlsx package is really good for reading and writing huge data from/ in excel files and has lots of options for custom formatting within excel.

The interesting fact is that we dont have to bother about java heap memory here.

blocks|key|2718396|text|对于openxlsx，我使用下面的函数这样做|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2718397|mywritexlsx<-function(fname="temp.xlsx",sheetname="Sheet1",data,
++++++++++++++++++startCol+=+1,+startRow+=+1,+colNames+=+TRUE,+rowNames+=+FALSE)
{
++if(!+file.exists(fname))
++++wb+=+createWorkbook()
++else
+++wb+<-+loadWorkbook(file+=fname)
++sheet+=+addWorksheet(wb,+sheetname)

++writeData(wb,sheet,data,startCol+=+startCol,+startRow+=+startRow,+
++++++++++colNames+=+colNames,+rowNames+=+rowNames)
++saveWorkbook(wb,+fname,overwrite+=+TRUE)
}|code-block|syntax|javascript|2718398|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

I do it in this way for openxlsx using following function

<pre><code>mywritexlsx&lt;-function(fname="temp.xlsx",sheetname="Sheet1",data,
 startCol = 1, startRow = 1, colNames = TRUE, rowNames = FALSE)
{
 if(! file.exists(fname))
 wb = createWorkbook()
 else
 wb &lt;- loadWorkbook(file =fname)
 sheet = addWorksheet(wb, sheetname)

 writeData(wb,sheet,data,startCol = startCol, startRow = startRow, 
 colNames = colNames, rowNames = rowNames)
 saveWorkbook(wb, fname,overwrite = TRUE)
}
</code></pre>

blocks|key|39297|text|这里有很多不错的答案，但其中一些有点过时了。如果您想要将更多的工作表添加到单个文件中，那么这是我发现的适合我的方法。为清楚起见，以下是openxlsx+4.0版的工作流程|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|39298|#+Create+a+blank+workbook
OUT+<-+createWorkbook()

#+Add+some+sheets+to+the+workbook
addWorksheet(OUT,+"Sheet+1+Name")
addWorksheet(OUT,+"Sheet+2+Name")

#+Write+the+data+to+the+sheets
writeData(OUT,+sheet+=+"Sheet+1+Name",+x+=+dataframe1)
writeData(OUT,+sheet+=+"Sheet+2+Name",+x+=+dataframe2)

# Export+the+file
saveWorkbook(OUT,+"My+output+file.xlsx")|code-block|syntax|javascript|39299|编辑|39300|我现在已经尝试了几个其他的答案，实际上我真的很喜欢@Syed的，它没有利用openxlsx的所有功能，但如果你想要一个快速简单的导出方法，那可能是最简单的。|39301|entityMap^0|1V|8|0|0|0|11|8|0^^$0|@$1|2|3|4|5|6|7|Q|8|@$9|R|A|S|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|T|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|U|8|@]|D|@]|E|$]]|$1|M|3|N|5|6|7|V|8|@$9|W|A|X|B|C]]|D|@]|E|$]]|$1|O|3|-4|5|6|7|Y|8|@]|D|@]|E|$]]]|P|$]]

Many good answers here, but some of them are a little dated. If you want to add further worksheets to a single file then this is the approach I find works for me. For clarity, here is the workflow for <code>openxlsx</code> version 4.0

<pre><code># Create a blank workbook
OUT &lt;- createWorkbook()

# Add some sheets to the workbook
addWorksheet(OUT, "Sheet 1 Name")
addWorksheet(OUT, "Sheet 2 Name")

# Write the data to the sheets
writeData(OUT, sheet = "Sheet 1 Name", x = dataframe1)
writeData(OUT, sheet = "Sheet 2 Name", x = dataframe2)

# Export the file
saveWorkbook(OUT, "My output file.xlsx")
</code></pre>

EDIT

I've now trialled a few other answers, and I actually really like @Syed's. It doesn't exploit all the functionality of <code>openxlsx</code> but if you want a quick-and-easy export method then that's probably the most straightforward.

blocks|key|38346|text|我一直在这么做，我所做的就是|type|unstyled|depth|inlineStyleRanges|entityRanges|data|38347|WriteXLS::WriteXLS(
++++all.dataframes,
++++ExcelFileName+=+xl.filename,
++++AdjWidth+=+T,
++++AutoFilter+=+T,
++++FreezeRow+=+1,
++++FreezeCol+=+2,
++++BoldHeaderRow+=+T,
++++verbose+=+F,
++++na+=+'0'
++)|code-block|syntax|javascript|38348|所有这些数据帧都来自这里|38349|all.dataframes+<-+vector()
for+(obj.iter+in+all.objects)+{
++obj.name+<-+obj.iter
++obj.iter+<-+get(obj.iter)
++if+(class(obj.iter)+==+'data.frame')+{
++++++all.dataframes+<-+c(all.dataframes,+obj.name)
}|38350|显然，sapply例程在这里会更好。|38351|entityMap^0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|R|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|S|8|@]|9|@]|A|$]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

I do this all the time, all I do is

<pre><code>WriteXLS::WriteXLS(
 all.dataframes,
 ExcelFileName = xl.filename,
 AdjWidth = T,
 AutoFilter = T,
 FreezeRow = 1,
 FreezeCol = 2,
 BoldHeaderRow = T,
 verbose = F,
 na = '0'
 )
</code></pre>

and all those data frames come from here 

<pre><code>all.dataframes &lt;- vector()
for (obj.iter in all.objects) {
 obj.name &lt;- obj.iter
 obj.iter &lt;- get(obj.iter)
 if (class(obj.iter) == 'data.frame') {
 all.dataframes &lt;- c(all.dataframes, obj.name)
}
</code></pre>

obviously sapply routine would be better here

blocks|key|39318|text|对于lapply友好的版本..|type|unstyled|depth|inlineStyleRanges|entityRanges|data|39319|library(data.table)
library(xlsx)

path2txtlist+<-+your.list.of.txt.files
wb+<-+createWorkbook()
lapply(seq_along(path2txtlist),+function+(j)+{
sheet+<-+createSheet(wb,+paste("sheetname",+j))
addDataFrame(fread(path2txtlist[j]),+sheet=sheet,+startColumn=1,+row.names=FALSE)
})

saveWorkbook(wb,+"My_File.xlsx")|code-block|syntax|javascript|39320|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

for a lapply-friendly version..

<pre><code>library(data.table)
library(xlsx)

path2txtlist &lt;- your.list.of.txt.files
wb &lt;- createWorkbook()
lapply(seq_along(path2txtlist), function (j) {
sheet &lt;- createSheet(wb, paste("sheetname", j))
addDataFrame(fread(path2txtlist[j]), sheet=sheet, startColumn=1, row.names=FALSE)
})

saveWorkbook(wb, "My_File.xlsx")
</code></pre>

blocks|key|38111|text|我遇到了这个问题，我用这种方式解决了它：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|38112|library(openxlsx)+#+loads+library+and+doesn't+require+Java+installed

your_df_list+<-+c("df1",+"df2",+...,+"dfn")

for(name+in+your_df_list){
++write.xlsx(x+=+get(name),+
+++++++++++++file+=+"your_spreadsheet_name.xlsx",+
+++++++++++++sheetName+=+name)
}|code-block|syntax|javascript|38113|这样，如果您有大量数据帧要写入Excel，则不必手动创建非常长的列表。|38114|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

I had this exact problem and I solved it this way:

<pre><code>library(openxlsx) # loads library and doesn't require Java installed

your_df_list &lt;- c("df1", "df2", ..., "dfn")

for(name in your_df_list){
 write.xlsx(x = get(name), 
 file = "your_spreadsheet_name.xlsx", 
 sheetName = name)
}
</code></pre>

That way you won't have to create a very long list manually if you have tons of dataframes to write to Excel.

blocks|key|2508016|text|我经常使用打包的rio来导出各种类型的文档。使用rio，您可以输入一个列表，命名每个选项卡并指定数据集。rio编译其他in/out包，并使用openxlsx导出到Excel。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|2508017|library(rio)

filename+<-+"C:/R_code/../file.xlsx"

export(list(sn1+=+tempTable1,+sn2+=+tempTable2,+sn3+=+tempTable3),+filename)|code-block|syntax|javascript|2508018|entityMap|0|LINK|mutability|MUTABLE|url|https://github.com/leeper/rio^0|8|3|0|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@$A|R|B|S|1|T]]|C|$]]|$1|D|3|E|5|F|7|U|8|@]|9|@]|C|$G|H]]|$1|I|3|-4|5|6|7|V|8|@]|9|@]|C|$]]]|J|$K|$5|L|M|N|C|$O|P]]]]

I regularly use the packaged <a href="https://github.com/leeper/rio" rel="nofollow noreferrer">rio</a> for exporting of all kinds. Using rio, you can input a list, naming each tab and specifying the dataset. rio compiles other in/out packages, and for export to Excel, uses openxlsx.
<pre><code>library(rio)

filename &lt;- &quot;C:/R_code/../file.xlsx&quot;

export(list(sn1 = tempTable1, sn2 = tempTable2, sn3 = tempTable3), filename)
</code></pre>

blocks|key|2508028|text|以整洁的方式获取一个数据帧并按组编写工作表：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2508029|library(tidyverse)
library(xlsx)
mtcars+%25>%25+
++mutate(cyl1+=+cyl)+%25>%25+
++group_by(cyl1)+%25>%25+
++nest()+%25>%25+
++ungroup()+%25>%25+
++mutate(rn+=+row_number(),
+++++++++app+=+rn+!=+1,
+++++++++q+=+pmap(list(rn,data,app),~write.xlsx(..2,"test1.xlsx",as.character(..1),append+=+..3)))|code-block|syntax|javascript|2508030|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

tidy way of taking one dataframe and writing sheets by groups:
<pre><code>library(tidyverse)
library(xlsx)
mtcars %&gt;% 
 mutate(cyl1 = cyl) %&gt;% 
 group_by(cyl1) %&gt;% 
 nest() %&gt;% 
 ungroup() %&gt;% 
 mutate(rn = row_number(),
 app = rn != 1,
 q = pmap(list(rn,data,app),~write.xlsx(..2,&quot;test1.xlsx&quot;,as.character(..1),append = ..3)))
</code></pre>

I am surprised to find that there is no easy way to export multiple data.frame to multiple worksheets of an Excel file? I tried xlsx package, seems it can only write to one sheet (override old sheet); I also tried WriteXLS package, but it gives me error all the time...

My code structure is like this: by design, for each iteration, the output dataframe (tempTable) and the sheetName (sn) got updated and exported into one tab. 

<pre><code>for (i in 2 : ncol(code)){ 
 ...
 tempTable &lt;- ...
 sn &lt;- ...
 WriteXLS("tempTable", ExcelFileName = "C:/R_code/../file.xlsx",
 SheetNames = sn);
}
</code></pre>

I can export to several cvs files, but there has to be an easy way to do that in Excel, right?

Easy way to export multiple data.frame to multiple Excel worksheets

Java

我很惊讶地发现没有一种简单的方法可以将多个data.frame导出到一个Excel文件的多个工作表中？我尝试过xlsx包，似乎它只能写入一个工作表(覆盖旧工作表)；我也尝试过WriteXLS包，但它总是给我错误……我的代码结构是这样的:根据设计，对于每次迭代，输出数据帧(tempTable)和sheetName (sn...

问将多个data.frame导出到多个Excel工作表的简单方法
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问将多个data.frame导出到多个Excel工作表的简单方法EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问将多个data.frame导出到多个Excel工作表的简单方法
EN