Закрытие файла Excel

# Экзель-файл из которого мы берём ФИО
$File = "С:\Тест.xlsx"
 
# Открываем Экзель файл, 1 Лист
$Excel = New-Object -ComObject Excel.Application
$Excel.visible = $false
$Workbook = $Excel.workbooks.open($file)
$Worksheets = $Workbooks.worksheets
$Worksheet = $Workbook.Worksheets.Item(1)
 
 
pause
 
Write-host "Закрываем книгу..."
$WorkBook.Close()
Write-host "Ок!"
Write-host "Закрываем Экзель..."
$Excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Excel)
Write-host "Ок!"

function Excel_Killer {
 
$i=1
$script:i=1
 
# Список процессов Экзель
$process_list=Get-Process -Name Excel | sort starttime |Select-Object @{n='Index';e={($script:i++)}},name, id, starttime| ForEach-Object {
$process=""| Select-Object Index,Name, id,starttime
$process.Index=$_.Index
$process.Name=$_.Name
$process.Id=$_.id
$process.StartTime=$_.starttime
$process
 
}
 
# Выводим список на экран
$process_list | Format-Table Index,Name,Id,StartTime
 
Write-Host "Выбери процесс, сам процесс и все процессы запущенные по времени после него будут закрыты!!!" -ForegroundColor Yellow 
Write-Host
 
$nia=read-host "Выбери процесс"
 
Switch ($nia) {
 
$nia {
 
$time=$process_list | Where {$_.Index -eq $nia} |Select-Object -ExpandProperty StartTime
 
Get-Process -Name Excel | Where-Object -FilterScript {$_.name -eq 'EXCEL' -and $_.StartTime -ge $time} | Stop-Process
 
Write-Host 'Ok!'
 
Start-Sleep -Milliseconds 250
 
# Проверка, что процесс закрыт.
Get-Process -Name Excel -ErrorAction SilentlyContinue | Format-Table name, id, starttime
 
}
 
default {
cls
Write-Host 
Write-Host 'Выбирай правильно!!!' -ForegroundColor Yellow
 
Start-Sleep -Milliseconds 500
Excel_Killer
}
}
 
}
Excel_Killer

$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false
$excel.displayAlerts = $false
 
$file = Get-Item -Path 'C:\Temp\1.xlsx'
 
$workbook = $excel.Workbooks.Open($file.FullName)
$excel.ActiveWorkbook.RefreshAll()
$excel.ActiveWorkbook.save()
$excel.ActiveWorkbook.close()
 
$excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel)

$excel.Visible = $true
$excel.displayAlerts = $true

function Excel_Killer {
 
Get-Process -Name Excel | Where-Object -FilterScript {$_.name -eq 'EXCEL' -and $_.id -eq $result} | Stop-Process
 
}  
 
# получаем список id процессов Экзель до запуска скрипта
$original= Get-Process -Name Excel | Select-Object -ExpandProperty id
$original | Out-Null
 
 
# Экзель-файл из которого мы берём данные по зашифрованным компам
$:File = "С:\Тест.xlsx"
 
# Открываем Экзель файл, 1 Лист
$Excel = New-Object -ComObject Excel.Application
$Excel.visible = $false
$Workbook = $Excel.workbooks.open($file)
$Worksheets = $Workbooks.worksheets
$Worksheet = $Workbook.Worksheets.Item(1)
 
# получаем список id процессов Экзель, с вычетом ранее запущенных процессов. Эта перeменная потом будет использоваться в функции Excel_Killer
$result=Get-Process -Name Excel | where {$_.id -ne $original} |Select-Object -ExpandProperty id
$result | out-null
 
<#
 
# работаем с файлом
 
#>
 
 
 
Write-host "Закрываем книгу..."
$WorkBook.Close()
Write-host "Ок!"
Write-host "Закрываем Экзель..."
$Excel.Quit()
Write-host "Ок!"
Write-host "Чистим переменную..."
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Excel)
Start-Sleep -Milliseconds 250
$Excel=$null
Write-host "Ок!"
Write-host "Выходим из скрипта..."
Start-Sleep -s 1
Excel_Killer
 
# чтобы не закрывалась консоль
break Script

$object=new-object -comobject V82.ComConnector
try
{
    $connection=$object.connect("Srvr=srv;Ref=ut;Usr=user;Pwd=123")
}
catch
{
    sleep -Seconds 5
    $connection=$object.connect("Srvr=srv;Ref=ut;Usr=user;Pwd=123")
}

[System.Runtime.Interopservices.Marshal]::ReleaseComObject($connection)

$object=new-object -comobject V82.ComConnector
try
{
    $connection=$object.connect("Srvr=srv;Ref=ut;Usr=user;Pwd=123")
}
catch
{
    sleep -Seconds 5
    $connection=$object.connect("Srvr=srv;Ref=ut;Usr=user;Pwd=123"
}
$zapros=[System.__comObject].InvokeMember("NewObject",[System.reflection.bindingFlags]::invokemethod,$null,$connection,"Запрос")                  
[system.__comObject].InvokeMember("Text",[System.reflection.bindingFlags]::setproperty,$null,$zapros,$zapros_1)
[system.__comObject].InvokeMember("УстановитьПараметр",[System.reflection.bindingFlags]::invokemethod,$null,$zapros,("Дата",$curDate))
[system.__comObject].InvokeMember("УстановитьПараметр",[System.reflection.bindingFlags]::invokemethod,$null,$zapros,("Дата2",$nextDate))
$res=[system.__comObject].invokeMember("Выполнить",[System.reflection.bindingFlags]::invokemethod,$null,$zapros,$null)
$vigruzka=[system.__comObject].invokeMember("Выгрузить",[System.reflection.bindingFlags]::invokemethod,$null,$res,$null)

[System.Runtime.Interopservices.Marshal]::ReleaseComObject($vigruzka)
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($EVOTORvigruzka)
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($zapros) 
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($res)
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($EVOTORzapros)   
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($EVOTORres)              
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($connection)

PS C:\Users\bafomet> $vigruzka
System.__ComObject
System.__ComObject
System.__ComObject
System.__ComObject
System.__ComObject
System.__ComObject
System.__ComObject
System.__ComObject
System.__ComObject
System.__ComObject
System.__ComObject
System.__ComObject
System.__ComObject
System.__ComObject
System.__ComObject
System.__ComObject

foreach($element in $vigruzka)
{
 
}

$Excel.Quit()
while( [System.Runtime.Interopservices.Marshal]::ReleaseComObject($Workbook)) {}
while( [System.Runtime.Interopservices.Marshal]::ReleaseComObject($Excel)) {}
while( [System.Runtime.Interopservices.Marshal]::ReleaseComObject($WorkSheet_p)) {}
while( [System.Runtime.Interopservices.Marshal]::ReleaseComObject($WorkSheet_u)) {}
Remove-Variable Excel -ErrorAction SilentlyContinue