主题：EXCEL为空的问题

Dim app As new MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\test.xls")

For k As Integer = 1 To wb.workSheets.Count '//多个sheet的处理
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(k)
    Dim Rg As MSExcel.Range = Ws.UsedRange
    Dim ary = rg.value
    If ary IsNot Nothing Then
        For i As Integer = 1 To rg.Rows.Count
            For j As Integer = 1 To rg.Columns.Count
                If ary(i,j) <> Nothing Then
                End If
            Next
        Next
    End If
Next
app.quit