Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как корректно открыть Excel, взять оттуда значение ячейки и ... [D5, D6, Paradox]

Weare © (2004-09-13 12:17:00)
День добрый, уважаемые мастера. Подскажите плиз.
Как корректно открыть файл Excel'я (передать в него пароль), взять оттуда значение ячейки и закрыть его. Я тут пробую, но у меня не получается пароль передать, и после закрытия программы остается зависший процесс

Weare (2004-09-14 11:07:00) [1]

> Rule © (14.09.04 08:57) [6]
> Weare (13.09.04 18:07) [5]
> Так у вас батенька дальнее связываение, а тут предполагалось
> ближнее ...

Извини, за такие вопросы, но что ты имел ввиду?

Rule (2004-09-14 08:57:00) [2]
Weare (13.09.04 18:07) [5]
Так у вас батенька дальнее связываение, а тут предполагалось ближнее ...

Weare (2004-09-13 18:07:00) [3]

>to Rule © (13.09.04 15:15) [4]

спасибо, я вообще убрал все параметры после пароля - ВСЕ РАБОТАЕТ!

Rule (2004-09-13 15:15:00) [4]
Это оно ругается на то что надо убрать один EmptyParam

Weare (2004-09-13 14:15:00) [5]
Спасибо, попробовал.
Ругается на строчку:

> Excel.WorkBooks.Open('c:\1.xls', EmptyParam, EmptyParam,
> EmptyParam, 'MyHyperPassword', EmptyParam, EmptyParam, EmptyParam,
> EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
> EmptyParam, EmptyParam);

- Недопустимое число параметров
Чего это ОНО?

Rule (2004-09-13 14:10:00) [6]
http://www.kornjakov.ru/stat.htm
вот ещё для общего развития и углубленного изучения данной темы

3APA3A (2004-09-13 12:56:00) [7]
Вот описание этой процедуры

WorkBooks.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad, OpenConflictDocument);

А работает это так.
program CoolProgram;
uses ComObj;
var Excel : OLEVariant;
begin
Excel := ComObj.CreateOleObject('Excel.Application');
Excel.WorkBooks.Open('c:\1.xls', EmptyParam, EmptyParam, EmptyParam, 'MyHyperPassword', EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
ShowMessage(Excel.ActiveWorkBook.Sheets[1].Cells[1, 1]);
Excel.Quit;
Excel := Null;
end.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »