Propriedade QueryTable.TextFileFixedColumnWidths (Excel)

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

Sintaxe

expressão. TextFileFixedColumnWidths

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

Comentários

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) e somente se o valor da propriedade TextFileParseType for xlFixedWidth.

Você precisa especificar uma largura de coluna não-negativa. Se você especificar colunas que ultrapassem a largura do arquivo de texto, esses valores serão ignorados. Se a largura do arquivo de texto for maior do que a largura total das colunas especificadas, o saldo do arquivo de texto será importado para uma coluna adicional.

Se você importar dados usando a interface do usuário, os dados de uma consulta da Web ou de 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 da 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 uma QueryTable.

A propriedade TextFileFixedColumnWidths 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 restante do arquivo de texto é importado para a terceira coluna e tem o formato Geral aplicado.

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.