PowerShell

Iska · Отправлено: **17:22, 13-01-2016** | #2

Цитата:

Код:

$excel.Run('Sub orientPage()
With ActiveDocument.PageSetup
If .Orientation <> wdOrientPortrait Then
.Orientation = wdOrientPortrait
Else
.Orientation = wdOrientLandscape
End If
End With
End Sub')

Непонятно, причём тут процедура для Microsoft Word? В Excel константа «xlLandscape» из перечня «XlPageOrientation» равна 2. Уберите это.

Используйте:

Код:

$worksheet.PageSetup.Orientation = 2

Не проверялось.

Ubiquiti · Отправлено: **18:41, 13-01-2016** | #3

Спасибо за помощь вот почти готовый код

Код:

$excel = new-object -comobject excel.application
$excelFiles = Get-ChildItem -Path D:\fso -Include *.xls, *.xlsm -Recurse
Foreach($file in $excelFiles)
{
 $workbook = $excel.workbooks.open($file.fullname)
 $worksheet = $workbook.worksheets.item(1)
 $worksheet.PageSetup.Orientation = 2
 $workbook.PrintOut()
 $excel.ActiveWorkbook.SaveAs($file) 
 $Excel.Workbooks.Close()
}
$excel.quit()

но проблема в том что он сохраняет в туже папку и предлагает заменить файл как можно автоматически согласиться и почему то в диспетчере задач остаются excel.exe файлы по 6Мб

И еще Iska такой вопрос может подскажите, где посмотреть параметры к примеру перевернуть страницу или еще какие функции может excel через командную строку

Iska · Отправлено: **23:07, 13-01-2016** | #4

Цитата Ubiquiti:

но проблема в том что он сохраняет в туже папку и предлагает заменить файл »

Используйте просто «.Save()». У Вас же нормально было:

Цитата Ubiquiti:

Код:

…
$workbook.save()
…

»

Цитата Ubiquiti:

где посмотреть параметры к примеру перевернуть страницу »

В описании объектной модели Excel.

Самое простое — запишите макрос потребных действий. Затем откройте модуль с записанным текстом макроса. Найдите потребное место — метод или свойство. В данном случае это может выглядеть так:

Скрытый текст

Стать курсором на этот метод/свойство и нажать F1.

Цитата Ubiquiti:

и почему то в диспетчере задач остаются excel.exe файлы по 6Мб »

Особенности работы с Automation со стороны PowerShell по отношению к Excel. Похожая проблема наблюдалась и в WSH JScript (куда в конце концов добавили отдельный метод под это дело). Более опытные коллеги подскажут, как после «.Quit()» «сказать» сборщику мусора PowerShell, что можно освободить память от этого объекта. Я практически не работаю с PowerShell и очень слабо его знаю.

Цитата Ubiquiti:

через командную строку »

Это не командная строка, это Automation (OLE Automation - Wikipedia, the free encyclopedia).

Ubiquiti · Отправлено: **06:30, 14-01-2016** | #5

Окончательный вариант

Код:

$excel = new-object -comobject excel.application
#откуда берем файлы
$excelFiles = Get-ChildItem -Path D:\fso -Include *.xls, *.xlsm -Recurse
#в цикле перебираем файлы из указанной папки
Foreach($file in $excelFiles)
{
 $workbook = $excel.workbooks.open($file.fullname)
 $worksheet = $workbook.worksheets.item(1)
# переворачиваем страницу в ландшафтный вариант (портретный 1 поставить надо)
 $worksheet.PageSetup.Orientation = 2
# печатаем на принтер по умолчанию
 $workbook.PrintOut()
# сохраняем 
 $excel.ActiveWorkbook.Save($file) 
 $Excel.Workbooks.Close()
}
$excel.quit()

Iska · Отправлено: **11:28, 14-01-2016** | #6

Цитата Ubiquiti:

# сохраняем $excel.ActiveWorkbook.Save($file) »

Просто «.Save()», без «$file». Он всё равно игнорируется (даже если не сообщает об ошибке): Workbook.Save Method (Excel).