| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
открыт ли уже *.xls файл [D5]
knastya © (2006-11-09 02:09:00)Подскажите, пожалуйста.
Стоит задача записать данные из Дельфи в экселевскую таблицу. Если вдруг таблица уже открыта в самом экселе на момент записи, данные не будут сохранены в ней. Соответсвенно, перед тем, как записывать в таблицу, хотелось бы узнать, не открыта ли она уже.
Делаю:
ExcelApp := CreateOleObject('Excel.Application');
b:=false;
i:=1;
n:=ExcelApp.Application.WorkBooks.count;
while (not b) and (i<=n) do
begin
b:=(ExcelApp.Application.WorkBooks[i].Fullname= fileName);
inc(i);
end;
Так вот, n=0, если эксель запущен и в нем открыты таблицы.
А как мне тогда увидеть, что файл открыт?
knastya (2006-11-09 22:22:00) [1]to [2]
Спасибо, заработало.
Правда не понимаю, как теперь отсоединится от excel, чтобы его при этом не закрыть (ну ведь с ним кто-то предположительно работает).
ExcelApp.Application.Quit; <----вот здесь закрывается
ExcelApp:=unassigned;
umbra (2006-11-09 13:17:00) [2]прошу прощения, конечно же
RenameFile(newfile, oldfile);
umbra (2006-11-09 13:08:00) [3]лучше записать данные в новую книгу, закрыть ее, попытаться удалить файл со старыми данными. Если он открыт, то удалить его не удастся. Если закрыт, то он удалится и можно переименовывать новый файл. Что-то наподобие
if FileExists(oldfile) then
repeat until DeleteFile(oldfile);
RenameFile(oldfile, newfile);
Пользоваться приведенным кодом не стоит, это только иллюстрация.
MetalFan (2006-11-09 08:19:00) [4]сначала
GetActiveOleObject('Excel.Application')
если что-то вернуло - то это запущенный экземпляр excel... возможно с открытыми файлами
ЮЮ (2006-11-09 07:30:00) [5]вместо inc(i); следует if not b then inc(i);
Не стоит терять с таким трудом найденный индекс
if b then
oткрыт ExcelApp.Application.WorkBooks[i]
на n можно и не смотреть
| |
