Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
True si les délimiteurs consécutifs sont traités comme un délimiteur unique lorsque vous importez des données à partir de balises HTML <PRE> sur une page web dans une table de requête, et si les données doivent être analysées en colonnes. Elle prend la valeur False si les séparateurs consécutifs sont interprétés comme des séparateurs distincts. La valeur par défaut est True. Type de données Boolean en lecture-écriture.
Syntaxe
expression. WebConsecutiveDelimitersAsOne
expression Variable qui représente un objet QueryTable .
Remarques
Utilisez cette propriété uniquement lorsque la propriété QueryType de la table de requête a la valeur xlWebQuery, que la requête renvoie un document HTML et que la propriété WebPreFormattedTextToColumns est définie sur True.
Si vous importez des données à l’aide de l’interface utilisateur, les données d’une requête web ou textuelle sont importées en tant qu’objet QueryTable , tandis que toutes les autres données externes sont importées en tant qu’objets ListObject .
Si vous importez des données à l’aide du modèle objet, les données d’une requête web ou textuelle doivent être importées en tant que table de requête, tandis que toutes les autres données externes peuvent être importées en tant que listObject ou table de requête.
La propriété WebConsecutiveDelimitersAsOne s'applique uniquement aux objets QueryTable.
Exemple
Cet exemple montre comment définir le caractère d'espacement comme caractère séparateur de la table de requête située dans la première feuille de calcul du premier classeur, puis comment actualiser la table de requête. Les espaces consécutifs sont interprétés comme un seul espace.
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "URL;https://datasvr/98q1/19980331.htm", _
Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
.WebConsecutiveDelimitersAsOne = True
.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.