Partager via


Propriété QueryTable.TextFileFixedColumnWidths (Excel)

Renvoie ou définit un tableau d’entiers qui correspondent aux largeurs des colonnes (en caractères) dans le fichier texte que vous importez dans une table de requête. Les largeurs valides sont comprises entre 1 et 32 767 caractères. Variant en lecture/écriture.

Syntaxe

expression. TextFileFixedColumnWidths

expression Variable qui représente un objet QueryTable .

Remarques

Utilisez cette propriété uniquement lorsque votre table de requête est basée sur des données d’un fichier texte (avec la propriété QueryType définie sur xlTextImport) et uniquement si la valeur de la propriété TextFileParseType est xlFixedWidth.

Vous devez spécifier une valeur de largeur de colonne valide, qui n'est pas un nombre entier négatif. Si vous indiquez des valeurs qui dépassent la largeur du fichier texte, ces valeurs sont ignorées. Si la largeur du fichier texte est supérieure à la largeur totale des colonnes que vous spécifiez, le solde du fichier texte est importé dans une colonne supplémentaire.

Si vous importez des données à l’aide de l’interface utilisateur, les données d’une requête web ou d’une requête de texte sont importées en tant qu’objet QueryTable , tandis que toutes les autres données externes sont importées en tant qu’objet ListObject .

Si vous importez des données à l’aide du modèle objet, les données d’une requête web ou d’une requête de texte doivent être importées en tant que QueryTable, tandis que toutes les autres données externes peuvent être importées en tant que ListObject ou QueryTable.

La propriété TextFileFixedColumnWidths s'applique uniquement aux objets QueryTable.

Exemple

Cet exemple permet d’importer un fichier texte de longueur fixe dans une nouvelle table de requête sur la première feuille de calcul dans le premier classeur. La première colonne du fichier texte a une largeur de cinq caractères et est importée sous la forme de texte. La seconde colonne du fichier texte a une largeur de quatre caractères et est ignorée. Le reste du fichier texte est importé dans la troisième colonne et le format General (Standard) lui est appliqué.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.