_QueryTable.TablesOnlyFromHTML Eigenschaft

Referenz

Definition

Namespace:: Microsoft.Office.Interop.Excel

Assembly:: Microsoft.Office.Interop.Excel.dll

Wichtig

Einige Informationen beziehen sich auf Vorabversionen, die vor dem Release ggf. grundlegend überarbeitet werden. Microsoft übernimmt hinsichtlich der hier bereitgestellten Informationen keine Gewährleistungen, seien sie ausdrücklich oder konkludent.

Erstellt eine Datentabelle basierend auf Eingabewerten und Formeln, die in einem Arbeitsblatt definiert sind.

public:
 property bool TablesOnlyFromHTML { bool get(); void set(bool value); };

public bool TablesOnlyFromHTML { get; set; }

Public Property TablesOnlyFromHTML As Boolean

Eigenschaftswert

Boolean

Variant

Beispiele

In diesem Beispiel wird eine formatierte Multiplikationstabelle im Bereich A1:K11 in Sheet1 erstellt.

<span class="label">Set dataTableRange = Worksheets("Sheet1").Range("A1:K11")  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Set rowInputCell = Worksheets("Sheet1").Range("A12")  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Set columnInputCell = Worksheets("Sheet1").Range("A13")  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Worksheets("Sheet1").Range("A1").Formula = "=A12*A13"  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































For i = 2 To 11  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































    Worksheets("Sheet1").Cells(i, 1) = i - 1  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































    Worksheets("Sheet1").Cells(1, i) = i - 1  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Next i  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































dataTableRange.</span>
<i>Table</i>
<span class="label">rowInputCell, columnInputCell With Worksheets("Sheet1").Range("A1").CurrentRegion     .Rows(1).Font.Bold = True     .Columns(1).Font.Bold = True     .Columns.AutoFit End With</span>

In diesem Beispiel wird eine formatierte Multiplikationstabelle im Bereich A1:K11 in Sheet1 erstellt.

<span class="label">Set dataTableRange = Worksheets("Sheet1").Range("A1:K11")  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Set rowInputCell = Worksheets("Sheet1").Range("A12")  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Set columnInputCell = Worksheets("Sheet1").Range("A13")  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Worksheets("Sheet1").Range("A1").Formula = "=A12*A13"  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































For i = 2 To 11  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































    Worksheets("Sheet1").Cells(i, 1) = i - 1  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































    Worksheets("Sheet1").Cells(1, i) = i - 1  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Next i  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































dataTableRange.</span>
<i>Table</i>
<span class="label">rowInputCell, columnInputCell With Worksheets("Sheet1").Range("A1").CurrentRegion     .Rows(1).Font.Bold = True     .Columns(1).Font.Bold = True     .Columns.AutoFit End With</span>

In diesem Beispiel wird eine formatierte Multiplikationstabelle im Bereich A1:K11 in Sheet1 erstellt.

<span class="label">Set dataTableRange = Worksheets("Sheet1").Range("A1:K11")  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Set rowInputCell = Worksheets("Sheet1").Range("A12")  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Set columnInputCell = Worksheets("Sheet1").Range("A13")  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Worksheets("Sheet1").Range("A1").Formula = "=A12*A13"  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































For i = 2 To 11  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































    Worksheets("Sheet1").Cells(i, 1) = i - 1  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































    Worksheets("Sheet1").Cells(1, i) = i - 1  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Next i  































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































dataTableRange.</span>
<i>Table</i>
<span class="label">rowInputCell, columnInputCell With Worksheets("Sheet1").Range("A1").CurrentRegion     .Rows(1).Font.Bold = True     .Columns(1).Font.Bold = True     .Columns.AutoFit End With</span>

Hinweise

Mit Datentabellen können Sie eine "Was-wäre-wenn"-Analyse durchführen. Sie können bestimmte konstante Werte im Arbeitsblatt ändern und anschließend die Auswirkung auf Werte in anderen Zellen beobachten.

Gilt für:

Freigeben über

_QueryTable.TablesOnlyFromHTML Eigenschaft

Definition

Eigenschaftswert

Beispiele

Hinweise

Gilt für:

Feedback

Feedback

Zusätzliche Ressourcen