1
Excel VBA Link öffnen und wert zurückschreiben
Hallo Community,
ich hab da Problem wo ich zur Zeit nicht auf die passende Lösunge komme.
Ich habe eine Excelliste mit 1000 Links diese möchte ich gern über excel kontrolliern lassen ob der Link auch tatsächlich noch die Landingpage ist (keine Weiterleitung).
VBA Script mit denen ich den link öffnen kann habe ich. Ist es nun auch möglich den geladenen Link in die excelliste einzutragen damit man einen vergleich ausführen kann?
Für Ideen oder mögliche Lösungsansätze wäre ich sehr dankbar.
ich hab da Problem wo ich zur Zeit nicht auf die passende Lösunge komme.
Ich habe eine Excelliste mit 1000 Links diese möchte ich gern über excel kontrolliern lassen ob der Link auch tatsächlich noch die Landingpage ist (keine Weiterleitung).
VBA Script mit denen ich den link öffnen kann habe ich. Ist es nun auch möglich den geladenen Link in die excelliste einzutragen damit man einen vergleich ausführen kann?
Für Ideen oder mögliche Lösungsansätze wäre ich sehr dankbar.
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 512236
Url: https://administrator.de/contentid/512236
Ausgedruckt am: 20.11.2024 um 02:11 Uhr
1 Kommentar
Würd ich gleich mit Powershell abfackeln:
Die CSV-Liste sollte dazu so aufgebaut sein
Weitere Spalten sind egal nur die Spalte für die "URL" wurde im Skript so genutzt, heißt sie anders muss sie im Skript angepasst werden.
Die Ergebnis-URL steht dann in der neu hinzugefügten Spalte "Result"
$csv = 'D:\liste.csv'
$liste = Import-CSV $csv -Delimiter ";"
[System.Net.ServicePointManager]::SecurityProtocol = [System.Net.SecurityProtocolType]::GetNames([System.Net.SecurityProtocolType])
$liste | Add-Member -MemberType NoteProperty -Name Result -Value ""
$liste | %{
$result = iwr $_.URL -UseBasicParsing -ErrorAction SilentlyContinue
if($result.StatusCode -like '2*'){
$_.Result = $result.BaseResponse.ResponseUri.AbsoluteUri
}
}
$liste | export-csv $csv -Delimiter ";" -NoType -Encoding UTF8 Die CSV-Liste sollte dazu so aufgebaut sein
URL
https://domain.tld
https://domain.tld
usw.Die Ergebnis-URL steht dann in der neu hinzugefügten Spalte "Result"
URL Result
--- ------
https://domain.tld https://domain.tld
https://domain.tld https://domain.tld 
