Hi, I'm hoping someone here can help.

I have some vba code that I wrote to retreive data from a web page. I
wrote it using QueryTables when I had Excel 2000 installed and all is
happy.
However I have now upgraded to Excel 2002 and when the code doesn't
work.
To start debugging I tried to get the QueryTable manually and it
doesn't work. Instead I get the following error:

File cannot be opened because:
Reference to undefined entity 'nbsp'.
Line 83, Position 52.
<td align="top" rowspan="3" width="40"&nbsp;</td
[OK]

If I click on the OK button the webpage is then loaded with the html
code for the webpage, rather than the table I tried to import.

If I uninstall Excel 2002 and reinstall Excel 2000 then the query runs
fine, so I know nothing has changed on the webpage. My question is has
something changed in the way that Excel now access the Query?

Any suggestions anyone?

Thanks,

Phil

If anyone can take a look I would, appreciate it, this is the query tha
doesn't work for me under Excel XP, but works fine under 2000:


Code
-------------------
Sub check_date()
' Checks the 'online' date against the last time the query was run to see if worth while
Dim new_date As String

'Create worksheet for the query
Worksheets.Add.Move after:=Worksheets(2)
With Worksheets(3)
With .QueryTables.Add(Connection:= _
"URL;http://ccgi.kjcgames.com/1024/dataStore/markets.php" _
, Destination:=.Range("A1"))
.Name = "markets.php"
.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 = "4"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With
new_date = Mid(Cells(6, 2), InStr(Cells(6, 2), "updated") + 8) 'Get date and time of update
'Delete Scratch sheet
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
rubish = MsgBox(new_date)
End Su
-------------------


Thanks all,

Phi

--
Phil_
-----------------------------------------------------------------------
Phil_V's Profile: http://www.excelforum.com/member.php...fo&userid=3185
View this thread: http://www.excelforum.com/showthread.php?threadid=51571

No ideas??

Anyone?? :(

Phi

--
Phil_
-----------------------------------------------------------------------
Phil_V's Profile: http://www.excelforum.com/member.php...fo&userid=3185
View this thread: http://www.excelforum.com/showthread.php?threadid=51571