Classe TextConnection (Excel VBA)

Contém configurações de contrato de serviço que permitem que o Microsoft Excel se conecte a uma fonte de dados de feed de dados.

Set

Para usar uma variável de classe TextConnection, ela primeiro precisa ser instanciada por exemplo

Dim tcn as TextConnection
Set tcn = ActiveWorkbook.Connections(1).TextConnection

As variáveis ​​de classe TextConnection podem ser definidas usando o procedimento WorkbookConnection.TextConnection.

Temas

Os procedimentos a seguir nesta aula foram agrupados e são descritos em uma página de tema separada

Row with its procedures TextFileHeaderRow e TextFileStartRow

Propriedades

Connection Retorna ou define uma cadeia de caracteres que contém nomes de arquivos de texto que permitem que o Microsoft Excel se conecte às fontes de dados de texto. de leitura/gravação.

ActiveWorkbook.Connections(1).TextConnection.Connection =

Parent Retorna um objeto que representa o objeto pai do objeto textconnection especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveWorkbook.Connections(1).TextConnection.Parent

TextFileColumnDataTypes 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. de leitura/gravação.

ActiveWorkbook.Connections(1).TextConnection.TextFileColumnDataTypes =

TextFileCommaDelimiter True se a vírgula for o delimitador quando você importar um arquivo de texto para uma tabela de consulta. False se desejar usar algum outro caractere como o delimitador. O valor padrão é False. Boolean de leitura/gravação.

ActiveWorkbook.Connections(1).TextConnection.TextFileCommaDelimiter = True

TextFileConsecutiveDelimiter True se os delimitadores consecutivos forem tratados como um único delimitador quando você importar um arquivo de texto para uma tabela de consulta. O valor padrão é False. Boolean de leitura/gravação.

ActiveWorkbook.Connections(1).TextConnection.TextFileConsecutiveDelimiter = True

TextFileDecimalSeparator Retorna ou define o caractere separador decimal que o Microsoft Excel usa quando você importa um arquivo de texto para uma tabela de consulta. O padrão é o caractere separador decimal do sistema. String de leitura/gravação.

ActiveWorkbook.Connections(1).TextConnection.TextFileDecimalSeparator =

TextFileFixedColumnWidths Retorna ou define uma matriz de inteiros que correspondem às larguras das colunas em caracteres no arquivo de texto que você está importando para uma tabela de consulta. As larguras válidas vão de 1 a 32767 caracteres. de leitura/gravação.

ActiveWorkbook.Connections(1).TextConnection.TextFileFixedColumnWidths =

TextFileOtherDelimiter Retorna ou define o caractere usado como o delimitador quando você importa um arquivo de texto para uma tabela de consulta. O valor padrão é NULL. String de leitura/gravação.

ActiveWorkbook.Connections(1).TextConnection.TextFileOtherDelimiter =

TextFileParseType Retorna ou define o formato de coluna para os dados no arquivo de texto que você está importando para uma tabela de consulta. Enumeração XlTextParsingType de leitura/gravação.

ActiveWorkbook.Connections(1).TextConnection.TextFileParseType = xlDelimited

TextFilePlatform Retorna ou define a origem do arquivo de texto que você está importando para a tabela de consulta. Essa propriedade determina que página de código será usada durante a importação de dados. Leitura/gravação XlPlatform.

ActiveWorkbook.Connections(1).TextConnection.TextFilePlatform = xlMacintosh

TextFilePromptOnRefresh True se você desejar especificar o nome do arquivo de texto importado sempre que a tabela de consulta for atualizada. A caixa de diálogo Importar arquivo de texto permite que você especifique o caminho e o nome do arquivo. O valor padrão é False. Boolean de leitura/gravação.

ActiveWorkbook.Connections(1).TextConnection.TextFilePromptOnRefresh = True

TextFileSemicolonDelimiter True se o ponto-e-vírgula é o delimitador quando você importa um arquivo de texto para uma tabela de consulta, e se o valor da propriedade TextFileParseType for xlDelimited. O valor padrão é False. Boolean de leitura/gravação.

ActiveWorkbook.Connections(1).TextConnection.TextFileSemicolonDelimiter = True

TextFileSpaceDelimiter True se o caractere de espaço for o delimitador quando você importar um arquivo de texto para uma tabela de consulta. O valor padrão é False. Boolean de leitura/gravação.

ActiveWorkbook.Connections(1).TextConnection.TextFileSpaceDelimiter = True

TextFileTabDelimiter True se o caractere de tabulação for o delimitador quando você importar um arquivo de texto para uma tabela de consulta. O valor padrão é False. Boolean de leitura/gravação.

ActiveWorkbook.Connections(1).TextConnection.TextFileTabDelimiter = True

TextFileTextQualifier Retorna ou define o qualificador de texto quando você importa um arquivo de texto para uma tabela de consulta. O qualificador de texto especifica que os dados incluídos estão em formato de texto. Leitura/gravação XlTextQualifier.

ActiveWorkbook.Connections(1).TextConnection.TextFileTextQualifier = xlTextQualifierDoubleQuote

TextFileThousandsSeparator Retorna ou define o caractere separador de milhar 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.

ActiveWorkbook.Connections(1).TextConnection.TextFileThousandsSeparator =

TextFileTrailingMinusNumbers True para o Microsoft Excel tratar os números importados como texto que - comece com um símbolo de menos como um símbolo negativo. False para o Excel tratar os números importados como texto que - começam com um símbolo como texto. Boolean de leitura/gravação.

ActiveWorkbook.Connections(1).TextConnection.TextFileTrailingMinusNumbers = True

TextFileVisualLayout Retorna ou define um valor XlTextVisualLayoutType que indica se o layout visual do texto que está sendo importado é da esquerda para a direita ou da direita para a esquerda. Leitura/gravação.

ActiveWorkbook.Connections(1).TextConnection.TextFileVisualLayout = xlTextVisualLTR