Что нового

Как можно растянуть колонку до самой большой переменной в Excel ?

shyra1976

Новичок
Сообщения
71
Репутация
0
Код:
#include <Array.au3>
#include <Excel.au3>
#include <MsgBoxConstants.au3>

; Create application object and create a new workbook
Local $oAppl = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeWrite Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookNew($oAppl)
If @error Then
    MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeWrite Example", "Error creating the new workbook." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    _Excel_Close($oAppl)
    Exit
EndIf

; *****************************************************************************
; Write a 1D array to the active sheet in the active workbook
; *****************************************************************************
Local $aArray1D[3] = ["AAaaaaaaaaaaaaaaa", "BbbbbB", "CCbbbb"]
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aArray1D, "A3")
Local $aArray1D[3] = ["AAaaaaaaaaaaaaaaa", "BbbbbB", "CCbbbb"]
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aArray1D, "B3")
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeWrite Example 2", "Error writing to worksheet." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeWrite Example 2", "1D array successfully written.")

Как можно растянуть колонку до самой большой переменной в Excel ?
Спасибо
 

ildar

Осваивающий
Сообщения
246
Репутация
28
Если речь идет о изменении размера колонок то
Код:
$oExcel.Columns('A:F' ).EntireColumn.AutoFit ;колонки A-F
колонки будут под размер содержимого
 
Верх