amvVBETools – TextToVariable

Mit den amvVBETools – TextToVariable kannst Du ein- oder mehrzeilige Texte aus anderen Quellen, zum Beispiel JSON-Dokumente, XML-Dokumente oder andere einfach in Dein VBA-Modul einfügen, dieses markieren und per Mausklick den Code zum Füllen dieses Textes in eine Variable erstellen. Das lässt sich einfacher an einem Beispiel verdeutlichen. Wir haben beispielsweise folgenden Text, den wir in ein VBA-Modul einfügen:

{
  "id": "e9066f04-8cc7-4616-93f8-ac9ecc8479c8",
  "organizationId": "aa93e8a8-2aa3-470b-b914-caad8a255dd8",
  "version": 0,
  "roles": {
    "customer": {
      "number": 10308
    }
  },
  "person": {
    "salutation": "Frau",
    "firstName": "Inge",
    "lastName": "Musterfrau"
  },
  "archived": false
}

Wenn Du diesen Text in eine Variable wie beispielsweise strJSON schreiben willst, musst Du von Hand vor jede Zeile den Text strJSON = strJSON & " setzen und damit Zeilenbrüche erhalten bleiben, musst Du hinten noch " & vbCrLf anhängen.
Außerdem musst Du innerhalb des Textes immer noch die Anführungszeichen verdoppeln, also aus " wird "", damit VBA nichit denkt, die Zeile wäre schon zu Ende.
Das ist gerade bei längeren Texten sehr nervig.
Zum Glück gibt es amvVBETools – TextToVariable: Damit markierst Du den betroffenen Text einfach und betätigst einen Menübutten per Mausklick und zack – bekommst Du folgendes Ergebnis:

strJSON = strJSON & "{" & vbCrLf
strJSON = strJSON & "  ""id"": ""e9066f04-8cc7-4616-93f8-ac9ecc8479c8""," & vbCrLf
strJSON = strJSON & "  ""organizationId"": ""aa93e8a8-2aa3-470b-b914-caad8a255dd8""," & vbCrLf
strJSON = strJSON & "  ""version"": 0," & vbCrLf
strJSON = strJSON & "  ""roles"": {" & vbCrLf
strJSON = strJSON & "    ""customer"": {" & vbCrLf
strJSON = strJSON & "      ""number"": 10308" & vbCrLf
strJSON = strJSON & "    }" & vbCrLf
strJSON = strJSON & "  }," & vbCrLf
strJSON = strJSON & "  ""person"": {" & vbCrLf
strJSON = strJSON & "    ""salutation"": ""Frau""," & vbCrLf
strJSON = strJSON & "    ""firstName"": ""Inge""," & vbCrLf
strJSON = strJSON & "    ""lastName"": ""Musterfrau""" & vbCrLf
strJSON = strJSON & "  }," & vbCrLf
strJSON = strJSON & "  ""archived"": false" & vbCrLf
strJSON = strJSON & "}" & vbCrLf

Der Ablauf im Detail

1. Text markieren:

2. Befehl auswählen:

3. Über das Ergebnis freuen:

Was Du bekommst

Dieses Produkt enthält eine Setup-Datei, die Du einfach nur ausführen musst. Danach findest Du den Befehl im VBA-Editor unter dem Menüpunkt Add-Ins oder im Kontextmenü des Code-Fensters.

Das Tool funktioniert im VBA-Editor von Word, Outlook, Excel, Access und PowerPoint unter 32-Bit und 64-Bit.