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

Try changing

.WebDisableDateRecognition = False


to

.WebDisableDateRecognition = True

--
Regards,
Tom Ogilvy


"Jobber" wrote:

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

Thanks.

It appears so obvious now.

Indeed <g

--
---
HTH

Bob

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



"Jobber" .(donotspam) wrote in message
...

Thanks.

It appears so obvious now.

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)



"Jobber" .(donotspam) wrote in message
...
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