Ik ben bezig met het realiseren van een webquery, in C:\Program Files (x86)\Microsoft Office\OFFICE11\QUERIES staat een mooi voorbeeld (VBA):
"Sub URL_Static_Query()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://quote.money.cnn.com/quote/quote?symbols=msft", _
Destination:=Range("a1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
End Sub"
Deze query is dynamisch te maken door
"URL;http://quote.money.cnn.com/quote/quote?symbols=msft", _
te vervangen door
"URL;http://quote.money.cnn.com/quote/quote?symbols=[""Parameter1"",""description parmeter, vul in msft""]", _
waarbij parameter1 wordt opgevraagd op een formuliertje onder vermelding van de tekst "description parmeter... etc"
Nu mijn vraag, ik wil een stukje code hebben wat er voor zorgt dat 1 of meerdere waardes voor parameter 1, die zijn opgeslagen in een bereik in het bijbehorende spreadsheet, worden doorgegeven aan "parameter1", eigenlijk wil ik dus geen popup form die een waarde (input) vraagt. Ik ben op zoek naar een manier om de code te laten vullen uit een lijstje in de spreadsheet.
in a1 staat bijvoorbeeld dow
in a2 nasdaq
in a3 weer een andere code
De vba code die ik zoek loopt het lijstje af en voert de query uit voor elke gevonden waarde en plaatst de uitkomsten bij elke gevonden waarde bijvoorbeel 10 rijen onder de uitkomsten gevonden met de vorige waarde uit het lijstje.
Wie helpt mij verder.. ?
Mvg, D
"Sub URL_Static_Query()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://quote.money.cnn.com/quote/quote?symbols=msft", _
Destination:=Range("a1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
End Sub"
Deze query is dynamisch te maken door
"URL;http://quote.money.cnn.com/quote/quote?symbols=msft", _
te vervangen door
"URL;http://quote.money.cnn.com/quote/quote?symbols=[""Parameter1"",""description parmeter, vul in msft""]", _
waarbij parameter1 wordt opgevraagd op een formuliertje onder vermelding van de tekst "description parmeter... etc"
Nu mijn vraag, ik wil een stukje code hebben wat er voor zorgt dat 1 of meerdere waardes voor parameter 1, die zijn opgeslagen in een bereik in het bijbehorende spreadsheet, worden doorgegeven aan "parameter1", eigenlijk wil ik dus geen popup form die een waarde (input) vraagt. Ik ben op zoek naar een manier om de code te laten vullen uit een lijstje in de spreadsheet.
in a1 staat bijvoorbeeld dow
in a2 nasdaq
in a3 weer een andere code
De vba code die ik zoek loopt het lijstje af en voert de query uit voor elke gevonden waarde en plaatst de uitkomsten bij elke gevonden waarde bijvoorbeel 10 rijen onder de uitkomsten gevonden met de vorige waarde uit het lijstje.
Wie helpt mij verder.. ?
Mvg, D
Laatst bewerkt:
