Хочу на почту @yandex.ru через vba загрузить .pdf файл, нажимаю "Обзор" -> появляется диалоговое окно выбора файла и код vba перестает выполняться, потому что программа ждет ответа пользователя, когда я сам вручную выберу файл для загрузки. А я хочу через vba в диалоговом окне выбора файла (отловив окно через hwnd)написать имя файла(скорее полный путь+имя файла) и нажать кнопку открыть. Но не знаю как(написать имя файла для загрузки и нажать на кнопку открыть).
Итак 2 вопроса:
1) как сделать, чтоб не прерывалось выполнение кода макроса при появлении диалогового окна выбора файла
2) когда я определю окно через hwnd, можно ли будет написать полный путь & имя файла не через sendkeys а как-нибудь по другому? (и потом нажать энтер тоже не через sendkeys?)
Помогите, пожалуйста!
| Код |
|---|
Sub Загрузить_документ()
Dim i, i1, j, k
Dim Shell As Object
Dim Wins As Object
Dim WinItem As Variant
Dim objCollection As Object
Dim cnt
Dim Doc As Object 'InternetExplorer
SiteURL = "https://mail.yandex.ru/?uid=23207361&login=<мой логин>#compose"
Set Shell = CreateObject("shell.application")
cnt = 0
For Each WinItem In Shell.Windows
If WinItem.LocationURL Like Left(SiteURL, 30) & "*" Then
Set Doc = Shell.Windows(cnt).document
Exit For
End If
cnt = cnt + 1
Next
For i = 0 To Doc.getelementsbytagname("label").Length - 1
If Doc.getelementsbytagname("label")(i).Title = "Прикрепить файлы с компьютера" Then
Doc.getelementsbytagname("label")(i).Click 'после клика появляется диалоговое окно выбора файла
SendKeys "проверяю пишется ли у меня название файла", True ' не пишется, диалоговое окно выбора файла заблокировало выполнение кода, пока я ручками не выберу файл
SendKeys "{ENTER}", True
' также естественно макрос не доходит до строк ниже
hwnd = poiskokna("Выбор выкладываемого файла")
Do While (hwnd = 0 And countIter < 60)
hwnd = poiskokna("Выбор выкладываемого файла")
countIter = countIter + 1
Loop
MsgBox "все ок"
End If
Next i
End Sub
' ниже подфункция поиска окна по названию окна
Public Function poiskokna(TitleFind As String) As Long
Dim winTitle As String * 256, cnt As Long, hwnd As Long
Const GW_HWNDNEXT = 2
Const GW_CHILD = 5
hwnd = GetDesktopWindow&
hwnd = GetWindow(hwnd, GW_CHILD)
Do While hwnd <> 0
cnt = GetWindowText(hwnd, winTitle, 255)
If InStr(1, winTitle, TitleFind) > 0 Then
poiskokna = hwnd
Exit Do
End If
hwnd = GetWindow(hwnd, GW_HWNDNEXT)
Loop
End Function
|
1) как сделать, чтоб не прерывалось выполнение кода макроса при появлении диалогового окна выбора файла
2) когда я определю окно через hwnd, можно ли будет написать полный путь & имя файла не через sendkeys а как-нибудь по другому? (и потом нажать энтер тоже не через sendkeys?)
Помогите, пожалуйста!
Изменено: - 25.03.2017 20:49:24
