Importing Soccer results from Internet Site
 

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

Importing Soccer results from Internet Site
 

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

Importing Soccer results from Internet Site
 

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

Importing Soccer results from Internet Site
 

Thanks.

It appears so obvious now.

Importing Soccer results from Internet Site
 

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.