[greg zakharov]

Через COM Excel.Application: открыли документ, перевели в нужный формат, сохранили результат. А ежели в системе не развёрнут офисный пакет, на коленке пишется парсер ФС xls файла, конвертирующий данные таблиц в xml с последующей упаковкой в zip и сменой расширения на xlsx (в случае с csv можно использовать методы БД). И третий вариант - онлайн конверторы. curl'ом слать файлы на конвертацию, и если возвращается статус 200 (или любой иной удачный, согласно API), забрать результат также curl'ом.

[Ent0ma]

Через COM Excel.Application: открыли документ, перевели в нужный формат, сохранили результат. »

Офисный пакет установлен, проблема в том что там на месте пользователи не очень то дружат с компом/экселем. А файлов в папке много, которые требуется пересохранить - выгрузка из 1С сохраняет всегда в xls. Идеальный вариант: пользователь запускает скрипт или он отрабатывает автоматически конвертируя все файлы xls в папке в xlsx. VBA не хочу, сколько будет стоить скрипт на posh?

[YuS_2]

сколько будет стоить скрипт на posh? »

он будет бесценным (ну или пару кружек пива)

Код:

param (
	$folderin = '.\TEST',
	$folderout = '.\OUT',
	$flt = '*.xls',
	$ext = '.xlsx'
)

$fldin = gi $folderin
if (!(test-path $folderout)){md $folderout|out-null}
$fldout = gi $folderout
$excel = new-object -com "Excel.Application"
dir $fldin.fullname -filter $flt -file|%{
	$workbook = $excel.workbooks.open($_.fullname)
	$newname = $fldout.fullname + '\' + $_.basename + $ext
	$workbook.saveas($newname, 51)
}
$excel.quit()

[greg zakharov]

YuS_2, дружище, ты забыл высвободить COM, только его экземпляр закрыл.

[Elven]

YuS_2, есть же beerware license

Вообще есть вот такой вариант
Сейчас нет возможности проверить, но скорей всего все это сделать можно будет в пару команд.

[YuS_2]

забыл высвободить COM, только его экземпляр закрыл. »

Да чего ему сделается? сессию закроют, объект попустит
Ну или добавить в конец скрипта, если принципиально:

Код:

[runtime.interopservices.marshal]::releasecomobject($excel)

есть же beerware license »

то шутка была... мне в реале хватает на пиво, чтобы за такие скрипты на пиво сшибать. Просто виртуального - можно похлебать...

[Elven]

YuS_2, beerware license не обязует пиво покупать, только намекает что автор кода не против этого.

[megaloman]

VBA не хочу »

А vbs?

Код:

BoxIn = "Z:\Box_In"
BoxInOld = "_Old.xls"

Set Book = CreateObject("Excel.Application")
Book.Visible = False 'True  ' False

With CreateObject("Scripting.FileSystemObject")
    If Not .FolderExists(BoxIn + "\" + BoxInOld) Then Call .CreateFolder(BoxIn + "\" + BoxInOld)
    
    For Each iFile In .GetFolder(BoxIn).Files
        If LCase(Right(iFile, 4)) = ".xls" And Not .FileExists(iFile + "x") Then
            With Book
                .Workbooks.Open iFile
                Call .ActiveWorkbook.SaveAs(iFile + "x", 51, , , , False)
                .ActiveWorkbook.Close
            End With
        End If
        .MoveFile iFile, BoxIn + "\" + BoxInOld + "\" + iFile.Name
    Next
End With
Book.Quit

[alpap]

Вообще есть »

не хочет он с xls работать:
---
Exception: C:\...\PowerShell\Modules\ImportExcel\7.1.2\Public\Import-Excel.ps1:99
Line |
99 | … throw "Import-Excel does not support reading this extensi …
| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
| Import-Excel does not support reading this extension type .xls
---