WebPreFormattedTextToColumns Property Example

This example adds a new Web query table to the first worksheet in the first workbook. Note that the example doesn’t parse into columns any data located between the HTML <PRE> tags.

Set shFirstQtr = Workbooks(1).Worksheets(1) 
Set qtQtrResults = shFirstQtr.QueryTables _
    .Add(Connection := "URL;http://datasvr/98q1/19980331.htm", _
        Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
    .WebFormatting = xlNone
    .WebPreFormattedTextToColumns = False
    .Refresh
End With