Текущий архив: 2003.07.31;
Скачать: 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 вся ветка
Текущий архив: 2003.07.31;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.018 c
