Hey hey,
Het volgende:
Ik probeer van de Oanda website koersen te halen en deze te plaatsen in de C2 (en D2,E2,F2) kolom (per koers worden er automatisch 3 regels gebruikt en 4 kolommen). Een nieuwe koers wordt hieronder gezet.
De datum voor deze koers wordt uit de B kolom gehaald (beginnend met cel B2 en telkens 3 regels lager, B5,B8 etc, zodat de datum naast de geimporteerde koers komt te staan).
1) Nu zou ik graag voor mekaar krijgen dat B2 automatisch de datum van de huidige dag wordt en dat de dag ervoor 3 cellen lager geplaatst wordt in B5 en de dag daarvoor in B8 etc.(deze actie dus elke dag als excel wordt opgestart). De startdatum van dit alles zal in de code zelf aangepast kunnen worden (notatie datum: dd/mm/jj).
Met de onderstaande code lukt het me wel om eenmalig de koers van datum (uit B2) te importeren in C2, maar ik zou dus graag willen weten welke code ik kan gebruiken om 1) voor mekaar te krijgen.
thx alvast voor eventuele hulp....
Het volgende:
Ik probeer van de Oanda website koersen te halen en deze te plaatsen in de C2 (en D2,E2,F2) kolom (per koers worden er automatisch 3 regels gebruikt en 4 kolommen). Een nieuwe koers wordt hieronder gezet.
De datum voor deze koers wordt uit de B kolom gehaald (beginnend met cel B2 en telkens 3 regels lager, B5,B8 etc, zodat de datum naast de geimporteerde koers komt te staan).
1) Nu zou ik graag voor mekaar krijgen dat B2 automatisch de datum van de huidige dag wordt en dat de dag ervoor 3 cellen lager geplaatst wordt in B5 en de dag daarvoor in B8 etc.(deze actie dus elke dag als excel wordt opgestart). De startdatum van dit alles zal in de code zelf aangepast kunnen worden (notatie datum: dd/mm/jj).
Met de onderstaande code lukt het me wel om eenmalig de koers van datum (uit B2) te importeren in C2, maar ik zou dus graag willen weten welke code ik kan gebruiken om 1) voor mekaar te krijgen.
thx alvast voor eventuele hulp....
Code:
Sub Koersen()
Dim celwaarde As String
celwaarde = Range("B2").Value
'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.oanda.com/convert/fxdaily?date=" & celwaarde & "&date_fmt=normal&exch=EUR&lang=en&sel_list=TWD_USD&value=1&format=HTML&redirected=1" _
, Destination:=Range("C65536").End(xlUp).Offset(1, 0))
.Name = "invoer"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebTables = "6"
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
'.WebDisableRedirections = False
.Refresh BackgroundQuery:=True
End With
End Sub
Laatst bewerkt door een moderator:
