Daten von Webseite Exportieren und In Excel oder Access schreiben mit Automatischen Aktualisierungen

# Maximal zu extrahierende Anzahl an Spieler(muss durch 25 teilbar sein)
$maxplayers = 200
$pathDataFile = "C:\Daten.xlsx"  
#-----------------
$site = 0
$players = @()
write-host "Lade Seiten und extrahiere die Spieler ..." -BackgroundColor White -ForegroundColor Blue  
for ($i = 0; $i -lt ($maxplayers / 25); $i++){
    $result = Invoke-WebRequest "http://ch23.staemme.ch/guest.php?screen=ranking&mode=player&offset=$site"  
    $table = $result.AllElements | ?{$_.class -eq "lit-item"} | %{$_.innerText}  
    $pos = 0
    for ($x = 0;$x -lt 25; $x++){
        $rang = $table[$pos]
        $name = $table[$pos+1]
        $stamm = $table[$pos+2]
        $punkte = $table[$pos+3]
        $dörfer = $table[$pos+4]
        $punkteschnitt = $table[$pos+5]
        $players += New-Object PSObject -property @{"Rang"=$rang;"Name"=$name;"Stamm"=$stamm;"Punkte"=$punkte;"Dörfer"=$dörfer;"Punkteschnitt"=$punkteschnitt}  
        $pos += 6
    }
   $site += 25
}
$players |select Rang,Name,Stamm,Punkte,Dörfer,Punkteschnitt | export-csv "$env:TEMP\players.csv" -Delimiter ";" -Encoding UTF8 -NoTypeInformation  

write-host "Füge Daten in Excel-Sheet ein ..." -BackgroundColor Green -ForegroundColor White  
$Excel = new-object -com Excel.Application
$Excel.visible = $false
$Excel.DisplayAlerts = $false
if (Test-Path $pathDataFile){
    $docDaten = $Excel.Workbooks.Open($pathDataFile)
}else{
    $docDaten = $Excel.Workbooks.Add()
    $docDaten.SaveAs($pathDataFile)
}
$docTemp = $Excel.Workbooks.Open("$env:TEMP\players.csv")  
$docTemp.Worksheets.Item(1).Range("A:F").Copy()  
$newSheet = $docDaten.Worksheets.Add()
$newSheet.Name = (get-date -Format "dd.MM.yyyy hh.mm.ss")  
$newSheet.Paste($newSheet.Range("A1"))  
$docTemp.Close($false)
$docDaten.Save()
$Excel.DisplayAlerts = $true
$Excel.visible = $true