Excel

[Fugitive]

В Excel можно сделать автоподбор ширины столбца (Формат -> Столбец -> Автоподбор ширины). Если посмотреть как это делается в макросе то вот :
Sub macros1()
Cells.Select
Range("R13").Activate
Selection.Columns.AutoFit
End Sub

Можно ли как-нибудь в лотусе сказать, чтобы у колонки был Autofit. Не пойму как обратиться....
В лотусе я создаю лишь один обьект:
Dim myExObj As Variant
Set myExObj = CreateObject("Excel.application")

 

[Medevic]

Да. Такими же методами, как и в VBA.
Например:

Dim myExObj As Variant 
Dim xlWbk As Variant
Dim xlSheet As Variant
Set myExObj = CreateObject( "Excel.Application" )
myExObj.Visible = True
Set xlWbk = myExObj.Workbooks.Add
xlWbk.ActiveSheet.Cells(1, 1) = "adas"
xlWbk.ActiveSheet.Range("A1").Columns.AutoFit

 

[Fugitive]

Спасибо большое !