Office: (Office 2019) Eine Datei mit der Endung .geojson in Excel umwandeln

Hallo, und noch einen schönen Feiertag wünsche ich. Ich komme mit einem Problem wie bereits in der Überschrift gezeigt. Ich möchte die Datei in EXCEL umwandeln, und stoße dabei an meine Grenzen. Ich suche nun jemand der mir hierbei weiter helfen kann. Ggf. auch gerne mit einem Programm wie zum Beispiel VBA ja einiges ermöglicht. Gruß MB

 

Moin!
Was meinst Du mit

Aus der Wikipedia mal eine Beispiel-geojson:

Code:

{ "type": "FeatureCollection",
  "features": [
    { "type": "Feature",
      "geometry": {"type": "Point", "coordinates": [102.0, 0.5]},
      "properties": {"prop0": "value0"}
    },
    { "type": "Feature",
      "geometry": {
        "type": "LineString",
        "coordinates": [
          [102.0, 0.0], [103.0, 1.0], [104.0, 0.0], [105.0, 1.0]
        ]
      },
      "properties": {
        "prop0": "value0",
        "prop1": 0.0
      }
    },
    { "type": "Feature",
      "geometry": {
        "type": "Polygon",
        "coordinates": [
          [ [100.0, 0.0], [101.0, 0.0], [101.0, 1.0],
            [100.0, 1.0], [100.0, 0.0] ]
        ]
      },
      "properties": {
        "prop0": "value0",
        "prop1": {"this": "that"}
      }
    }
  ]
}

Und nun?
Was soll Excel daraus machen?

Gruß Ralf

 

Moin,

Um geojson Dateien lesen und bearbeiten zu können sie Dir dieses kostenlose Tool an.

Zitat aus dem Tutorial:
Anstatt Tabellen in Excel anzulegen, die dann mithilfe zusätzlicher Software geokodiert und exportiert werden müssen, kann man mit Geojson.io Ortsdaten direkt aus einer Karte auswählen, anreichern und in kompatiblen Formaten speichern.

 

Meine nach EXCEL aufzubereitende Auflistung soll eine für jeden lesbare Version sein. Damit wird dann der Beweis von Lautstärke und Anzahl Fahrzeuge festgehalten. Wenn der Code ausgeführt wird, bricht er ab und die Query wird automatisch gelöscht, was natürlich nicht sein sollte. Ich lade einmal für interessierte eine Beispieltabelle hier hoch. Gruß und einen schönen Sonntag wünsche ich.

 

Das mindeste was ich erwartet hätte, wäre eine korrekte, formartierte .geojson Datei zum Testen.

 

Hallo knobbi, habe mir die Datei angeschaut, aber zum Formatieren noch keine Idee gehabt. Bleibe aber drann.

 

Wie wäre es hiermit?
GeoJSON

 

...zuerst sollen geojson Dateien eingelesen werden, dann schickst Du uns eine txt Datei, die mittels VBA eine PQ Abfrage starten soll...
Heute regnet es zwar, ich hab aber dennoch keine Lust, mir Deinen ganzen VBA Code auseinanderzuklamüsern.
Wäre schön gewesen, wenn Du statt des VBA Codes mal eine Musterergebnistabelle hochgeladen hättest.
Anbei mal eine PQ Abfrage mir ein paar Spalten. Die, die fehlen, kannst Du ja nach dem vorstehende, Muster ergänzen.
Den Quellpfad musst Du natürlich noch anpassen...

 

...da ja die 15 Min zum Editieren rum sind....
hatte die Koordinatenspalte vergessen zu ergänzen.

Die Zeile:
Kombinieren = Table.Combine({Koordinatenspalte,speed}),

muss noch, wie unten unten im Code angezeigt, eingefügt werden.

Code:

...
...
    speed = Table.AddColumn(bearing, "speed", each Text.BetweenDelimiters([Column1], ":", ",", 7, 0), type text),
    Kombinieren = Table.Combine({Koordinatenspalte,speed}),
    #"Entfernte Spalten" = Table.RemoveColumns(Kombinieren,{"Column1"})
in
    #"Entfernte Spalten"

 

...sorry...
so muss der Code nach speed aussehen:

Code:

    speed = Table.AddColumn(bearing, "speed", each Text.BetweenDelimiters([Column1], ":", ",", 7, 0), type text),
//geänderter Code:
    #"Hinzugefügter Index" = Table.AddIndexColumn(speed, "Index", 0, 1, Int64.Type),
    #"Hinzugefügte benutzerdefinierte Spalte" = Table.AddColumn(#"Hinzugefügter Index", "Kordinaten", each Koordinatenspalte[Koordinaten]{[Index]}),
    #"Entfernte Spalten" = Table.RemoveColumns(#"Hinzugefügte benutzerdefinierte Spalte",{"Column1", "Index"}),
    #"Neu angeordnete Spalten" = Table.ReorderColumns(#"Entfernte Spalten",{"Kordinaten", "leq_mean", "Markercolor", "accuracy", "location_utc", "leq_utc", "bearing", "speed"})
in
    #"Neu angeordnete Spalten"

 

Hallo, das Ergebnis ist ja sicherlich mit einer VBA Query geschrieben und als EXCEL Datei fertiggestellt worden. In der Form hatte ich mir das Ergebnis für mich ebenfalls vorgestellt. Ich bräuchte als Argument bei einer Behörde Ergebnisse aus mehreren Wochenenden, um den Belästigungsgrad nachzuweisen. Könnte man da mal Einblick erhalten, um es nachzubauen?

 

...nöö... ganz ohne VBA. Direkt mit PQ.
Um Einblick zu erhalten, drücke Alt + F12, dann öffnet sich der PQ Editor. Dort findest Du im linken Fenster die Abfrage track_die 2te geojson, die markierst Du, klickst im Menü Start auf Erweiterter Editor...
Dort musst Du die letzten Zeilen des M-Codes wie im Post #9 beschrieben noch anpassen. Und ganz oben, in der Zeile:

Quelle = Table.FromColumns({Lines.FromBinary(File.Contents("C:\Users\User\OneDrive\Dokumente\track_die 2te.geojson.txt"), null, null, 1252)}),

musst Du natürlich noch Deinen Pfad und Dateinamen anpassen.