我有一堆包含多个工作表的 Excel 工作簿。我想循环遍历每个工作簿并将每个工作表导出到它自己的新工作簿中。我想要每个新工作簿中都有一个工作表。
这是我到目前为止所得到的:
Sub ExportWorksheet(ByVal worksheet As Excel.Worksheet, ByVal filePath As String)
Dim xlApp As Excel.Application = New Excel.ApplicationClass
Dim xlWorkBook As Excel.Workbook = xlApp.Workbooks.Add
worksheet.Select()
worksheet.Copy()
xlWorkBook.Worksheets.Add()
worksheet.Paste(Destination:=xlWorkBook)
xlWorkBook.SaveAs(Filename:=filePath)
xlWorkBook.Close(False)
xlApp.Quit()
End Sub
在 Excel 中,这可以通过将工作表复制到新工作簿来完成,而不是通过创建新工作簿然后将工作表添加到其中来完成。这是通过使用实现的Worksheet.Copy
无需指定要在工作簿中放置复制的工作表的位置。
更多阅读:http://msdn.microsoft.com/en-us/library/microsoft.office.tools.excel.worksheet.copy(VS.80).aspx
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)