Hello guys,
I have a problem that I'm as complete beginner can't solve.
I'm quering information from a site at the form:
Band: U2
Album: Under The Red Sky
Song1: Hey Joe
Song2: Blue Boy
...
I've posted the code below:
I would like to make ...Range("A4") to go to the active cell to colums to the right instead of "A4".
Also I would like the Destination:=Range("C4") to be displayed in a row active cell to the left(e.g. C4="Band: U2", "D4=Album: Under The Red Sky")
instead as it gets displayed now:
C4="Band: U2"
C5="Album: Under The Red Sky"
Any help would be greatly apprisiated.
Kind Regards / F
I have a problem that I'm as complete beginner can't solve.
I'm quering information from a site at the form:
Band: U2
Album: Under The Red Sky
Song1: Hey Joe
Song2: Blue Boy
...
I've posted the code below:
Code:
Sub Macro2()
'
' Macro2Test Macro
'
'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & ActiveSheet.Range("A4").Value, Destination:=Range("C4"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.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
I would like to make ...Range("A4") to go to the active cell to colums to the right instead of "A4".
Also I would like the Destination:=Range("C4") to be displayed in a row active cell to the left(e.g. C4="Band: U2", "D4=Album: Under The Red Sky")
instead as it gets displayed now:
C4="Band: U2"
C5="Album: Under The Red Sky"
Any help would be greatly apprisiated.
Kind Regards / F