Как из Delphi выполнить код VBA в Excel?

← →
jack128 © (2003-07-15 21:56) [0]

Вот такой код выполняется без ошибок, но должного эффекта не дает..
const Macro = "Range("A12").Select"#13#10+ "For Counter = 1 To 20"#13#10+ " Selection.EntireRow.Insert"#13#10+ "Next Counter"; var ExcelApp, Sheet : OleVariant; begin ExcelApp := CreateOleObject("Excel.Application"); ExcelApp.EnableEvents := False; Sheet := ExcelApp.Workbooks.Open("F:\Лист Microsoft Excel.xls").Sheets[1]; Sheet.Activate; ExcelApp.RecordMacro(BasicCode := Macro); ExcelApp.Visible := True; end;

← →
Тих (2003-07-15 22:10) [1]

1) Зашить код в сам документ
2) Выполнить метод Application.Run (см. справку. В 97 ёкселе параметры в этот метод передать нельзя, в 2000-м - можно аж 40 штук)
3) Или приделать к своей программе Microsoft Script Control, который позволяет гибко во время выполнения интерпретировать VB_шный код (сам код для, например, формирования отчетов в Word или Excel, можно хранить в базе данных и менять его без перекомпиляции делфевой программы)

MSScript OLE Control Module - это оно, да?(ActiveX компонент)

Как из Delphi выполнить код VBA в Excel? Найти похожие ветки