主题：Excel读入异常

 贴出代码

DataTables("Tname").DataRows.Clear()
Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\Product.xlsx")
Dim ws As MSExcel.WorkSheet = Wb.WorkSheets("Sheet2")
Dim rg As MSExcel.Range
Dim Nindex As Integer
Dim str As String

Nindex =1
Dim dr As DataRow
Do
    str  = ws.Cells(1, cstr(Nindex)).Text
    If str  Is Nothing  Or str  ="" Then
        Exit Do
    End If
    dr = DataTables("Tname").AddNew()
    dr("第一列") = str
    Nindex = Nindex +1
Loop
DataTables.save()
App.Close()

App.quit

 你先把所有的 excel.exe 进程去掉，然后再测试