Propriedade QueryTable.TextFileThousandsSeparator (Excel)
Retorna ou define o caractere separador milhares que o Microsoft Excel usa quando você importa um arquivo 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
Use essa propriedade somente quando sua tabela de consulta for baseada em dados de um arquivo de texto (com a propriedade QueryType definida como xlTextImport) quando o arquivo contiver separadores decimais e milhares diferentes daqueles usados no computador devido a uma configuração de idioma diferente sendo usada.
A tabela a seguir mostra os resultados ao importar texto para o Microsoft Excel usando 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 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 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.