excel - 将 VB 脚本插入导出的 xls

Question

我的应用程序导出带有一些数据的 .xls。

我如何设法将一些 VB 脚本放入从 Delphi 导出的 xls 中。

解释：

我正在使用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

任何以不同方式解决该问题的建议都将受到欢迎。

Answer 1

我能够用下面的代码解决这个问题：

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);

“...SaveAs..”中的 52 是常量“xlOpenXMLWorkbookMacroEnabled”。

除了代码之外，我还需要它来更改一些 excel 配置。详情链接： Excel 配置