Toon posts:

[VBA]Excel, probleem met POST-style web query

Pagina: 1
Acties:

Verwijderd

Topicstarter
OS: Windows NT 4, SP6A
Excel: 10.2614.2625 (Office XP)
IE: 6.0.2800.1106

Hallo allemaal,

Ik kamp met een kritiek probleem om koersen te kunnen
downloaden van de CBOE website (www.cboe.com) . Ze hebben hun site
sinds maandag gewijzigd en daarmee ook de URL's om koersen op te halen.

===========================================================
* De site waar het om gaat staat op:
http://www.cboe.com/delayedQuote/QuoteTableDownload.aspx

Op die site vul je een symbool in (bv MSFT) en dan druk je op Enter. Uiteraard wil ik dit proces automatiseren mbv een web query of eventueel andere methode die ik vanuit VBA kan oproepen (suggesties welkom!)

===========================================================

* Dit was mijn oude web query (Filter.iqy) :

WEB
1
http://quoteservice.cboe.com/QuoteTable.dat
===========================================================

* En dit is mijn nieuwe (Filter.iqy) :

WEB
1
http://www.cboe.com/delayedQuote/QuoteData.dat
===========================================================

* Dit is de VBA code die deze web query oproept.

code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ini_quotes()
     'Initialize Quotes
 
     Dim DR As Object 'Data Range
     Dim PTV As String 'PostText Value
 
1   PTV = "Ticker=" & Range("QS") 'BV 'TICKER=MSFT
     With ActiveSheet.QueryTables.Add(Connection:= _
          "FINDER;C:\Temp\SSSKAT22\Filter.iqy",
Destination:=Range("A1"))
          .Name = "DR"
          .PostText = PTV
          .Refresh BackgroundQuery:=False '<<-- BIJ
DEZE REGEL GAAT HET
MIS! HET QUOTEDATA.DAT BESTAND WORDT NIET GEVONDEN
     '     OP DE SITE.
     End With
End Sub

===========================================================

De vraag is dus waarom de regel '.Refresh
BackgroundQuery:=False' niet werkt noch op de URL in
de oude- als de nieuwe web query.

Natuurlijk heb ik ook CBOE zelf om opheldering
gevraagd. Hun antwoord:

"I apologize but we cannot assist you with that
because we do not allow the query you are attempting
to perform because of the load it can place on our
servers, and because of other additional security
concerns. I apologize for the inconvenience."

Jammer dus, maar ik had al zo'n vermoeden. Denk ook
dat ze o.a. DAAROM deze wijziging hebben aangebracht.

Als iemand mij op weg kan helpen met code of andere ideeen, alvast heel erg bedankt!

- Bas