D5 и листы Excell

[serjufa]

Проискал на многих форумах, но не нашел конкретных примеров на мои вопросы. В D5 программно

1. Определение кол-во листов в Excell
2. Удаление листа с определенным именем
3. Сортировка положений листов. Напр., [март 2002], [май 2005], [июнь 2005]
4. Запускать истинные макросы Excell. Речь идет не о простом запуске внешнего макроса, а о том, что я в программе завожу код на VB, динамически изменяя некоторые значения.

Если кто подскажет что-нибудь путное - буду очень

[Oldy]

1. WorkBook.Sheets.Count
2. WorkBook.Sheets("Определенное имя").Delete
3. Получить имена листов ( Sheets(n).Name), отсортировать, переместить листы в нужном порядке (Sheets("Лист4").Move After:=Sheets(4)) - например.
4. Может быть  эта статья поможет? http://www.compress.ru/Temp/1773/index.htm

[zubr]

Запускать истинные макросы Excell. Речь идет не о простом запуске внешнего макроса, а о том, что я в программе завожу код на VB, динамически изменяя некоторые значения.

Так в чем проблема. Программно проверяете наличие нужного макроса, если он есть удаляете его, генерируете в файл свой макрос, программно его добавляете в Excel и запускаете его.

[serjufa]

Допустим имеем код макроса
Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 29.07.2005 (SA)
'

'
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End Sub
Sub Макрос2()
'
' Макрос2 Макрос
' Макрос записан 29.07.2005 (SA)
'

'
    ActiveSheet.Shapes.AddLine(666.75, 400.5, 822#, 430.5).Select
    Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
    Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
    Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
    Selection.ShapeRange.Flip msoFlipVertical
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 708#, 285.75, 126#, 105.75). _
        Select
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
End Sub

теперь мне нужно его вогнать в текст проги и динамически менять цифири. И запускать так, чтоб на листе excel появился нужный результат

[zubr]

Чтобы ваш макрос вогнать в текст проги есть множество способов: загнать его в список TStringList, затем для добавления макроса в Excel, создать файл методом TStringList.SaveToFile; загнать данный текст в буфер, а затем создать поток TMemoryStream и записать его в поток; сразу создать файл и записывать данный текст в файл; загнать данный текст в ресурс, а затем выдрать его из ресурса с помощью TResourceStream. Как добавить сам макрос могу описать только приватно, так как у меня сейчас проект на данную тему в разработке, не хочу показывать исходники, пока со мной не рассчитаются.

[serjufa]

Как добавить сам макрос могу описать только приватно

Был бы очень благодарен