Обращение к форме Excel с имитацией нажатия клавиш

@Виктор Михалыч · Регистрация: 08.01.2014

Author24 — интернет-сервис помощи студентам

При открытии файла Excel, этим кодом

Visual Basic

Sub Открыть() 'Путь к папке с программой
Dim N, n1 As String
Dim strPath As String
N = CurrentProject.Path 'Путь к папке с программой
n1 = CurrentDb.Name 'Путь к базе
strPath = N & "" & "Выборка Табеля.xlsm" 'Задаём путь к открываемому файлу
'Открываем файл
On Error Resume Next
Shell "Excel.exe """ & strPath & """", vbMaximizedFocus
End Sub

в этом файле запускается макрос при открытии, открывающий форму, для ввода пользователя и пароля. На кнопке прописана проверка и если все условия соблюдены, то нужные листы открываются и запускается ряд макросов.

Вопрос. Можно ли обратится к форме открытого файла Excel, из Access? Нужно выделить поле на форме, ввести туда пароль
и нажать кнопку! Или можно это решить как то по другому? Спасибо!

@Eugene-LS · 29.01.2017, 18:41

Сообщение от Виктор Михалыч

Нужно выделить поле на форме, ввести туда пароль
и нажать кнопку!

Вот такого я точно пока не делал! - ммм - не умею (но думаю что вполне возможно).

Открытие через "Shell" - вам точно такого сделать не даст.
в VBA - автоматтизация прложений MSO идёт обычно через объект Application.
И дальше - полный контроль.

mobile · 29.01.2017, 18:58

Сообщение от Виктор Михалыч

Вопрос. Можно ли обратится к форме открытого файла Excel, из Access? Нужно выделить поле на форме, ввести туда пароль
и нажать кнопку! Или можно это решить как то по другому?

Если форма модальная, то не так просто. Модальная форма не позволит что-либо сделать. И надо видимо перебирать процессы, находить нужный файл, искать в нем форму, узнать HWND текстбокса и только тогда записать в него пароль. Вообщем это лучше спросить у вбашников, ексельщиков.

Если же форма не модальная, то как уже сказал Eugene-LS, можно через автоматизацию. Вместо шелла примерно такой код, считая конечно, что форма открывается автоматом при загрузке ексель-файла

Visual Basic

    Dim app As Object, wrk As Object
    Set app = CreateObject("excel.application")
    app.Visible = True
    Set wrk = app.workbooks.Open("C:\путь\имяфайла.xlsm")
    Do Until True
        If Not app.UserForm1.IsVisible Then
            DoEvents
        End If
    Loop
    SendKeys "МойПароль"

@Виктор Михалыч · 29.01.2017, 19:06 **[ТС]**

Буду пробовать. Спасибо!

mobile · 29.01.2017, 19:12

Цикл

Visual Basic

    Do While True
        If Not app.UserForm1.IsVisible Then
            DoEvents
        End If
    Loop

лишний. Тем более, что он ошибочный. Вместо него надо несколько дуэвентсов

Visual Basic

1	DoEvents: DoEvents: DoEvents: DoEvents: DoEvents

@Eugene-LS 10473 / 5459 / 1375 Регистрация: 05.10.2016 Сообщений: 15,480
	29.01.2017, 18:41	2
	Сообщение от Виктор Михалыч Нужно выделить поле на форме, ввести туда пароль и нажать кнопку! Вот такого я точно пока не делал! - ммм - не умею (но думаю что вполне возможно). Открытие через "Shell" - вам точно такого сделать не даст. в VBA - автоматтизация прложений MSO идёт обычно через объект Application. И дальше - полный контроль. 2

@Виктор Михалыч 280 / 136 / 23 Регистрация: 08.01.2014 Сообщений: 635
	29.01.2017, 19:06 [ТС]	4
	Буду пробовать. Спасибо! 0

	29.01.2017, 19:12