View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
Alarmbloke
 
Posts: n/a
Default Automatic Web Queries

Hi,

Have come across a new problem,

Have set up a macro thanks to Pinmaster and Ron Coderre which does automatic
web updates based on cell data see below

Dim URL2Use As String
URL2Use = "URL;" & Sheet1.Range("D1").Value

With ActiveSheet.QueryTables.Add(Connection:=URL2Use, _
Destination:=Range("A10"))
.Name = "AutoLink"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "2"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

This works in a new workbook, but doesn't work when I add a identical page
and macro to an existing workbook,

Have had Runtime 1004 errors, invalid web address errors and background
refresh errors, yet it works fine in a dedicated workbook??

Any thoughts