[antivan]

Код:

[String]$PathToAnalise = "D:\Обменка\Счета\"

$excel = New-Object -ComObject Excel.Application # открываем экземпляр Excel, он будет один на весь скрипт
For(  ;  ;  ) { 
    Get-ChildItem -Path $PathToAnalise *.xls -File -Recurse -Attributes `
        Archive,Compressed,Encrypted,Hidden,Normal,ReadOnly,NotContentIndexed,SparseFile,System |
        ForEach-Object {

        [String]$filefullname = $_.DirectoryName + "\" + $_.BaseName + ".xlsx";
        if (Test-Path -PathType Leaf -Path $filefullname) {
                $ErrorActionPreference = 'Ignore';
                Remove-Item -Path $_.FullName
                $ErrorActionPreference = 'SilentlyContinue';
        } else {
           $EWB = $excel.Workbooks.Open($_.FullName)
           $EWB.SaveAs($_.DirectoryName + "\" + $_.BaseName + ".xlsx", 51)
           $_.DirectoryName + "\" + $_.BaseName + ".xlsx"
           $EWB.Close()
           Remove-Item -Path $_.FullName
        }   
    }
    Start-Sleep -s 3
}
$excel.Quit() # закрываем экземпляр Excel - это действие бессмысленно,
# т.к. при нормальной работе выхода из цикла не произойдет,
# а при аварийной остановке скрипта исполнение до этого места не дойдет

У меня несколько лет работает так.
Если есть идеи, как не гонять цикл, а отслеживать именно появление файла - было бы интересно посмотреть.

Вариант без висящего в памяти Excel

Код:

[String]$PathToAnalise = "D:\Обменка\Счета\"
For(  ;  ;  ) { 
    Get-ChildItem -Path $PathToAnalise *.xls -File -Recurse -Attributes `
        Archive,Compressed,Encrypted,Hidden,Normal,ReadOnly,NotContentIndexed,SparseFile,System |
        ForEach-Object {
        [String]$filefullname = $_.DirectoryName + "\" + $_.BaseName + ".xlsx";
        if (Test-Path -PathType Leaf -Path $filefullname) {
                $ErrorActionPreference = 'Ignore';
                Remove-Item -Path $_.FullName
                $ErrorActionPreference = 'SilentlyContinue';
        } else {
           $excel = New-Object -ComObject Excel.Application
           $EWB = $excel.Workbooks.Open($_.FullName)
           $EWB.SaveAs($_.DirectoryName + "\" + $_.BaseName + ".xlsx", 51)
           $_.DirectoryName + "\" + $_.BaseName + ".xlsx"
           $EWB.Close()
           Remove-Item -Path $_.FullName
           $excel.Quit()
           Stop-Process -Name EXCEL

        }   
    }
    Start-Sleep -s 3
}

об этом скрипте у меня на сайте
в общем-то все итак видно, так что по ссылке ходить совсем не обязательно

[DJ Mogarych]

antivan, в составе Офиса версии примерно с 2007 есть встроенный конвертер excelcnv.exe, и париться с ком-объектом Экселя уже не нужно, выше в теме было написано об этом.

Вот вариант с конвертацией и автоматическим удалением оригиналов.
Можно вставить в планировщик и запускать через определённые промежутки времени.
Проверки перед удалением оригиналов можно ещё навертеть какие угодно.

Код:

# Папка с файлами .xls
$folder = "C:\temp"
# Путь до конвертера
$converter = "C:\Program Files\Microsoft Office\root\Office16\excelcnv.exe"

# Запускать процесс только если в папке есть файлы .xls
if ($files = dir $folder -Include "*.xls" -Recurse) {
    # Конвертировать
    $files |% {
        & $converter -oice "$($_.FullName)" "$($_.FullName + "x")"
    }
    # Ожидание завершения процессов конвертации
    do {
        sleep 5
    } while (get-process excelcnv -ErrorAction SilentlyContinue)
    # Удалить оригинал, если есть соответствующий файл .xlsx и он не нулевого размера
    dir $folder -Include "*.xlsx" -Recurse |% {
        $xls = "$($_.DirectoryName)\$($_.basename).xls"
        if ($_.Length -ne 0 -and (Test-Path $xls)) {
            del $xls
        }
    }
}

[antivan]

в составе Офиса версии примерно с 2007 есть встроенный конвертер excelcnv.exe, и париться с ком-объектом Экселя уже не нужно, выше в теме было написано об этом. »

Видел, да. Но использование плохо документированной тулзы от майкрософта - моветон же. А скрипт с использованием ком-объекта - отработал несколько лет.

Никого ни к чему не призываю и не обязываю, естественно, просто таки созрел до публикации сайта, потихоньку выкладываю результаты своего "творчества". Не ахти что, но может кому-то будет полезно

[YuS_2]

Если есть идеи, как не гонять цикл, а отслеживать именно появление файла - было бы интересно посмотреть. »

http://forum.oszone.net/post-2926058-11.html

[antivan]

http://forum.oszone.net/post-2926058-11.html

Спасибо. Посмотрю

[antivan]

Интересно. Но, похоже, проще гонять цикл с опросом, а задержкой можно и нагрузку регулировать