Shocker.ProТак, собственно, я пока не понял, в чем проблема.
а) Нужно открыть файл в новом, вновь созданном экземпляре экселя? Это можно сделать через CreateObject.
б) Нужно открыть файл во вполне определенном экземпляре экселя? Тогда чем определен этот экземпляр? Он запущен тобой программно? Тогда у тебя есть ссылка на этот объект.
Пользователь еще до того как начнет работать мой файл - наоткрывает кучу файлов и делает в них кучу изменений. Причем там могут быть и 1.xls и 1.xlsb и 1.xlsm...
У меня висит форма, перекрывающая весь экран. На форме кнопка-ссылка для открытия файла 1.xls.
Нажимаем кнопку, открывается файл. Но естественно не в моем приложении а в соседнем....
А пользователь наоткрывал уже штук 5 приложений и в том числе может быть открыт мой файл... а может быть и нет...
Ну активирую я програмно приложение Excel не совпадающее с моим... И через ShellExecute открою файл именно в нем...
(Кстати нигде не встречал упоминания о том, что ShellExecute для открытия файла excel выбирает именно активное окно приложения, долго думал и решил удостовериться и действительно получилось, только месяц думал как выделить окно соседнего приложения, а вот что касается FollowHyperlink - это большой вопрос )
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public PID_OPEN_FILE_1
Public strFullFileName$
Sub АКТИВИРУЕМ_ОКНО_СОСЕДНЕГО_ПРИЛОЖЕНИЯ_EXCEL_И_ОТКРЫВАЕМ_ФАЙЛ_В_НЕМ()
Dim WMI
Dim Process
Dim SQuery
Dim WShell '
Dim Processes 'Коллекция процессов
Dim Ret
Dim PID
'On Error Resume Next
strFullFileName = "C:\1.xls"
' //Соединяемся с WMI
If PID_OPEN_FILE_1 = Empty Then
MsgBox "попыток открытия файла с помощью данного макроса еще небыло"
Else
MsgBox "файл уже открывали"
End If
Set WShell = CreateObject("Wscript.Shell")
Set WMI = GetObject("winMgmts:")
PID = GetCurrentProcessId
'Формируем текст запроса
SQuery = "SELECT * FROM Win32_Process WHERE Name<>'EXPLORER.EXE'"
'Создаем коллекцию-результат запроса
Set Processes = WMI.ExecQuery(SQuery)
'Цикл по всем элементам коллекции
For Each Process In Processes
Ret = False
If Process.Caption Like "EXCEL.EXE" And Process.processid <> PID Then
Select Case PID_OPEN_FILE_1
Case Empty
'''для контроля записываем id-процесса, в котором открыли файл.
'''при последующем открытии файла будем перебирать все id-процесса - пока не найдем нужный
PID_OPEN_FILE_1 = Process.processid
Ret = WShell.AppActivate(Process.processid)
If Ret = True Then Ret = ShellExecute(0, "open", strFullFileName, 0, vbNullString, 5)
Case Process.processid
Ret = WShell.AppActivate(Process.processid)
If Ret = True Then Ret = ShellExecute(0, "open", strFullFileName, 0, vbNullString, 5)
End Select
End If
Next
Set WMI = Nothing
Set WShell = Nothing
End Sub
Но проблема то останется...
Если файл открыт не из моей программы:
1. то я точно не знаю в каком экземпляре приложения он уже может быть открыт
2. если он открыт именно в том экземпляре приложения, которое я выделил, то при открытии вылезает сообщение о том что файл открыт и при повторном открытии будут утеряны все изменения...
Есть у меня подозрение, что попытка открыть уже открытый файл - дает какую-то ошибку ... вот если бы эту ошибку перехватить и до по появления этого окошка - отменить его появление , и просто ограничится активацией окна приложения...
