Método ListObjects.Add (Excel)
Cria um novo objeto de lista.
Sintaxe
expressão. Adicionar (SourceType, Source, LinkSource, XlListObjectHasHeaders, Destination, TableStyleName)
Expressão Uma variável que representa um objeto ListObjects .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| SourceType | Opcional | XlListObjectSourceType | Indica o tipo de fonte da consulta. |
| Source | Opcional | Variantes | Quando SourceType = xlSrcRange: um objeto Range que representa a fonte de dados. Se omitido, a Origem será padrão para o intervalo retornado pelo código de detecção de intervalo de listas. Quando SourceType = xlSrcExternal: uma matriz de valores string especificando uma conexão com a origem, contendo os seguintes elementos:
Quando SourceType = xlSrcModel: aceita um objeto WorkbookConnection (consulte TableObject , por exemplo). |
| LinkSource | Opcional | Boolean | Indica se uma fonte de dados externos deve ser vinculada ao objeto ListObject. Se SourceType for xlSrcExternal, o padrão será True. Inválido se SourceType for xlSrcRange e retornará um erro se não for omitido. |
| XlListObjectHasHeaders | Opcional | Variantes | Uma constante XlYesNoGuess que indica se os dados importados têm rótulos de coluna. Se a Origem não contiver cabeçalhos, o Excel gerará cabeçalhos automaticamente. O valor padrão é xlGuess. |
| Destino | Opcional | Variantes | Um objeto Range especificando uma referência de célula única como o destino para o canto superior esquerdo do novo objeto list. Se o objeto Range se refere a mais de uma célula, um erro é gerado. O argumento Destino deve ser especificado quando SourceType é definido como xlSrcExternal. O argumento Destino será ignorado se SourceType estiver definido como xlSrcRange. O intervalo de destino deve estar na planilha que contém a coleção ListObjects especificada por expressão. Novas colunas serão inseridas no Destino para ajustar a nova lista. Portanto, os dados existentes não serão substituídos. |
| TableStyleName | Opcional | String | O nome de um TableStyle; por exemplo, "TableStyleLight1". |
Valor de retorno
Um objeto ListObject que representa o novo objeto list.
Comentários
Quando a lista tiver cabeçalhos, a primeira linha de células será convertida em Text, se ainda não estiver definida como texto. A conversão será baseada no texto visível na célula. Isso significa que, se existir um valor de data com um formato Date que é alterado de acordo com o local, a conversão em uma lista poderá produzir resultados diferentes, dependendo do local do sistema atual. Além disso, se duas células na linha de cabeçalho contiverem o mesmo texto visível, será acrescentado um Integer incremental para tornar cada cabeçalho de coluna exclusivo.
Exemplo
O exemplo a seguir adiciona um novo objeto ListObject com base em dados de um site do Microsoft SharePoint Foundation à coleção ListObjects padrão e coloca a lista na célula A1 na primeira planilha da pasta de trabalho.
Observação
O exemplo de código a seguir pressupõe que você substituirá um nome de servidor válido e o guia de lista nas variáveis strServerName e strListGUID. Além disso, o nome do servidor deve ser seguido ou "/_vti_bin" (strListName) o exemplo não funcionará.
Set objListObject = ActiveWorkbook.Worksheets(1).ListObjects.Add(SourceType:= xlSrcExternal, _
Source:= Array(strServerName, strListName, strListGUID), LinkSource:=True, _
XlListObjectHasHeaders:=xlGuess, Destination:=Range("A1")),
TableStyleName:=xlGuess, Destination:=Range("A10"))
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.