Within Excel I have multiple Data Connections; all configured the same to retrieve similar information from similar webpages.
They all work on the day and download the information in the correctly specified format [Formatting=None] however, the next day, I go back to run the Data Connections and the specified formatting have now changed to 'Formatting = Full HTML formatting' and the downloaded information is now incorrectly formatted to HTML within Excel.
My question is, how within the 'Web Query Options' do I keep the 'Formatting=None' option from changing the next day to 'Formatting=Full HTML formatting'
I have recorded a VBA macro to show you how I configure the data connection below;
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://*URL-REMOVED*" _
, Destination:=Range("$A$65"))
.Name = "BVG11Fri"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "2"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
They all work on the day and download the information in the correctly specified format [Formatting=None] however, the next day, I go back to run the Data Connections and the specified formatting have now changed to 'Formatting = Full HTML formatting' and the downloaded information is now incorrectly formatted to HTML within Excel.
My question is, how within the 'Web Query Options' do I keep the 'Formatting=None' option from changing the next day to 'Formatting=Full HTML formatting'
I have recorded a VBA macro to show you how I configure the data connection below;
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://*URL-REMOVED*" _
, Destination:=Range("$A$65"))
.Name = "BVG11Fri"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "2"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Last edited: