Скачать: CL | DM;

Как из 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, можно хранить в базе данных и менять его без перекомпиляции делфевой программы)

---

← →
jack128 ©   (2003-07-16 10:46) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c