Delphi, EXCEL и VBA

[munhauz]

Доброго дня.
есть такая вот проблема.
создаю выгрузку данных в EXCEL файл для дальнейшего работы с ними.
в это же файл, нужно добавить макрос, который отслеживает изменение в EXCEL файле и красит ячейки в другой цвет.

макрос есть

но вот как его приконектить к екселевскому файлу и заставить работать при открытии файла найти не могу
помогите кто чем может ):

[Serge_Bliznykov]

Сообщение от munhauz

но вот как его приконектить к екселевскому файлу и заставить работать при открытии файла найти не могу

это нужно сделать ручками в Excel или из Delphi ?

если ручками - тогда это легко: открывайте нужный файл, переходите в редактор VBA, вставляйте макрос в событие открытия книги, сохраняйте файл в формат книги с поддержкой макросов.

Как это сделать в Delphi - я не знаю.

[Aleksandr H.]

А нельзя выгрузку делать в шаблон ексель файла с уже прописаным макросом?

[munhauz]

Сообщение от Serge_Bliznykov

это нужно сделать ручками в Excel или из Delphi ?

если ручками - тогда это легко: открывайте нужный файл, переходите в редактор VBA, вставляйте макрос в событие открытия книги, сохраняйте файл в формат книги с поддержкой макросов.

Как это сделать в Delphi - я не знаю.

это нужно делать программно , если бы ручками то проблем не было бы

[munhauz]

Сообщение от Aleksandr H.

А нельзя выгрузку делать в шаблон ексель файла с уже прописаным макросом?

идея хорошая и это будет планом Б , но все таки хотелось бы без шаблонов

[Аватар]

VB:=ActiveWorkbook.VBProject.VBComponents.add(1);
VB.Name:=...;
VB.CodeModule.AddFromString(...);

[Serge_Bliznykov]

Сообщение от Аватар

ActiveWorkbook.VBProject.VBComponents.add(1)

Отлично!

кстати, поиском по этим ключевым словам нашлась тема на форуме:
http://www.programmersforum.ru/showthread.php?t=158557

[munhauz]

Сообщение от Аватар

VB:=ActiveWorkbook.VBProject.VBComponents.add(1);
VB.Name:=...;
VB.CodeModule.AddFromString(...);

на имя ругается при выполнении

[munhauz]

ура я ее победил

              for i := 1 to WorkBk.VBProject.VBComponents.Count do
                if WorkBk.VBProject.VBComponents.Item(i).name = 'ЭтаКнига' then
                  begin
                    if WorkBk.VBProject.VBComponents.Item(i).CodeModule.CountOfLines <> 0 then
                      WorkBk.VBProject.VBComponents.Item(i).CodeModule.DeleteLines(1, WorkBk.VBProject.VBComponents.Item(i).CodeModule.CountOfLines);
                    WorkBk.VBProject.VBComponents.Item(i).CodeModule.AddFromString('Option Explicit' + #13 + 'Dim vValue ' + #13 + ' Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)' + #13 + ' If Target.Count > 1 Then Exit Sub '
                        + #13 + ' If Target <> vValue Then Target.Interior.Color = vbRed ' + #13 + ' End Sub ' + #13 + #13 + 'Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)' + #13 +
                        ' If Target.Count = 1 Then vValue = Target ' + #13 + ' End Sub ');
                    WorkBk.VBProject.Saved;
                  end;
              
              XLApp.DisplayAlerts[0] := false;
              WorkBk.SaveAs(s, 52, pass, EmptyParam, EmptyParam, EmptyParam, 2, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0);

посмотреть что значит 52

посмотреть про saveas