主题：合并Excel文件问题

For Each file As String In filesys .GetFiles("E:\ygxx") '遍历文件,指定文件的路径

    If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then '判断文件格式

        Dim Book As New XLS.Book(file) '定义一个新的工作本,含ygxx的所有文件

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

        For n As Integer = 1 To sheet.Rows.Count - 1 '遍历第1个工作表的第2至最后一行

if sheet(n,0).Text.trim() > "" ‘姓名列有值’

            Dim dr As DataRow = DataTables("基本信息表").AddNew '在基本信息表中添加行

……