Ankündigung

Einklappen
Keine Ankündigung bisher.

Frohe Weihnachten

Einklappen

Neue Werbung 2019

Einklappen
Dieses Thema ist geschlossen.
X
X
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge

  • Frohe Weihnachten

    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:

    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}\
    ]\
    ');
    VBA-Code:

    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
    Evtl. habt Ihr auch so einen Kleinkram der Zeit spart - wäre schön wenn Ihr Euch beteiligt...

  • #2
    Ich wünsche auch allen eine schöne Weihnacht und für's nächste Jahr viel Witz und ausgelassene Begegnungen.

    Und recht herzlichen Dank für das Geschenk.

    [B]Es ist schon alles gesagt. Nur noch nicht von allen.[/B]

    Kommentar


    • #3
      Frohe Weihnachten

      Kommentar


      • #4
        Danke

        Kommentar


        • #5
          Etwas spät

          [MOD: Geschlossen]
          The string "()()" is not palindrom but the String "())(" is.

          Debugging: Finde DEINE Fehler selbst! | Gegen Probleme beim E-Mail-Versand | Sicheres Passwort-Hashing | Includes niemals ohne __DIR__
          PHP.de Wissenssammlung | Kein Support per PN

          Kommentar

          Lädt...
          X