Propriedade QueryTable.TextFileColumnDataTypes (Excel)

Devolve ou define uma matriz ordenada de constantes que especifica os tipos de dados aplicados às colunas correspondentes no ficheiro de texto que está a importar 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

Utilize as constantes XlColumnDataType para especificar os tipos de dados de coluna utilizados ou as ações realizadas durante a importação de dados.

Utilize esta propriedade apenas quando a tabela de consulta for baseada em dados de um ficheiro de texto (com a propriedade QueryType definida como xlTextImport).

Se especificar mais elementos na matriz do que as colunas, esses valores são ignorados.

Utilize xlEMDFormat apenas se o suporte de idioma chinês (Taiwan) estiver instalado e selecionado. A constante xlEMDFormat especifica que as datas da era chinesa (Taiwan) são utilizadas.

Se importar dados através da interface de utilizador, os dados de uma consulta Web ou de uma consulta de texto são importados como um objeto QueryTable , enquanto todos os outros dados externos são importados como um objeto ListObject .

Se importar dados com o modelo de objeto, os dados de uma consulta Web ou de uma consulta de texto têm de ser importados como uma Tabela de Consulta, enquanto todos os outros dados externos podem ser importados como um ListObject ou uma 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.