Propriedade QueryTable.TextFileColumnDataTypes (Excel)

Retorna ou define uma matriz ordenada de constantes que especificam os tipos de dados aplicados às colunas correspondentes no arquivo de texto que você está importando para uma tabela de consulta. A constante padrão para cada coluna é xlGeneral. Variant de leitura/gravação.

Sintaxe

expressão. TextFileColumnDataTypes

Expressão Uma variável que representa um objeto QueryTable .

Comentários

Use as constantes XlColumnDataType para especificar os tipos de dados de coluna usados ou as ações executadas durante a importação de dados.

Use essa propriedade somente quando a tabela de consulta for baseada em dados de um arquivo de texto (com a propriedade QueryType definida como xlTextImport).

Se você especificar mais elementos na matriz do que colunas, esses valores serão ignorados.

Use xlEMDFormat somente se o suporte ao idioma chinês (Taiwan) estiver instalado e selecionado. A constante xlEMDFormat especifica que as datas da era chinesa (Taiwan) são usadas.

Se você importar dados usando a interface do usuário, os dados de uma consulta Web ou uma consulta de texto serão importados como um objeto QueryTable , enquanto todos os outros dados externos serão importados como um objeto ListObject .

Se você importar dados usando o modelo de objeto, os dados de uma consulta Web ou de uma consulta de texto devem ser importados como uma QueryTable, enquanto todos os outros dados externos podem ser importados como um ListObject ou um QueryTable.

A propriedade TextFileColumnDataTypes só se aplica aos objetos QueryTable.

Exemplo

Este exemplo importa um arquivo de texto de largura fixa para uma nova tabela de consulta na primeira planilha da primeira pasta de trabalho. A primeira coluna no arquivo de texto tem cinco caracteres de largura e é importada como texto. A segunda coluna tem quatro caracteres de largura e é ignorada. O resto do arquivo de texto é importado para a terceira coluna e tem o formato Geral aplicado a ela.

Set shFirstQtr = Workbooks(1).Worksheets(1) 
Set qtQtrResults = shFirstQtr.QueryTables _ 
 .Add(Connection := "TEXT;C:\My Documents\19980331.txt", _ 
 Destination := shFirstQtr.Cells(1, 1)) 
With qtQtrResults 
 .TextFileParseType = xlFixedWidth 
 .TextFileFixedColumnWidths = Array(5, 4) 
 .TextFileColumnDataTypes = _ 
 Array(xlTextFormat, xlSkipColumn, xlGeneralFormat) 
 .Refresh 
End With

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.