Использование макроса для создания снимка экрана веб-сайта, а затем его вставка - PullRequest
Новая
       64

Использование макроса для создания снимка экрана веб-сайта, а затем его вставка

0 голосов
/ 10 октября 2018

Я пытаюсь сделать снимок экрана с веб-страницей, указанной ниже, а затем вставить ее в слово.У меня есть немного кода, который должен это сделать, но каждый раз, когда он запускается, он выдает окно ошибки hwnd = 0.Может кто-нибудь указать мне, где я иду не так, пожалуйста.

Веб-страница: https://www.makro.co.za/groceries-and-toiletries/protex-/br-soap-deep-clean-/br-1-x-150g--338971001EA

Sleep 5000

'~~> Get the caption of IE
IECaption = "Protex Soap Deep Clean (1 x 150g)- Lowest Prices & Specials Online | Makro - Internet Explorer"

'~~> Get handle of IE
hwnd = FindWindow(vbNullString, IECaption)

If hwnd = 0 Then
    MsgBox "IE Window Not found!"
    Exit Sub

1 Ответ

0 голосов
/ 10 октября 2018

ShellWindows - это окна Internet Explorer и File Explorer. 

Set objShell = CreateObject("Shell.Application")
Set AllWindows = objShell.Windows
For Each window in AllWindows
    msgbox window.locationname & vbcrlf & typename(window.parent) & vbcrlf & window.name
Next

Или объект window выше, являющийся объектом IE. 

Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate2 "www.google.com.au"
ie.visible=true
wscript.sleep 5000
ie.refresh2
...