Блокировка процесса excel на время выполнения

[ZlydenGL]

Мдя, топик получился неинформативный - это мягко говоря

В двух словах - задача следующая:
создается объект
Set xls=CreateObject("Excel.Application")
И ведется с ним работа, допустим, просмотр данных.

Траббл возникает в случае если пользователь во время работы ЕХЕшника запускает свою книгу Ексель - она открывается в том же процессе. Это неудобно уже хотя бы потому, что пользователь может ее также случайно закрыть и прервать последовательность выполнения.

Вопрос такой: можно ли заблокировать Ёксель для открытия новых книг? Чтобы при щелчке юзера на книге во время выполнения кода система открывала новый процесс Ёкселя?

Спасибо!

[ZlydenGL]

Не канает. Открывает в том же окне - только что проверил.

Хм, интересно... Даже xls.Enabled = False не помогает!!!

[ANDLL]

Возможно, мой пример покажеться излишним, но тем не менее:

Код: Выделить всё


Option Explicit
Dim WithEvents xls As Excel.Application
Dim AllowOpen As Boolean

Private Sub Form_Load()
Set xls = CreateObject("Excel.Application")
xls.Visible = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
xls.Quit
End Sub

Private Sub xls_WorkbookOpen(ByVal Wb As Excel.Workbook)
If Not AllowOpen Then
    Dim NewApp As Excel.Application, nStr As String
    nStr = Wb.FullName
    Wb.Close False
    Set NewApp = CreateObject("Excel.Application")
    NewApp.Visible = True
    NewApp.Workbooks.Open nStr
End If
End Sub


[ZlydenGL]

ANDLL, FleX_2004 честно говоря не нашел в ваших кодах ничего, что касалось бы моего случая.

Еще раз ситуация - пользователь запускает мою программу (которая что-то там делает с одной из книг Excel) и не дожидаясь конца ее работы - запускает через проводник или через какой-нить коммандер другую книгу Excel. Получается что вторая книга открывается тем же процессом, с которым работает моя программа - соответственно во-первых меняются ссылки Activeworkbook, Activesheet (что не смертельно - код можно поменять), а во-вторых, если пользователь закроет свою книгу путем закрытия процесса (щелкнет мышой по самому верхнему крестику в Excel'е или нажмет Alt+F4), то вообще вырубит нормальное выполнение кода.

Вот такая вот загогулина...

[codemaster]

Вот такая вот загогулина...

Зацепи книгу Excel через ODBC

[Igor_123]

Код: Выделить всё

Option Explicit
Dim WithEvents xls As Excel.Application
Dim b As Excel.Workbook
Dim AllowOpen As Boolean
Dim i As Long

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Set xls = CreateObject("Excel.Application")
Set b = xls.Workbooks.Add
i = 1
'xls.Visible = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
b.SaveAs "d:\test.xls"
b.Close
Set b = Nothing
xls.Quit
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
b.Sheets.Item(1).Cells(i, 1).Value = i
i = i + 1
End Sub

Private Sub xls_WorkbookOpen(ByVal Wb As Excel.Workbook)
If Not AllowOpen Then
    Dim NewApp As Excel.Application, nStr As String
    nStr = Wb.FullName
    Wb.Close False
    Set NewApp = CreateObject("Excel.Application")
    NewApp.Visible = True
    NewApp.Workbooks.Open nStr
End If
End Sub



Бросишь на форму таймер и кнопку, запустишь программу и нажмиешь кнопку.
В это время открываешь, закрываешь, вообщем работаешь с екселем как надо, потом закрываешь программу и смотришь в корне диска D файл test.xls
При этом Dim WithEvents xls As Excel.Application можно объявить без WithEvents и убрать обработку открытия новой книги.
Проблема будет, если есть личная книга макросов скажет что файл занят и может быть открыть для чтения или пришлет уведомление о том когда освободят
А так все работает как часы
Удачи

[ZlydenGL]

ANDLL, извини, не просек сразу что у тебя переменная определяется через WithEvents.

Igor_123, ANDLL, ребят, вопрос такой - код отлично срабатывает только в случае если в открываемой пользователем нет залинкованных на другую книгу ячеек - в ином случае пользователю придется дважды давать команду выбора режима работы. Иначе никак не сделать?

[Igor_123]

А что насчет хелпа, ну или на крайний случай Object Browser

Function Open(Filename As String, [UpdateLinks], [ReadOnly], [Format], [Password], [WriteResPassword], [IgnoreReadOnlyRecommended], [Origin], [Delimiter], [Editable], [Notify], [Converter], [AddToMru], [Local], [CorruptLoad]) As Workbook
Member of Excel.Workbooks

[UpdateLinks]

А ещё есть

Код: Выделить всё

Application.DisplayAlerts = False

Не забудь по окончании сделать ему true

Перехват и обработка всех ошибок тебе тоже очень помогут.

Удачи!

[ZlydenGL]

Igor_123, насчет функции Open все понятно - за одним исключением: она вызывается процессом Excel внутри себя, так? И снаружи я ее в общем-то не перехвачу. И среди аргументов этой функции не нашел чего-то вроде "Больше в этом процессе ничего не открывать".

У меня получается что в момент обработки данных в электронной таблице создается процесс Excel, в котором и идет обработка. Внедрить доп. код в этот процесс я так понимаю не получится.

А вот за DisplayAlerts спасибо, кажется помогает Только по окончании делать ему True нет необходимости - в конце работы процесс выгружается из памяти и все