ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Из Фокса узнать открыт ли нужный файл Excel
10 сообщений из 10, страница 1 из 1
Из Фокса узнать открыт ли нужный файл Excel
    #32689777
Dancer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dancer
Гость
Подскажите, если кто знает, как под управлением фокса узнать открыт ли нужный Excel-файл. Т.е. открыт файл MyFile.xls , как узнать открыт он или нет, в фоксе? Зараннее спаибо!
...
Рейтинг: 0 / 0
10.09.2004, 14:40
| Ответить | Цитировать | Написать  
Из Фокса узнать открыт ли нужный файл Excel
    #32689800
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AleksMed
Участник
Например с помощью вот такой функции

Function IsWindowExist

parameters WindowName

if parameters() = 0
WindowName = ''
else
WindowName = trim(WindowName)
endif

IsWindEx = 0

set library to sys(2004) + "Foxtools.fll"

mGetWinTxt = RegFn("GetWindowText", "I@CI", "I")
mGetWindow = RegFn("GetWindow", "II", "I")
mIsWinVis = RegFn("IsWindowVisible", "I", "I")

foxhwnd = MAINHWND()

hwndNext = CallFn(mGetWindow,foxhwnd,0)

do while hwndNext <> 0
if (hWndNext <> foxhWnd) and CallFn(mGetWindow,hWndNext,4) = 0 and CallFn(mIsWinVis,hWndNext) <> 0
Stuffer = space(64)
x = CallFn(mGetWinTxt,hWndNext,@Stuffer,64)
if WindowName $ Stuffer
IsWindEx = hWndNext
exit
endif
endif
hWndNext = CallFn(mGetWindow,hWndNext,2)
enddo

set library to

return IsWindEx
...
Рейтинг: 0 / 0
10.09.2004, 14:47
| Ответить | Цитировать | Написать  
Из Фокса узнать открыт ли нужный файл Excel
    #32689801
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
как вариант
gg=fopen('d:\MyExcel.xls)
if gg=-1
messagebox('Возможно файл открыт',48,'')
else
fclose(gg)
messagebox('Возможно файл закрыт',48,'')
endif
при условии что файл существует
...
Рейтинг: 0 / 0
10.09.2004, 14:47
| Ответить | Цитировать | Написать  
Из Фокса узнать открыт ли нужный файл Excel
    #32690092
Dancer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dancer
Гость
Спасибо большое! Вроде всё понятно.
...
Рейтинг: 0 / 0
10.09.2004, 16:24
| Ответить | Цитировать | Написать  
Из Фокса узнать открыт ли нужный файл Excel
    #32690352
Dancer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dancer
Гость
2 AleksMed: Я конечно извиняюсь, но не моглибы вы объяснить на двух пальцах как работает ваша вышеприведённая функция, т.е. что за функции RegFn("GetWindowText", "I@CI", "I") и RegFn("GetWindow", "II", "I"), RegFn("IsWindowVisible", "I", "I")? ну и т.д.
...
Рейтинг: 0 / 0
10.09.2004, 18:35
| Ответить | Цитировать | Написать  
Из Фокса узнать открыт ли нужный файл Excel
    #32691172
T0lik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
T0lik
Гость
По-моему если что-то в этот файл программно записыват лучше сделать так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Local loExcel, lcOldError, lnCount, llOpen
lcOldError=On("ERROR")
on error loExcel=.NULL.
loExcel=GetObject(,"Excel.Application") &&Проверяем открыт ли Ексель
on error &lcOldError
if isnull(loExcel)
	= MESSAGEBOX('Excel закрыт')
ELSE
	WITH loExcel
		llOpen=.F.
		FOR lnCount =  1  TO .Workbooks.Count && Перебираем открытые книги
			IF .Workbooks( 1 ).Name = "Filename.xls"
				llOpen=.T.
			ENDIF
		ENDFOR
	if llOpen
		= MESSAGEBOX('Файл открыт')
	else
		= MESSAGEBOX('Файл закрыт')
	endif
	ENDWITH
ENDIF
...
Рейтинг: 0 / 0
13.09.2004, 09:05
| Ответить | Цитировать | Написать  
Из Фокса узнать открыт ли нужный файл Excel
    #32705375
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Igor Korolyov
Участник
Это древний способ подключения WinAPI функций. Сегодня все пользуются
DECLARE DLL для этих целей :)

Posted via ActualForum NNTP Server 1.0
...
Рейтинг: 0 / 0
22.09.2004, 02:16
| Ответить | Цитировать | Написать  
Из Фокса узнать открыт ли нужный файл Excel
    #32709371
strizh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
strizh
Участник
Можно через канал DDE. Даешь lChan = DDEInitiate("Excel", "System"). Если прошло - значит Excel открыт. Дальше: stTopics = DDERequest(lChan, "Topics"). Если в stTopics есть имя твоего файла - он открыт.
Чуть медленновато только работают DDE-функции.
...
Рейтинг: 0 / 0
23.09.2004, 20:06
| Ответить | Цитировать | Написать  
Из Фокса узнать открыт ли нужный файл Excel
    #32709524
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Igor Korolyov
Участник
Да - ещё надо учитывать, что юзверь может открыть 2 и более экземпляров
Excel, так что сам Excel спрашивать почти бесполезно - я вообще не очень
представляю какой именно из множества экземпляров будет подцеплен по
GetObject(), и какой будет отвечать на DDE запросы...

Posted via ActualForum NNTP Server 1.0
...
Рейтинг: 0 / 0
24.09.2004, 01:15
| Ответить | Цитировать | Написать  
Из Фокса узнать открыт ли нужный файл Excel
    #32710218
strizh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
strizh
Участник
Только первый открытый Excel будет отвечать на lChan = DDEInitiate("Excel", "System"). Для второго и следующих нужно вместо "Excel" писать что-то другое. Мне иногда помогало "Excel2", "Excel3". А для WinMe - что-то типа "[Excel].1" - не помню точно.
...
Рейтинг: 0 / 0
24.09.2004, 12:51
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Из Фокса узнать открыт ли нужный файл Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]