For Each file As String In filesys .GetFiles("d:\qqq") If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then Dim Book As New XLS.Book(file) Dim Sheet As XLS.Sheet = Book.Sheets(0) ' Dim dr As DataRow = DataTables("XXXXX").AddNew ' dr("姓名") = sheet(3,1).Text ' dr("邮箱") = sheet(7,5).text End If Next