Eine Autoit Schleife geschrieben um automatisiert von comdirect.de die CSV-Dateien runter zu laden.
Man muss nur die “ID_NOTATION=” anpassen. Derzeit ist dafür “15826957” eingegeben.
$comdirect = 0
;~ $comdirect = 1
If $comdirect = 1 Then
For $i = 0 To 60
Run("C:\Programme\Mozilla Firefox\firefox.exe " _
& "https://www.comdirect.de/inf/kursdaten/historic.csv?DATETIME_TZ_END_RANGE_FORMATED=" _
& _NowDate() _
& "&DATETIME_TZ_START_RANGE_FORMATED=" _
& "2.1.1970" _
& "&ID_NOTATION=" _
& "**15826957**" _
& "&INTERVALL=" _
& "16" _
& "&OFFSET=" _
& $i _
& "&WITH_EARNINGS=" _
& "false")
Sleep(10)
Next
Exit
Hier mein Script für onvista.de …
Auch hier muss man nur die Zahl für das jeweilige Wertpapier nach “notationId=” austauschen.
$onvista = 0
;~ $onvista = 1
If $onvista = 1 Then
Local $dateStart[11]
$dateStart[0] = "15.12.1969"
$dateStart[1] = "15.11.1974"
$dateStart[2] = "15.10.1979"
$dateStart[3] = "15.09.1984"
$dateStart[4] = "15.08.1989"
$dateStart[5] = "15.07.1994"
$dateStart[6] = "15.06.1999"
$dateStart[7] = "15.05.2004"
$dateStart[8] = "15.04.2009"
$dateStart[9] = "15.03.2014"
$dateStart[10] = "15.02.2019"
For $i = 0 To 10
Run("C:\Programme\Mozilla Firefox\firefox.exe " _
& "https://www.onvista.de/onvista/boxes/historicalquote/export.csv?" _
& "notationId=" _
& "**15826957**" _
& "&dateStart=" _
& $dateStart[$i] _
& "&interval=Y5")
Sleep(1000)
Next
Exit
EndIf
hier mein Visual-Basic-Script (Microsoft Excel - xlsm Format) um mehrere CSV-Dateien in eine Datei zusammenzufügen …
Sub CSV_zusammenfuegen()
Dim dateien, i, lastrow
lastrow = 1
dateien = Application.GetOpenFilename _
("csv-Dateien (*.csv), *.csv", MultiSelect:=True)
If IsArray(dateien) Then
For i = 1 To UBound(dateien)
Workbooks.Open dateien(i), Local:=True
With ThisWorkbook.Sheets(1)
ActiveSheet.UsedRange.Copy Destination:=.Range("A" & lastrow)
lastrow = .UsedRange.Rows.Count + 1
End With
ActiveWorkbook.Close False
Next i
End If
Dim dt As String
dt = Format(CStr(Now), "yyyy.mm.dd___hh_mm_ss")
ThisWorkbook.SaveAs Filename:="A:\___CSV - zusammenfuegen___" & dt & ".csv", FileFormat:=xlCSV, Local:=True, ReadOnlyRecommended:=False, CreateBackup:=False
ThisWorkbook.Saved = True
On Error Resume Next
Application.Quit
ActiveWorkbook.Close SaveChanges:=True
End Sub
hier dasselbe Excel-Script und zusätzlich für die Webseite de.investing.com optimiert.
Sub de_investing_com_zusammenfuegen()
Dim dateien, i, lastrow
lastrow = 1
dateien = Application.GetOpenFilename _
("csv-Dateien (*.csv), *.csv", MultiSelect:=True)
If IsArray(dateien) Then
For i = 1 To UBound(dateien)
Workbooks.Open dateien(i), Local:=True
With ThisWorkbook.Sheets(1)
ActiveSheet.UsedRange.Copy Destination:=.Range("A" & lastrow)
lastrow = .UsedRange.Rows.Count + 1
End With
ActiveWorkbook.Close False
Next i
End If
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1)), TrailingMinusNumbers:=True
Dim dt As String
dt = Format(CStr(Now), "yyyy.mm.dd___hh_mm_ss")
ThisWorkbook.SaveAs Filename:="A:\___CSV - zusammenfuegen___" & dt & ".csv", FileFormat:=xlCSV, Local:=True, ReadOnlyRecommended:=False, CreateBackup:=False
ThisWorkbook.Saved = True
On Error Resume Next
Application.Quit
ActiveWorkbook.Close SaveChanges:=True
End Sub
hier alle ariva.de Börsen ID-Nummern die ich bisher kenne …
Stuttgart , Hamburg und Duesseldorf wurden von markiert denn die haben bis 22:00 offen 
Local $Krypto = 0
;~ Local $Krypto = 1
If $Krypto = 0 Then
Local $boerse_id_[42]
$boerse_id_[0] = 0 ;Duesseldorf *** 3. Duesseldorf = 0
$boerse_id_[1] = 1 ;Frankfurt
$boerse_id_[2] = 2 ;Hamburg *** 2. Hamburg = 2
$boerse_id_[3] = 3 ;Hannover
$boerse_id_[4] = 4 ;Muenchen
$boerse_id_[5] = 5 ;Stuttgart *** 1. Stuttgart = 5
$boerse_id_[6] = 6 ;Xetra
$boerse_id_[7] = 8 ;Fondsgesellschaft
$boerse_id_[8] = 12 ;Xetra
$boerse_id_[9] = 16 ;L&S_RT
$boerse_id_[10] = 17 ;Berlin
$boerse_id_[11] = 20 ;Indizes_Schweiz
$boerse_id_[12] = 21 ;NYSE
$boerse_id_[13] = 23 ;Indizes_Nikkei
$boerse_id_[14] = 24 ;Indizes_Hang_Seng
$boerse_id_[15] = 30 ;RBS_Indikation
$boerse_id_[16] = 32 ;DB_Indikation_Devisen
$boerse_id_[17] = 33 ;Rohstoffe_Indikation
$boerse_id_[18] = 37 ;DB_Indikation_Indizes
$boerse_id_[19] = 39 ;Frankfurt_Zertifikate
$boerse_id_[20] = 40 ;Nasdaq
$boerse_id_[21] = 41 ;AMEX
$boerse_id_[22] = 47 ;Stuttgart(EUWAX) *** 1. Stuttgart = 47
$boerse_id_[23] = 48 ;EZB
$boerse_id_[24] = 58 ;Wien
$boerse_id_[25] = 60 ;Wien_Opt.&Fut.
$boerse_id_[26] = 71 ;Indizes_US
$boerse_id_[27] = 72 ;Indizes_Nasdaq
$boerse_id_[28] = 77 ;Indizes_Boerse_Wien
$boerse_id_[29] = 83 ;Nasdaq_OTC_Other
$boerse_id_[30] = 102 ;HypoVereinsbank
$boerse_id_[31] = 123 ;SIX_Swiss_Exchange
$boerse_id_[32] = 126 ;DB_Indikation_Rohstoffe
$boerse_id_[33] = 130 ;FXCM
$boerse_id_[34] = 131 ;Tradegate
$boerse_id_[35] = 136 ;pro_aurum
$boerse_id_[36] = 162 ;Quotrix
$boerse_id_[37] = 172 ;ARIVA_Indikation_Rohstoffe
$boerse_id_[38] = 173 ;ARIVA_Indikation_Indizes
$boerse_id_[39] = 174 ;ARIVA_Indikation_Devisen
$boerse_id_[40] = 188 ;CMC_Markets
$boerse_id_[41] = 207 ;Gettex
Else
Local $boerse_id_[9]
$boerse_id_[0] = 130 ;FXCM
$boerse_id_[1] = 163 ;Bitcoin.de
$boerse_id_[2] = 167 ;Bitstamp
$boerse_id_[3] = 190 ;Binance
$boerse_id_[4] = 192 ;Bitfinex
$boerse_id_[5] = 194 ;Bittrex
$boerse_id_[6] = 199 ;HitBTC
$boerse_id_[7] = 201 ;Kraken
$boerse_id_[8] = 204 ;P2PB2B
EndIf
