ListObject.HeaderRowRange Property

Reference

Definition

Namespace:: Microsoft.Office.Tools.Excel

Assemblies:: Microsoft.Office.Tools.Excel.dll, Microsoft.Office.Tools.Excel.v4.0.Utilities.dll

Important

Some information relates to prerelease product that may be substantially modified before it’s released. Microsoft makes no warranties, express or implied, with respect to the information provided here.

Gets a Range that represents the range of the header row.

public:
 property Microsoft::Office::Interop::Excel::Range ^ HeaderRowRange { Microsoft::Office::Interop::Excel::Range ^ get(); };

public Microsoft.Office.Interop.Excel.Range HeaderRowRange { get; }

member this.HeaderRowRange : Microsoft.Office.Interop.Excel.Range

Public ReadOnly Property HeaderRowRange As Range

Property Value

Range

A Range that represents the range of the header row.

Examples

The following code example creates a DataTable and a ListObject, and binds the ListObject to the DataTable. It then gets the range that contains the header row and changes the header row font to bold.

This example is for a document-level customization.

private void ListObject_HeaderRowRange()
{
    // Create a new DataSet and DataTable.
    DataSet ds = new DataSet();
    DataTable dt = ds.Tables.Add("Customers");
    dt.Columns.Add(new DataColumn("LastName"));
    dt.Columns.Add(new DataColumn("FirstName"));

    // Add a new row to the DataTable.
    DataRow dr = dt.NewRow();
    dr["LastName"] = "Chan";
    dr["FirstName"] = "Gareth";
    dt.Rows.Add(dr);

    // Create a list object.
    Microsoft.Office.Tools.Excel.ListObject list1 = 
        this.Controls.AddListObject(
        this.Range["A1"], "list1");

    // Bind the list object to the DataTable.
    list1.AutoSetDataBoundColumnHeaders = true;
    list1.SetDataBinding(ds, "Customers", "LastName",
        "FirstName");

    // Get the header row range and set the font to bold.
    Excel.Range headerRow = list1.HeaderRowRange;
    headerRow.Cells.Font.Bold = true;
}

Private Sub ListObject_HeaderRowRange()
    ' Create a new DataSet and DataTable.
    Dim ds As New DataSet()
    Dim dt As DataTable = ds.Tables.Add("Customers")
    dt.Columns.Add(New DataColumn("LastName"))
    dt.Columns.Add(New DataColumn("FirstName"))

    ' Add a new row to the DataTable.
    Dim dr As DataRow = dt.NewRow()
    dr("LastName") = "Chan"
    dr("FirstName") = "Gareth"
    dt.Rows.Add(dr)

    ' Create a list object.
    Dim List1 As Microsoft.Office.Tools.Excel.ListObject = _
        Me.Controls.AddListObject(Me.Range("A1"), _
        "List1")

    ' Bind the list object to the DataTable.
    List1.AutoSetDataBoundColumnHeaders = True
    List1.SetDataBinding(ds, "Customers", _
        "LastName", "FirstName")

    ' Get the header row range and set the font to bold.
    Dim headerRow As Excel.Range = List1.HeaderRowRange
    headerRow.Cells.Font.Bold = True

End Sub

Remarks

If there is no header row, HeaderRowRange returns null.

Applies to

Compartilhar via