主题：如何判断EXCEL单元格中是否有内容？

如何判断EXCEL单元格中是否有内容？有的单元格明明是空的，但有可能被设置了格式，所以此类单元格不被认为是空，如何实现准确判断？看得见的为非空，看不见的就为空

 什么意思？直接判断 Sheet(0,0).Text 不行？

SORRY，我没有表述清楚，见如下代码：

我想减少循环次数，有多少列实际有内容的就循环到这些列。

麻烦老师帮忙看看

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

 

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

感谢老师，这个思路挺好的， 但我弄到程序里有些问题，目前好像只能提取第一行数据，另外如果碰到有空的列或行是不是程序就跳出循环了？

 那你就不要全选所有单元格设置字体啊，你操作了多少，最后就会获取多少的啊。

EXCEL我们没办法控制，都是客户给的，他们为了方便怎样操作的都有。

 那没办法，你试试用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