Форум на Исходниках.RU

Как узнать, что файл Excel уже открыт?

Fantasist — Wed, 31 Dec 2003 16:07:43 +0000

Fantasist:

Цитата

n0wheremany, 30.12.03, 07:54
if StrPas(buff)='Microsoft Excel - '+NameFile then result:=true;

Берешся гарантировать, что во всех случаях и версиях Excel заголовок будет иметь такой же вид?

Как узнать, что файл Excel уже открыт?

Voice — Tue, 30 Dec 2003 10:04:27 +0000

Voice: мне все равно, где файл открывается...
дело в том, что моя программа просто должна обновлять данные в каком-то файле (вып. процедуры RefreshAll для сводной таблицы) и не важно, где он лежит (путь указывается в качестве параметра)
Я это делаю через ексель. Т.е. я его сначала открываю в скрытом виде (visible:=false), а потом начинаю сканить все книги, листы и сводные таблицы, а потом сохраняю. Если файл уже кем-то занят, то невидимый ексель выдает невидимое собщение с предложением сохранить этот файл под другим именем (все свойства типа DisplayAlerts, AlertBeforeOverwriting равны false, но он все равно продолжает показывать эти сообщения) и получается, что программа зависла (для юзера), хотя она просто ждет, когда же этот юзер наконец нажмет на невидимый ОК.
Поэтому я проверяю его свойство ReadOnly, если оно true, значит оно кем-то открыто (не обязат. Может просто иметь такое св-во)...
Я думаю, самы лучший вариант, это предложение filh+Voice
if FileOpen('e:\1.xls', fmShareExclusive)>=0 then
if FileExists('e:\1.xls') then
обрабатываем......

Как узнать, что файл Excel уже открыт?

Song — Tue, 30 Dec 2003 09:01:03 +0000

Song: Правильно, а зачем окнам появляться на Comp2 если он открывается с Comp1!
Мы что, сканим на предмет окон с Comp2 ?

Как узнать, что файл Excel уже открыт?

filh — Tue, 30 Dec 2003 08:52:41 +0000

filh: Song,

Цитата

Петрович от 30.12.03, 11:00
Если файл лежит на компе \\COMP1\ и открыт на компе \\COMP2\, то на компе \\COMP1\ никаких окон не появляется.

Об этом я и говорил.

Как узнать, что файл Excel уже открыт?

Петрович — Tue, 30 Dec 2003 08:00:01 +0000

Петрович:

Цитата

Song, 30.12.03, 09:12
А что, от этого окна не появляется?

Если файл лежит на компе \\COMP1\ и открыт на компе \\COMP2\, то на компе \\COMP1\ никаких окон не появляется.

А еще, можно открыть файл через COM интерфейс, не порождая при этом окон.

Как узнать, что файл Excel уже открыт?

n0wheremany — Tue, 30 Dec 2003 07:54:46 +0000

n0wheremany:

Цитата

n0wheremany
Я уже думал об этом, но это не рационально... Можно конечно и все процессы просмотреть и всю память просканировать. А еще можно и картинку с экрана "снять", а потом поискать на ней текст, где есть что-то похожее на имя нужного файла и, если что-то нашлось, то значит, файл занят.... (это был сарказм)
Но можно сделать все намного проще, главное поискать (а если не нашел, то спросить у кого-то, кто знает.... КТО ЗНАЕТ)

Это ты зря память сканить не надо!

function tform1.listprocesses:string;

VAR

Wnd : hWnd;

buff: ARRAY [0..127] OF Char;

begin

result:='';

Wnd := GetWindow(Handle, gw_HWndFirst);

WHILE Wnd <> 0 DO

BEGIN {Не показываем:}

IF (Wnd <> Application.Handle) AND {-Собственное окно}

IsWindowVisible(Wnd) AND {-Невидимые окна}

(GetWindow(Wnd, gw_Owner) = 0) AND {-Дочернии окна}

(GetWindowText(Wnd, buff, sizeof(buff)) <> 0) {-Окна без заголовков}

THEN BEGIN

GetWindowText(Wnd, buff, sizeof(buff));

if result='' then result:=' '+StrPas(buff) else result:=result+'#13#10'+' '+StrPas(buff);

END;

Wnd := GetWindow(Wnd, gw_hWndNext);

END;

end;

Вот адаптированная для тебя

function tform1.ExcelFileOpen(NameFile:string):boolean; {без расширения}

VAR

Wnd : hWnd;

buff: ARRAY [0..127] OF Char;

begin

result:='';

Wnd := GetWindow(Handle, gw_HWndFirst);

WHILE Wnd <> 0 DO

BEGIN {Не показываем:}

IF (Wnd <> Application.Handle) AND {-Собственное окно}

IsWindowVisible(Wnd) AND {-Невидимые окна}

(GetWindow(Wnd, gw_Owner) = 0) AND {-Дочернии окна}

(GetWindowText(Wnd, buff, sizeof(buff)) <> 0) {-Окна без заголовков}

THEN BEGIN

GetWindowText(Wnd, buff, sizeof(buff));

if StrPas(buff)='Microsoft Excel - '+NameFile then result:=true;

END;

Wnd := GetWindow(Wnd, gw_hWndNext);

END;

end;

Проверь и посмотри!!

Добавлено в 30.12.03, 07:58:
Чуть чуть ошибся

function tform1.ExcelFileOpen(NameFile:string):boolean; {без расширения}

VAR

Wnd : hWnd;

buff: ARRAY [0..127] OF Char;

begin

result:=false; {<<<<<<<<<<<}

Wnd := GetWindow(Handle, gw_HWndFirst);

WHILE Wnd <> 0 DO

BEGIN {Не показываем:}

IF (Wnd <> Application.Handle) AND {-Собственное окно}

IsWindowVisible(Wnd) AND {-Невидимые окна}

(GetWindow(Wnd, gw_Owner) = 0) AND {-Дочернии окна}

(GetWindowText(Wnd, buff, sizeof(buff)) <> 0) {-Окна без заголовков}

THEN BEGIN

GetWindowText(Wnd, buff, sizeof(buff));

if StrPas(buff)='Microsoft Excel - '+NameFile then result:=true;

END;

Wnd := GetWindow(Wnd, gw_hWndNext);

END;

end;

Как узнать, что файл Excel уже открыт?

Song — Tue, 30 Dec 2003 06:12:56 +0000

Song:

Цитата

filh, 30.12.03, 07:50
А если придется открывать файл по сети? Что тогда?

А что, от этого окна не появляется?

Как узнать, что файл Excel уже открыт?

filh — Tue, 30 Dec 2003 04:50:33 +0000

filh:

Цитата

n0wheremany от 29.12.03, 15:45
Если файл открыт, то открыто окно!!
>>> Поищи окна (задачу)

А если придется открывать файл по сети? Что тогда?

Как узнать, что файл Excel уже открыт?

Voice — Mon, 29 Dec 2003 13:17:41 +0000

Voice:

Цитата filh @ 29.12.03, 08:39

Нашел :)

FileOpen('e:.xls', fmShareExclusive);

Я уже немного по-другому сделал :)
if Excel.WorkBooks[1].ReadOnly then.....

Добавлено в 29.12.03, 13:29:

Цитата filh @ 29.12.03, 08:39

Нашел :)

FileOpen('e:.xls', fmShareExclusive);

Я уже немного по-другому сделал ;)
if Excel.WorkBooks[1].ReadOnly then.....
Но скорее, воспользуюсь твоим методом, т.к. Excel.WorkBooks[1].ReadOnly возвратит true, даже если файл никем не открыт, но просто имеет атрибут "для чтения"
а если FileOpen('e:\1.xls', fmShareExclusive)<0 можно проверить и на существование файла
например
if FileOpen('e:\1.xls', fmShareExclusive)<0 then
if FileExists('e:\1.xls') then
................
спасибо :rolleyes:

n0wheremany
Я уже думал об этом, но это не рационально... Можно конечно и все процессы просмотреть и всю память просканировать. А еще можно и картинку с экрана "снять", а потом поискать на ней текст, где есть что-то похожее на имя нужного файла и, если что-то нашлось, то значит, файл занят.... (это был сарказм) :angry:
Но можно сделать все намного проще, главное поискать (а если не нашел, то спросить у кого-то, кто знает.... КТО ЗНАЕТ) <_<

Как узнать, что файл Excel уже открыт?

n0wheremany — Mon, 29 Dec 2003 12:45:13 +0000

n0wheremany: Чел, юзай череп (свой)!
Если файл открыт, то открыто окно!!

>>> Поищи окна (задачу)

Как узнать, что файл Excel уже открыт?

filh — Mon, 29 Dec 2003 08:39:42 +0000

filh: Нашел :)

FileOpen('e:.xls', fmShareExclusive);

При возвращении -1 файл открыт, все что >0 никто не использует.
Делаешь проверку перед открытием и все.
Для примера взят файл 1.xls
Но! если файла не существует, FileOpen будет <0

Как узнать, что файл Excel уже открыт?

Voice — Fri, 26 Dec 2003 07:58:46 +0000

Voice: так временных папок, куда он файлы сохраняет, может быть куча и все их проверить просто нереально, т.к. придется все просматривать и пересматривать.... Точнее не нереально, а не рационально. Слишком долго это все будет сканиться и проверяться
Нет ли флага какого, что файл занят или как-то еще?

Как узнать, что файл Excel уже открыт?

Guest — Thu, 25 Dec 2003 13:06:30 +0000

Guest: так временных папок, куда он файлы сохраняет, может быть куча и все их проверить просто нереально, т.к. придется все просматривать и пересматривать.... Точнее не нереально, а не рационально. Слишком долго это все будет сканиться и проверяться
Нет ли флага какого, что файл занят или как-то еще?

Как узнать, что файл Excel уже открыт?

filh — Thu, 25 Dec 2003 10:27:57 +0000

filh: Voice, а как же Exсel понимает, что файл уже открыт? Может где то во временной директории создается файл???
Да, файл создается, но для просмотра его не существует!
Может на мысль натолкнет

Как узнать, что файл Excel уже открыт?

Voice — Thu, 25 Dec 2003 08:55:37 +0000

Voice: Там этого нету......

Как узнать, что файл Excel уже открыт?

QUE — Wed, 24 Dec 2003 13:42:50 +0000

QUE:

Цитата

Voice, сегодня в 15:20

В FAQ .... И читать ... читать ....

Как узнать, что файл Excel уже открыт?

Voice — Wed, 24 Dec 2003 12:20:26 +0000

Voice: мне надо обрабатывать екселевские файлы, но только если он не открыт еще никем.
Как можно проверить, что его кто-то уже открыл?

ЗЫ. И как можно сделать, чтобы ексель не спрашивал при сохранении, куда и что сохранять, а просто сохранял, куда скажут (программно) и в каком формате?