找出excel中是否有隐藏列

Question

我需要知道excel表中是否有隐藏的列。

我使用了以下哪个工作正常然后突然停止工作。现在它总是返回false。

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

TIA 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