如何将Excel工作表导出到新工作簿中

我有一堆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