主题：批量导入一个工作表下面的多个工作薄

老师，请教一下，怎么导入一个工作表下的多个工作薄，需要导入的工作薄名称都是数字名称，如下：

此主题相关图片如下：qq截图20211020085842.jpg

Dim dlg As New OpenFileDialog
dlg.Filter= "Excel 97-2003文件(*.xls)|*.xls|Excel 2007文件(*.xlsx)|*.xlsx"
If dlg.ShowDialog = DialogResult.Ok Then
    Dim nm As String = FileSys.GetName(dlg.FileName)
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(1)  '这个位置该怎么判断呢

    Dim dr As DataRow = DataTables("表A").AddNew