Importing Soccer results from Internet Site

[Guest]

Hi,

I have recorded a basic Macro to import results from an internet site. (as
follows)

With Sheets("D.McDonald").Select
Cells.Select
Selection.ClearContents
With Activesheet.QueryTables.Add(Connection:= _
"URL;http://www.soccerbase.com/refs2.sd?refid=267&seasonid=137",
Destination _
:=Range("A1"))
.Name = "refs2.sd?refid=267&seasonid=137_1"
.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 = "5"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False

End With
End With

i have a problem with soccer results such as 2-1 showing as 02-Jan. Can I
add some code to rectify this problem?

Many thanks,

Jobber

 

[Guest]

Try changing

.WebDisableDateRecognition = False


to

.WebDisableDateRecognition = True

 

[Bob Phillips]

You could just add this at the end.


With ActiveSheet.Columns(3)
.NumberFormat = "d - m"
.HorizontalAlignment = xlLeft
End With

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Guest]

Thanks.

It appears so obvious now.

 

[Bob Phillips]

Indeed <g>

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)