Hello.i want to import web data from a site with soccer results...i've recorded a macro for it...the macro worked great but there is a little problem...here is the macro...
Code
Sub Macro1()
'
' Macro1 Macro
'
x=6
For x = 6 To 10
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;[url]http://www3.nowgoal.com/1x2/companyhistory.aspx?id=281&company=Bet[/url] 365&matchdate=2010-11" & x _
, Destination:=Range("$A$3"))
.Name = "companyhistory.aspx?id=281&company=Bet 365&matchdate=2010-11-06"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
next x
End Sub
Display More
i need the results from 6-11-2010 to 10-11-2010...the first day (6-11) is imported in cell a3...the second day(7-11) is imported in cell n3...i need to change the macro so the second day pasted in collumn a where the results of day one are finished.....
EDIT: please use code tags to format the VBA code