Frohe Weihnachten,
ich wünsche Euch alles Gute zu Weihnachten und ein erfolgreiches Jahr 2017.
Als Geschenk folgender kleiner VBA - Helper, der aus einer Excel Tabelle ein Javscript Objekt erstellt.
excel.png
Ergebnis:
VBA-Code:
Evtl. habt Ihr auch so einen Kleinkram der Zeit spart - wäre schön wenn Ihr Euch beteiligt...
ich wünsche Euch alles Gute zu Weihnachten und ein erfolgreiches Jahr 2017.
Als Geschenk folgender kleiner VBA - Helper, der aus einer Excel Tabelle ein Javscript Objekt erstellt.
excel.png
Ergebnis:
Code:
var Adressen = JSON.parse ('\ [\ {"Name":"Name 1","Vorname":"Vorname 1","Alter":50},\ {"Name":"Name 2","Vorname":"Vorname 2","Alter":51},\ {"Name":"Name 3","Vorname":"Vorname 3","Alter":52},\ {"Name":"Name 4","Vorname":"Vorname 4","Alter":53},\ {"Name":"Name 5","Vorname":"Vorname 5","Alter":54},\ {"Name":"Name 6","Vorname":"Vorname 6","Alter":55},\ {"Name":"Name 7","Vorname":"Vorname 7","Alter":56},\ {"Name":"Name 8","Vorname":"Vorname 8","Alter":57}\ ]\ ');
Code:
Sub SaveAsJavascript() fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:=ActiveSheet.Name & ".js", _ fileFilter:="Javascript Dateien (*.js), *.js") Ausgabe = "" If fileSaveName <> False Then LastRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row LastCol = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column Open fileSaveName For Output As #1 Print #1, "var " & ActiveSheet.Name & " = JSON.parse ('\" Print #1, "[\" For Row = 2 To LastRow Ausgabe = " {" For Col = 1 To LastCol Ausgabe = Ausgabe & """" & ActiveSheet.Cells(1, Col) & """:" If IsNumeric(ActiveSheet.Cells(Row, Col)) Then Ausgabe = Ausgabe & Replace(ActiveSheet.Cells(Row, Col), ",", ".") Else Ausgabe = Ausgabe & """" & ActiveSheet.Cells(Row, Col) & """" End If If Col <> LastCol Then Ausgabe = Ausgabe & "," Else Ausgabe = Ausgabe & "}" End If Next Col If Row <> LastRow Then Ausgabe = Ausgabe & ",\" Else Ausgabe = Ausgabe & "\" End If Print #1, Ausgabe Next Row Print #1, "]\" Print #1, "');" Close #1 End If End Sub
Kommentar