помогите с Excel

[АндрейБ]

Помогите с Excel.
Напишите код как создать новый документ с одним листом в определенной папке с определнным названием.
Потом открыть его и занести любую ячейку значение и сохратить.
Я мучаюсь уже час и что-то плохо получается. Уже голова болит.

[GSerg]

dim t as long

t=application.sheetsinnewworkbook
application.sheetsinnewworkbook=1
with workbooks.add
.worksheets(1).cells(1,1).value="Гы!"
.save "c:\1.xls"
.close
end with
application.sheetsinnewworkbook=t

[mr.first]

а можно так

Код: Выделить всё

Private Sub Form_Load()

    Dim exl As Object
    Set exl = CreateObject("Excel.Application")
    exl.Workbooks.Add
    exl.ActiveWorkbook.SaveAs ("C:\new.xls")
    For i = 1 To exl.Sheets.Count Step 1 'перебор страниц
        If exl.Sheets(i).Name = "Лист1" Then
            exl.Sheets(i).Cells(3, 1).Value = "text" 'вставляем текст
        End If
    Next i

    exl.ActiveWorkbook.Save
    exl.ActiveWorkbook.Close (0)
   
End Sub


[АндрейБ]

Спасибо.
Еще интересует:
- как удалить лист из книги
- как определить формат ячейки
- как определить цвет шрифта ячейки и цвет фона ячейки
- объеденение ячеек
- обводка ячеек линиями
- как определить высоту строки и ширину столбца


Заранее спасибо.

[uhm]

Нажимаешь кнопку "Запись макроса", выполняешь нужное действие и смотришь код, там все *кристально* ясно. Вместо действий типа "определить" используешь "изменить" (т. е., например, изменяешь цвет фона ячейки, а потом в коде смотришь, какая property поменялась).

[tyomitch]

Сервис -> Макрос -> Начать запись.

Сделай что тебе надо, и потом изучай сгенерировавшийся код.

[АндрейБ]

Я там и пишу:
все гениальное просто!

[uhm]

...это называется "хором"...