Dim objExcel As Object, wb As Object, rng As Object
Set objExcel = CreateObject("Excel.application")
objExcel.Visible = True
Set wb = objExcel.Workbooks.Add
Set rng = wb.WorkSheets(1).Range("A1")
rng.Value = "Компания"
With rng.Offset(,1)
.EntireColumn.ColumnWidth = 23.29
.Value = "Название"
End With
Set rng = Nothing
Set wb = Nothing
Set objExcel = Nothing
|