主题：导入excel的问题

或可自編代碼解決(Tables("Sheet1")已建立),如:

DataTables("Sheet1").DataRows.Clear()
Dim r As Row

Dim Book As New XLS.Book("C:\book1.xls")
Dim Sht As XLS.Sheet = Book.Sheets(0)

with Tables("Sheet1")
    .Redraw = False
    For i As Integer = 1 To Sht.Rows.Count
        if Sht(i, 0).Value > 0 then
            r = Tables("Sheet1").AddNew
            r("fz") = Sht(i, 0).Value
            r("xh") = Sht(i, 1).Value
        end if
    Next  
    .Redraw = True
End with