_QueryTable.TablesOnlyFromHTML プロパティ

リファレンス

定義

名前空間:: Microsoft.Office.Interop.Excel

アセンブリ:: Microsoft.Office.Interop.Excel.dll

重要

一部の情報は、リリース前に大きく変更される可能性があるプレリリースされた製品に関するものです。 Microsoft は、ここに記載されている情報について、明示または黙示を問わず、一切保証しません。

ワークシートで定義した入力値と数式に基づいて、データテーブルを作成します。

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

public bool TablesOnlyFromHTML { get; set; }

Public Property TablesOnlyFromHTML As Boolean

プロパティ値

Boolean

バリアント型

例

次の使用例は、シート 1 のセル範囲 A1:K11 に書式設定された乗算表を作成します。

<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>

次の使用例は、シート 1 のセル範囲 A1:K11 に書式設定された乗算表を作成します。

<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>

次の使用例は、シート 1 のセル範囲 A1:K11 に書式設定された乗算表を作成します。

<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>

注釈

このデータテーブルは、ワークシートの特定の定数を変化させて、ほかのセルの値への影響を調べるケーススタディのために使います。

適用対象

Share via

_QueryTable.TablesOnlyFromHTML プロパティ

定義

プロパティ値

例

注釈

適用対象

フィードバック

フィードバック

その他のリソース