Ecxel per Script bearbeiten jeden Tag

@echo off & setlocal enabledelayedexpansion
set "Quelle=C:\export.csv"  
set "Ziel=C:\exportneu.csv"  


>"%Ziel%" (for /f "usebackq eol=° delims=" %%z in ("%Quelle%") do (  
    set "ZeileEin=%%z"  
    set "ZeileAus="  
    set /a Feld=1
    for %%a in ("!ZeileEin:;=","!") do (  
        if !Feld!==%Spalte% (
            set "Wert=%%~a"  
            if "%%~a"=="11" set "Wert=0800P11700"  
            if "%%~a"=="1004" set "Wert=123456"  
            if "%%~a"=="2243" set "Wert=123696"  
            set "ZeileAus=!ZeileAus!;!Wert!"  
        ) else (
            set "ZeileAus=!ZeileAus!;%%~a"  
        )
        set /a Feld+=1
    )
    echo(!ZeileAus:~1!
))

$File = "c:\Backup\Test.xls"  
# Setup Excel, open $File and set the the first worksheet
$Excel = New-Object -ComObject Excel.Application
$Excel.visible = $true
$Workbook = $Excel.workbooks.open($file)
$Worksheets = $Workbooks.worksheets
$Worksheet = $Workbook.Worksheets.Item(1)

$SearchString = "1000"  # Danach wird gesucht   

$Range = $Worksheet.Range("G10").EntireColumn  


$Search = $Range.find($SearchString)
if ($search -ne $null) {
	$FirstAddress = $search.Address
	do {
		$Search.value() = "08001700"  
		$search = $Range.FindNext($search)
	} while ( $search -ne $null -and $search.Address -ne $FirstAddress)
}

$WorkBook.Save()
$WorkBook.Close()
[void]$excel.quit()

get-ChildItem c:\backup\test.csv | Foreach-Object {Get-Content $_ | Out-String | Foreach-Object {$_.Replace(„1000“,“0800P11700“)} | Set-Content $_}

$File = "c:\Backup\Test.xls"  
$Excel = New-Object -ComObject Excel.Application
$Excel.visible = $true
$Workbook = $Excel.workbooks.open($file)
$Worksheets = $Workbooks.worksheets
$Worksheet = $Workbook.Worksheets.Item(1)

$SearchString = "1000"    

$Range = $Worksheet.Range("E10").EntireColumn  


$Search = $Range.find($SearchString)
if ($search -ne $null) {
	$FirstAddress = $search.Address
	do {
		$Search.value() = "08001700"  
		$search = $Range.FindNext($search)
	} while ( $search -ne $null -and $search.Address -ne $FirstAddress)
}

$WorkBook.Save()
$WorkBook.Close()
[void]$excel.quit()

# Quelldatei 
$quelle = 'C:\backup\test.xls'   
# Suchstring 
$searchString = '1000'   
# Ersetzungs String  
$replaceWith = '0800P11700'   
# Excel Objekt 
$objExcel = New-Object -Com Excel.Application 
# Mappe öffnen 
$wb = $objExcel.Workbooks.Open($quelle) 
# Excel anzeigen, Dialoge und Screenupdating deaktivieren 
$objExcel.Visible = $true 
$objExcel.DisplayAlerts = $false 
# Finde Zellen mit dem Inhalt 
$wb.Sheets.Item(1).UsedRange | ?{$_.Value() -eq $searchString} | %{ 
    # Zellenformat auf Text setzen 
    $_.NumberFormat = "@"   
    # Wert setzen 
    $_.Value() = $replaceWith  
} 
$wb.Sheets.Item(1).UsedRange.EntireColumn.Autofit()
# Datei speichern, Dialoge und Screenupdating wieder einschalten 
$wb.Save() 
$objExcel.DisplayAlerts = $true 
# Dokument schließen 
$wb.Close($true) 
# Excel schließen 
$objExcel.Quit() 
# Ressourcen freigeben 
[System.Runtime.InteropServices.Marshal]::ReleaseComObject($objExcel)

$searchString = '1000'   
# Ersetzungs String  
$replaceWith = '0800P11700'