Compartilhar via


_QueryTable.TablesOnlyFromHTML Propriedade

Definição

Cria uma tabela de dados com base nas fórmulas e valores de entrada e definidos por você em uma planilha.

public:
 property bool TablesOnlyFromHTML { bool get(); void set(bool value); };
public bool TablesOnlyFromHTML { get; set; }
Public Property TablesOnlyFromHTML As Boolean

Valor da propriedade

Variante

Exemplos

Este exemplo cria uma tabela de multiplicação formatada nas células A1:K11 em Sheet1.

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

Este exemplo cria uma tabela de multiplicação formatada nas células A1:K11 em Sheet1.

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

Este exemplo cria uma tabela de multiplicação formatada nas células A1:K11 em Sheet1.

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

Comentários

Use tabelas de dados para efetuar uma análise hipotética alterando certos valores constantes em sua planilha para ver como os valores das outras células são afetados.

Aplica-se a