Propriedade QueryTable.TextFileThousandsSeparator (Excel)

Devolve ou define o caráter separador de milhares que o Microsoft Excel utiliza quando importa um ficheiro de texto para uma tabela de consulta. O padrão é o caractere separador de milhar do sistema. String de leitura/gravação.

Sintaxe

expressão. TextFileThousandsSeparator

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

Comentários

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) quando o ficheiro contiver separadores decimais e de milhares diferentes dos utilizados no computador devido à utilização de uma definição de idioma diferente.

A tabela seguinte mostra os resultados ao importar texto para o Microsoft Excel através de vários separadores. Os resultados numéricos são exibidos na coluna mais à direita.

Separador do sistema decimal	Separador de milhar do sistema	Valor de TextFileDecimalSeparator	Valor de TextFileThousandsSeparator	Texto importado	Valor da célula (tipo de dados)
Period	Ponto	Ponto	Ponto	123,123.45	123.123,45 (numérico)
Ponto	Ponto	Ponto	Ponto	123,123.45	123.123,45 (texto)
Ponto	Ponto	Ponto	Ponto	123,123.45	123.123,45 (numérico)
Ponto	Ponto	Ponto	Ponto	123 123,45	123 123,45 (texto)
Ponto	Ponto	Ponto	Espaço	123 123,45	123.123,45 (numérico)

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 TextFileThousandsSeparator só se aplica aos objetos QueryTable.

Exemplo

Este exemplo salva o separador de milhar original e o define como um ponto para a primeira tabela de consulta em Sheet1. Isso é uma preparação para importar um arquivo de texto em francês (por exemplo) para uma versão de inglês (Estados Unidos) do Microsoft Excel.

strDecSep = Worksheets("Sheet1").QueryTables(1) _ 
 .TextFileThousandsSeparator 
Worksheets("Sheet1").QueryTables(1) _ 
 .TextFileThousandsSeparator = "."

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.