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: 0 - URL para o site do SharePoint 1 - ListName 2 - ViewGUID Quando SourceType = xlSrcQuery: aceita cadeia de conexão ODBC ou OLEDB (isso também funciona com xlSrcExternal). 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.