主题：求助：多个单独EXCEL表怎么合并在一个工作簿中

那就根据你的实际情况修改代码，人家给你的是思路。

要更准确的帮助，一开始就应该更准确第描述问题。

到目前为止，你的问题描述还是不准确！
这些文件从何而来？

是自己选择要合并的多个文件？ 还是合并某个目录下的所有文件？

如果是前者，你可以自己做个openfiledialog, 选择要合并的文件：

Dim dlg As New OpenFileDialog
dlg.Filter=“excel文件|*.xls”
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
   Dim Book As New XLS.Book() '定义一个Excel工作簿
    For Each fl As String In dlg.FileNames
        Dim Book1 As New XLS.Book(fl) '       

        Dim Sheet As XLS.Sheet = Book1.Sheets(0)'引用工作簿的第一个工作表       

        book1.Sheets.Removeat(0)       

        book.Sheets.Add(sheet)
    Next

    book.save("c:\reports\工作簿.xls")
End If

如果是后者：

你看看，上面的代码，那一项是你不会的，其实这些代码你都会，但你没有主动去思考、去尝试。