Hallo liebes VBA Forum!
Ich muss für meine Fachhochschule ein Projektarbeit machen bei dem meine Kollegen und ich es schaffen müssen mittels JSON Link die Daten von den Bitcoins einlesen müssen. (Wir dürfen leider nicht CSV verwenden)
Wir haben es so weit geschafft, dass das Einlesen und die Aufsplittung funktioniert - allerdings nur im direktbereich.
Es gelingt uns nicht, dass wir die Daten in das Excelsheet bekommen, und wenn dann kommt immer nur ein Datensatz und zwar vom letzten aktuellen Tag.
Der Code für das Einlesen und Splitten im Dirketbereich :
Option Explicit
Sub einlesen()
Workbooks.Open Filename:="http://www.quandl.com/api/v3/datasets/BITFINEX/BTCUSD.json", Local:=False
Dim ZelleA As String
Dim ZelleB As String
Dim ZelleC As String
Dim ZelleNeu As String
Dim posStart As Long
Dim posEnde As Long
Dim dataString As String
Dim splitData() As String
ZelleA = Range("A1")
ZelleB = Range("A2")
ZelleC = Range("A3")
ZelleNeu = ZelleA + ZelleB + ZelleC
posStart = InStr(1, ZelleNeu, """data"":[") + Len("""data"":[") + 1
posEnde = InStr(1, ZelleNeu, "],""collapse""") - 1
'Debug.Print posEnde
dataString = Mid(ZelleNeu, posStart, posEnde - posStart)
Debug.Print dataString
splitData = Split(dataString, "],[")
Dim foo() As String
foo = Split(splitData(1), ",")
Dim n As Long
For n = UBound(splitData) To 1 Step -1
foo = Split(splitData(n), ",")
'Debug.Print n
Next
'Range("A6:I6").Value = foo()
End Sub
Könnte mir irgendwer im Forum helfen oder Tipps geben wie ich es schaffe, dass ich die Daten ins Excelsheet bekomme??
Mit freundlichen Grüßen Philipp
|