用第一行和第一列确定范围

Dim Book As New XLS.Book("d:\\test.xls")

For k As Integer = 0 To Book.Sheets.Count-1 \'//多个sheet的处理
    Dim Sheet = Book.Sheets(k)
    Dim rc As Integer = 0
    Dim cc As Integer = 0
    For i As Integer = 0 To Sheet.Rows.Count-1
        If sheet(i, 0).Text = "" Then
            rc = i
            Exit For
        End If
    Next
    For i As Integer = 0 To Sheet.Cols.Count-1
        If sheet(0, i).Text = "" Then
            cc = i
            Exit For
        End If
    Next
    msgbox(rc & " " & cc)
    For i As Integer = 0 To rc
        For j As Integer = 0 To cc
            If sheet(i,j).text > "" Then
                Dim dr As DataRow = DataTables("排重表").AddNew
                dr("第一列") = sheet(i,j).Text
            End If
        Next
    Next
Next

 那没办法，你试试用vba

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
MessageBox.Show(Rg.Rows.Count)
MessageBox.Show(Rg.Columns.Count)
MessageBox.Show(Rg.Count)
App.Quit