|
こんばんは。
>>リンク先にも投稿はしてありますが、
>>>参照設定で
>>>「Microsoft HTML Object Library」をチェックしてください
>
>はい、こちらのチェックも、もちろん入れました。
ならば・・・、
Thisworkbookのモジュールに
'==============================================
Option Explicit
Public WithEvents docu As HTMLDocument
Private Sub docu_ondeactivate()
CreateObject("WScript.Shell").SendKeys "{ENTER}"
End Sub
標準モジュールにあつしさんが投稿されたコードを変更して・・・、
Sub sample()
Dim objIE As Object
Dim objItem As Object
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Visible = true
.navigate "HTTP://ここに本来のurl"
Do While .Busy = True Or .readyState <> 4
Loop
' ↑ここは、想像です
Set ThisWorkbook.docu = .document
For Each objItem In ThisWorkbook.docu.all
If objItem.tagName = "INPUT" Then
If objItem.Value = "投 票" Then
objItem.Click
Exit For
End If
End If
Next
End With
End Sub
これでHtmldocumentのエラーが発生しますか?
>>最近は、公共的なサイトは定期的に内容を変えている場合もありますら・・・。
>
>何で定期的に内容を変えるんですかね?追っかけるのが大変です。
そりゃあ、自動化出来れば、悪用も出来ますからねえ!!
それを防ぐためではないですか??
|
|