Propiedad QueryTable.WebConsecutiveDelimitersAsOne (Excel)
True si los delimitadores consecutivos se tratan como un único delimitador al importar datos de etiquetas HTML <PRE>
en una página web en una tabla de consulta y si los datos se van a analizar en columnas. False si desea considerar los delimitadores consecutivos como varios delimitadores. El valor predeterminado es True. Boolean de lectura y escritura.
Sintaxis
expresión. WebConsecutiveDelimitersAsOne
Expresión Variable que representa un objeto QueryTable .
Comentarios
Use esta propiedad solo cuando la propiedad QueryType de la tabla de consulta esté establecida en xlWebQuery, la consulta devuelve un documento HTML y la propiedad WebPreFormattedTextToColumns se establece en True.
Si importa datos mediante la interfaz de usuario, los datos de una consulta web o una consulta de texto se importan como un objeto QueryTable , mientras que todos los demás datos externos se importan como un objeto ListObject .
Si importa datos mediante el modelo de objetos, los datos de una consulta web o una consulta de texto se deben importar como queryTable, mientras que todos los demás datos externos se pueden importar como un Objeto ListObject o una QueryTable.
La propiedad WebConsecutiveDelimitersAsOne se aplica únicamente a objetos QueryTable.
Ejemplo:
Este ejemplo establece el carácter de espacio como delimitador de la tabla de consulta para la primera hoja de cálculo del primer libro y, a continuación, actualiza la tabla de consulta. Varios espacios consecutivos se consideran un espacio único.
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
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.