Office: (Office 2007) kml Datei in Excel Tabelle

Hallo Forum,
was ich bisher gefunden habe, hatte immer mit Access zu tun. Davon habe ich keine Ahnung, deswegen meine Frage auch hier.

Ich habe eine kml Datei erhalten, mit der Liste aller Hauptverteiler der Telekom (ist nicht illegal). In dieser Datei sind alle HVT mit Vorwahl, PLZ, Ort, Straße und Hausnummer aufgelistet. Die Datei läßt sich mit Google Earth öffnen und die Adressen werden angezeigt.

Ist es möglich, diese Adressangaben in irgendeiner Weise - möglichst automatisch weils so viele sind - in eine Excel Tabelle "einzulesen"? Wenn ich diese Liste als Excel Datei hätte, könnte ich sie mir ausdrucken. Das würde mir das die Arbeit ungemein erleichtern. Danke schon mal für die Hilfe.

Wenn noch jemand Interesse daran hat, hier ist die kml Datei
dsl-hauptverteiler.zip

:)

 

Hallo,

versuch es mal damit (Pfad anpassen !!!):

Option Explicit

Public Sub Einlesen()
Dim strText As String, strAddress As String, strNumber As String
Dim strCity As String
Dim objRegEx As Object, objMatch As Object, objMatchCollection As Object
Dim lngRow As Long, lngZip As Long
strText = CreateObject("Scripting.FileSystemObject"). _
GetFile("C:\dsl-hauptverteiler\dsl-hauptverteiler.kml").OpenAsTextStream(1, -2).ReadAll
Set objRegEx = CreateObject("VBScript.RegExp")
With objRegEx
.MultiLine = True
.Global = True
.IgnoreCase = True
.Pattern = "Ä"
strText = .Replace(strText, "Ä")
.Pattern = "Ö"
strText = .Replace(strText, "Ö")
.Pattern = "Ü"
strText = .Replace(strText, "Ü")
.Pattern = "ä"
strText = .Replace(strText, "ä")
.Pattern = "ö"
strText = .Replace(strText, "ö")
.Pattern = "ü"
strText = .Replace(strText, "ü")
.Pattern = "ß"
strText = .Replace(strText, "ß")
.Pattern = "é"
strText = .Replace(strText, "é")
.Pattern = "<name>.+?</name>"
Set objMatchCollection = .Execute(strText)
End With
With Range(Cells(1, 1), Cells(1, 4))
.Value2 = Array("Nummer", "PLZ", "Ort", "Straße")
.Font.Bold = True
End With
lngRow = 1
For Each objMatch In objMatchCollection
strText = Replace(Replace(objMatch.Value, "<name>", ""), "</name>", "")
If Left$(strText, 3) <> "DSL" Then
strNumber = Split(strText, ",")(0)
lngZip = Clng(Split(Mid$(strText, Len(strNumber) + 3), " ")(0))
strCity = Split(strText, " ")(2)
If strCity = "Bad" Or strCity = "Alt" Or strCity = "Am" Then _
strCity = strCity & " " & Split(strText, " ")(3)
strAddress = Mid$(strText, Len(strNumber) + Len(CStr(lngZip)) + Len(strCity) + 5)
lngRow = lngRow + 1
Cells(lngRow, 1).Value = strNumber
Cells(lngRow, 2).Value = lngZip
Cells(lngRow, 3).Value = strCity
Cells(lngRow, 4).Value = strAddress
End If
Next
Columns.AutoFit
Set objRegEx = Nothing
Set objMatch = Nothing
Set objMatchCollection = Nothing
End Sub

Manche Orte kann ich aber nicht sauber trennen. Z.B. wandert "(Elbe)" von "Barby (Elbe)" in den Straßennamen.

 

Hallo Nepumuk,
danke für die schnelle Antwort *Smilie

Doofe Frage, wo muss ich diesen Code denn eingeben? *weinen *confused.gif*
Ich habe Excel XP

Hat sich erledigt, habs gefunden *Smilie

Es funktioniert *biggrin.gif* *biggrin.gif*

Danke für die Hilfe Nepumuk *Smilie