ClosedXML.Excel 多个Excel之间复制sheet

'基础文件。
Dim book As XLWorkbook = New XLWorkbook("D:test.xlsx")
'copy文件
Dim tempbook As XLWorkbook = New XLWorkbook("D:temptest.xlsx")
'防止sheetName重复
Dim newSheet As Integer = 0
'循环从tempbook的sheet复制到book。
For sheetIdx = 1 To tempbook.Worksheets.Count
  newSheet = newSheet + 1
  tempbook.Worksheets.Worksheet(sheetIdx).CopyTo(book, tempbook.Worksheets.Worksheet(sheetIdx).Name + newSheet.ToString, book.Worksheets.Count + 1)
Next

代码不复杂，直接看代码就行。

如果资源学习了，可以点赞支持！