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