Выравнять ширину столбцов (колонок) в уже открытом файле Exel

[DyadyaGenya]

Доброго времени суток. Опять проблемы с уже открытым файлом эксель. Пробую выровнять колонки в уже открытом файле. Пробую сделать так:

#include <Excel.au3>
Local $sWorkbook = "path\name.xlsx"
Local $oWorkbook = _Excel_BookAttach($sWorkbook)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookOpen Example 1", "Error opening '" & $sWorkbook & "'." & @CRLF & "@error = " & @error & ", @extended = " & @extended & '  ошибка')
$oWorkbook.Columns('A:S' ).EntireColumn.AutoFit

В таком виде ругается

The requested action with this object has failed.:
$oWorkbook.Columns('A:S' ).EntireColumn.AutoFit
$oWorkbook^ ERROR

С файлом, который открывает сам скрипт все получается, если начинать с:

Local $oExcel = _Excel_Open()
.......
$oExcel.Columns('A:S' ).EntireColumn.AutoFit

 

[ra4o]

#include <Excel.au3>

Local $oExcel = _Excel_Open()
Local $sWorkbook = @ScriptDir&"\name.xlsx"
Local $oWorkbook = _Excel_BookAttach($sWorkbook)
$oExcel.Worksheets('Лист1').Columns('A:S').AutoFit
;Или так
$oExcel.Activesheet.Columns('A:S').AutoFit
;или так для всех колонок в активном листе
$oExcel.Cells.Columns.Autofit

 

[DyadyaGenya]

Local $oExcel = _Excel_Open()

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

Сообщение автоматически объединено: 26 Ноя 2020

Autofit

Этот параметр отвечает за автовыравнивание. А если хочу заданную ширину, или чтоб был перенос по словам? Где бы список этих параметров подсмотреть? В UDF сходу не нашел

 

[ra4o]

А если хочу заданную ширину, или чтоб был перенос по словам? Где бы список этих параметров подсмотреть? В UDF сходу не нашел

Это нужно не в UDF смотреть, а в документации к офису, там примеры есть, но на VB . В AutoIt тоже есть много констант, например для Excel можно посмотреть в файле "ExcelConstants.au3"

Сообщение автоматически объединено: 26 Ноя 2020

А если хочу заданную ширину

Попробуйте так:

$oExcel.Activesheet.Columns(3).ColumnWidth = 150

Сообщение автоматически объединено: 26 Ноя 2020

или чтоб был перенос по словам

Может так (не проверял)

$oExcel.Activesheet.Range('B2').WrapText = True

 

[DyadyaGenya]

Может так (не проверял)

Вроде оба примера получились по отдельности ) спасибо
Осталось их вместе применить к одному файлу. Буду пробовать.