узнать, есть ли скрытые столбцы в Excel

Question

Мне нужно знать, есть ли скрытые столбцы в таблице Excel.

Я использовал следующую команду, которая работала нормально, а потом вдруг перестала работать. Теперь она всегда возвращает false.

bool.Parse(worksheet.PageSetup.Application.Columns.Hidden.ToString())

ТИА Excel 2007 .net 3.5

Answer 1

Выполните рефакторинг следующего фрагмента кода при необходимости.

Option Strict Off

Imports System
Imports System.Console
Imports Microsoft.Office.Interop

Public Class AreThereHiddenColumnsInExcelWorkSheet

    Public Shared Sub Execute()

        Dim excel = New Excel.Application

        excel.Visible = True
        excel.Workbooks.Add()
        excel.Columns("C:C").Select()
        excel.Selection.EntireColumn.Hidden = True

        Dim columns = excel.Columns
        Dim hasHiddenColumns As Boolean

        For Each column In columns
            If column.Hidden Then
                hasHiddenColumns = True
                Exit For
            End If
        Next

        WriteLine("excel.Columns.Hidden = " + hasHiddenColumns.ToString())

    End Sub

End Class