ник: Bellerofont
Странно вы пишите ...
Надо хотя бы так:
With objExcel
.ActiveCell.FormulaR1C1 = "Компания"
.Range("B1").Select
.Columns("B:B").ColumnWidth = 23.29
.Range("B1").Select
.ActiveCell.FormulaR1C1 = "Название"
.Range("B3").Select
End With
|
но Range и Columns я бы использовал для объекта Workshheet, а не для Application.
Видимо, если использовать Application, как у вас, то обращение будет к ActiveSheet