Office: Excel 2016 und Power Query

Ich habe nun einige Foren im Netz durchsucht aber eine Lösung für mein VBA nicht wirklich gefunden. Zwar gibt es einige Einträge zu VBA und Excel 2016 Query, aber nur wie man Daten dort komplett per VBA einfügen kann.

Ich möchte aber bereits bestehende Abfragen in einem Teil verändern und nicht in 158 Abfragen alle URl/Links manuell aktualisieren!

Beispiel:
in einer der 158 Abfragen steht in der Quelle dieser Link
= Web.Page(Web.Contents("Deutschland - Bundesliga - Ergebnisse, spielplan, tabellen, statistiken - Futbol24"))

Klickt man nun in der Abfrag auf den Eintrag "Quelle" erscheint dieser Link
http://de.futbol24.com/national/Germ...&statT-Table=1

das ist auch der Original-Link den ich beim Erstellen der Abfrage eingefügt hatte.

Nun möchtse ich gerne per VBA den Link in allen Abfragen verändern, zum Beispiel von 2015-2016 auf 2016-2017 oder ich möchte die Abfrage der Tabelle ändern von #statT-Limit=1&statT-Table=1 auf #statT-Limit=0&statT-Table=1

Ich habe gesehen, das man in Excel 2016 nun per VBA auch auf Query-Objekte zugreifen kann, über tp und QueryTables, habe aber keine Möglichkeit gefunden dieses Makro so zu verändern, das überhaupt auf Power Qeury zurück gegriffen wird.

Sub HyperlinkAendern()

Dim i As Long
Dim HypAlt As String
Dim HypNeu As String

'Hier alten und neuen Text anpassen
HypAlt = "2015-2016"
HypNeu = "2016-2017"

For i = 1 To ActiveSheet.Hyperlinks.Count
With ActiveSheet.Hyperlinks(i)
.Address = Replace(ActiveSheet.Hyperlinks(i).Address, HypAlt, HypNeu)
.TextToDisplay = Replace(ActiveSheet.Hyperlinks(i).TextToDisplay, HypAlt, HypNeu)
End With
Next
End Sub

Denn egal wie ich diese Makro verändere, es will in die Abfragen nichts ändern. Im Ursprung hat das Makro alle Links in einem Tabellenblatt geändert aber jetzt benötige ich das eben für Excel 2016 und Power Query.

Hat jeman eine Idee ?

Vielen Dank
Mfg EuroCafe und eine schöne Woche

:)

 

Lösung gefunden oder eher gesagt ein Fachmann hat mir sehr geholfen Herr Louha.
Sub UpdateQueryAbfrageHeimForm()
' hier wird in den Abfragen direkt in der Quelle ein Teil geändert, nicht der ganze Link sondern nur der variable Teil
Dim objQuery As WorkbookQuery

For Each objQuery In ThisWorkbook.Queries

' MsgBox objQuery.Formula
objQuery.Formula = Replace(objQuery.Formula, "#statT-Limit=0&statT-Table=1", "#statT-Limit=1&statT-Table=1")
' MsgBox objQuery.Formula

Next

End Sub

und mit diesem Makro wird erst geschaut ob auf der Internetseite schon etwas vorhanden ist.
Habe das noch nicht getestet, da es noch keine neuen Ligawerte gibt.

Sub UpdateQueries()

Dim objCollection As Collection
Dim objQuery As WorkbookQuery
Dim strCheck As String
Dim lngIndex As Long

On Error Resume Next

Set objCollection = New Collection

With ThisWorkbook.Worksheets(1)

For lngIndex = 1 To 100

If .Cells(lngIndex, 2).Value > 0 Then

.objCollection.Add _
.Cells(lngIndex, 1).Value , _
.Cells(lngIndex, 1).Value

End If

Next

End With

For Each objQuery In ThisWorkbook.Queries

strCheck = ""
strCheck = objCollection(objQuery.Name)

If Len(strCheck) > 0 Then

objQuery.Formula = Replace(objQuery.Formula, "/2015-2016/", "/2016-2017/")

End If

Next

Set objCollection = Nothing

End Sub

Zu beiden Makros muss ich aber sagen, das ich aufgrund der Anzahl der Links (158 Stück) das nur im Debbug-Modus ausführen kann und max. 15 Abfragen, dann 3 Minuten warten und die nächsten. Aktualisiert man zu viele, dann hängt sich Excel auf, verwendet 12 GB RAM und kommt auch nicht über Nacht wieder zurück. Den Fehler suche ich aber noch, das hat etwas mit dem Abfrage-Editor zu tun, der alle Schritte im Hintergund mit schreibt und die Vorschau aktualisiert.

Wenn es etwas neues dazu gibt, melde ich mich.

Gruß EuroCafe