Вставить VB скрипт в экспортированный xls - PullRequest
Новая
       47

Вставить VB скрипт в экспортированный xls

0 голосов
/ 17 октября 2018

Мое приложение экспортирует .xls с некоторыми данными.

Как мне установить скрипт VB для экспортированного xls из Delphi.

Объяснение:

Я использую CreateOleObject('Excel.Application') для его создания.

что .xls будет изменен пользователем и снова импортирован в приложение.

Я хочу, чтобы любая строка, изменяемая пользователем, была помечена как таковая.

Я смогчтобы добиться этого в Excel с помощью приведенного ниже сценария, но я не могу вставить этот сценарий при создании документа. 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 1 Then Cells(Target.Row, "I") = Now()
End Sub

Любые предложения по решению этой проблемы другим способом будут приветствоваться.

1 Ответ

0 голосов
/ 23 октября 2018

Мне удалось решить этот вопрос с помощью кода ниже: 

ExcApp := CreateOleObject('Excel.Application');
ExcApp.Visible := False;
ExcApp.WorkBooks.Add;
xVBComponente := ExcApp.WorkBooks[1].VBProject.VBComponents.Item('Planilha1');
xVBComponente.CodeModule.AddFromString(xMacro);
ExcApp.WorkBooks[1].SaveAs(pFileName, 52);

52 в "... SaveAs .." - это константа "xlOpenXMLWorkbookMacroEnabled".

КромеКод, который мне нужен, чтобы изменить некоторые конфиги Excel.ссылка для деталей: Excel Config

...