|
Wollte diese Code verwenden bekomme einen Fehlermeldung bei Kompilieren: Außerhalb eine Prozedur ungültig.
Set ws
Microsoft Scripting Runtime und Entpackte WinRAR von JsonConventer ist auch schon in der VBA wie beschrieben
Code für VBA,
Dim ws As Worksheet
Dim jsonText As String
Dim jsonObject As Object
Set ws = Worksheets("JSON to Excel Example")
jsonText = ws.Cells(1, 1)
Set jsonObject = JsonConverter.ParseJson(jsonText)
Sub JsonToExcelExample()
Dim jsonText As String
Dim jsonObject As Object, item As Object
Dim i As Long
Dim ws As Worksheet
Set ws = Worksheets("JSON to Excel Example")
jsonText = ws.Cells(1, 1)
Set jsonObject = JsonConverter.ParseJson(jsonText)
i = 3
ws.Cells(2, 1) = "Color"
ws.Cells(2, 2) = "Hex Code"
For Each item In jsonObject
ws.Cells(i, 1) = item("color")
ws.Cells(i, 2) = item("value")
i = i + 1
Next
End Sub
schon am Anfangs und bin garnicht am Ziel
Bitte um Hilfe
LG Tomi
|