Здравствуйте, emergenter, Вы писали:
E>Добрый день. Хочу получить доступ к текущему открытому документу (книге) MS Excel.
E>Понятно как открыть книгу из файла и как создать новую книгу. А как получить доступ именно к текущей, уже открытой книге, чтобы уже в нее делать запись данных? Реально ли такое?
GetActiveObject(CLASS_ExcelApplication, nil, unk)
var
unk: IUnknown;
xl: ExcelApplication;
xlWb: ExcelWorkbook;
xlSh: ExcelWorksheet;
i, j: Integer;
m: TMenuItem;
begin
Assert(Assigned(Menu), '{4729A6A2-C2A4-4C1E-B867-6A3A885D275C}');
Assert(Assigned(Items), '{EE2EF752-B6C6-4662-AB15-E29FEE06D096}');
NewCursorGuard();
Items.Clear; // очищаем меню
Holders.Clear; // очищаем контейнеры
try
// работаем только с активным экземпляром, не знаю как получить ВСЕ отрытые
if Succeeded(GetActiveObject(CLASS_ExcelApplication, nil, unk)) then
try
if Supports(unk, ExcelApplication, xl) then
for i := 1 to xl.Workbooks.Count do begin// важно, именно с 1
xlWb := xl.Workbooks{.Item}[i];
