2017年08月29日

Excel VBAによるIE自動制御を急遽学習しています

storage.mantan-web.jp_images_2017_05_21_20170521dog00m200017000c_001_size8.jpg

しばらく気付かないうちにネットに「Excel VBAによるIE自動制御」に関するサイトがたくさん増えていました。

読んでみるとなかなかいいので急遽学習することにしました。

「Excel VBAによるIE自動制御」については今井式競馬予想ツールでプログラムを書いて実行していますが、もっと効率的にできそうです。

次のプログラムはコマンドボタン1をクリックするとグーグルの検索を自動でやってくれるサンプルプログラムです。
----------------------------------------------------------
Private Sub CommandButton1_Click()

Dim objIE As Object

'IE起動
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True

'Googleに接続
objIE.navigate "http://www.google.co.jp/"

'IEを待機
Call IEWait(objIE)

'n秒停止
Application.Wait Now + TimeValue("00:00:02")

'検索窓に「百島」と入力
objIE.Document.getElementById("lst-ib").Value = "百島"

'n秒停止
Application.Wait Now + TimeValue("00:00:05")

'検索ボタンを押す
Call IEButtonClick(objIE, "Google 検索")

'n秒停止
Application.Wait Now + TimeValue("00:00:05")

'IE終了
'objIE.Quit

'Set objIE = Nothing

End Sub

'ボタンを押す関数
Public Function IEButtonClick(ByRef objIE As Object, buttonValue As String)
Dim objInput As Object

For Each objInput In objIE.Document.getElementsByTagName("INPUT")
If objInput.Value = buttonValue Then
objInput.Click
Exit For
End If
Next
End Function

'リンクをクリックする関数
Function IELinkClick(ByRef objIE As Object, ByVal anchorText As String)
Dim objLink As Object

For Each objLink In objIE.Document.getElementsByTagName("A")
If objLink.innerText = anchorText Then
objIE.navigate objLink.href
Exit For
End If
Next
End Function


'IEを待機する関数
Public Function IEWait(ByRef objIE As Object)
Do While objIE.Busy = True
DoEvents
Loop
End Function
----------------------------------------------------------

IEが自動で起動して、グーグルのページを開いてくれて、検索欄に百島が入力されて実行され、百島の検索結果がIEに表示されます。

そのうちこのブログも自動化するかもしれません。

面白いですねえ。

posted by tsurutsuru at 05:03| Comment(0) | 日常茶飯事

2017年08月28日

ディープラーニングも重回帰分析もタグチメソッドも少しだけ休止中です

storage.mantan-web.jp_images_2017_05_21_20170521dog00m200017000c_001_size8.jpg

ディープラーニングや重回帰分析やタグチメソッドはどうなったのか? やめたの?

いやまだまだ続けますが、残暑が厳しいので休止中です。

と夏の暑さのせいにしときます。

やりたいことがたくさんあり過ぎてほんと困りますね。

頭の優秀な方が羨ましいですね。では。



posted by tsurutsuru at 04:52| Comment(0) | 日常茶飯事

2017年08月27日

今日は虫の話を一日のテーマにしますね

storage.mantan-web.jp_images_2017_05_21_20170521dog00m200017000c_001_size8.jpg

鈴虫のことを書いたので今日は一日虫をテーマにした話を投稿しますね。

では。

posted by tsurutsuru at 09:48| Comment(0) | 日常茶飯事