Wednesday, May 13, 2015

CheckColumnOrRowIsHidden

Public Sub CheckColumnOrRowIsHidden()
        Dim wb As HSSFWorkbook = Nothing
        Using fs As New FileStream("C:\test.xls", FileMode.Open, FileAccess.Read)
            wb = New HSSFWorkbook(fs)
        End Using

        Dim wSheet As HSSFSheet = wb.GetSheet("sheetname")

        For rowNum As Integer = 0 To wSheet.LastRowNum
            Dim row As HSSFRow = wSheet.GetRow(rowNum)

            If row Is Nothing Then Continue For

            If row.IsHidden Then
                Debug.Print("Hiddn row number:" & rowNum + 1)
            End If
        Next

        Dim trgRowNum As Integer = 3
        Dim lastClmNum As Integer = wSheet.GetRow(trgRowNum).LastCellNum

        For clmNum As Integer = 0 To lastClmNum
            If wSheet.IsColumnHidden(clmNum) Then
                Debug.Print("Hiddn column number:" & clmNum + 1)
            End If
        Next


    End Sub

No comments:

Post a Comment