VBAでWebページにセルの値を入力

質問

エクセルＶＢＡを用いて指定したセルの値を
表示中のWebページにあるテキストエリア等(よくある入力フォーム)に入力する
というものを作りたいのですが、
IEとの連携がよくわかりません。

似たようなもので、googleページを自動で開き、
テキストエリアに検索語句を入力し、ボタンを押す
というもののソースがありました。
下記のページの３番です。
http://www.hatena.ne.jp/1137216805

これを応用できるかなと思ったのですが、
うまくいきません。

・表示中のページに入力したいので
ie.Navigate ("http://www.google.co.jp/")
この部分が必要ありません。

呼び出したページではなく、表示中のページを
ie.document.allの対象にするにはどうすればよいのでしょうか？

また、他にも良いやり方がありましたら、教えてください。

よろしくお願いします。

回答No.2

Wendy02 · ベストアンサー

こんばんは。

＞そのまま貼り付けるとコンパイルエラーになってしまいました

たぶん、参照設定をしていないのだと思います。貼り付けてそのままできるわけではありません。

CreateObjectで、オブジェクトを作ってもよいけれども、IEの場合は、参照設定のほうがよいかと思います。

お礼

参照設定をしました思い通りに実行することができました。
大変参考になりました。ありがとうございました！

回答No.1

Wendy02

こんにちは。

たぶん、これでいけると思います。
その後が難しいと思いますが、後は、がんばってください。

'-------------------------------------------------
Sub IETest()
'参照設定:Microsoft InternetControls
Dim objIE As InternetExplorer
'参照設定:Microsoft Shell Controls and Automation
Dim objShell As Shell
Dim WinFlg As Boolean
Dim objWin As Object
Dim AllLog As Object

On Error GoTo EndProcess
Set objShell = New Shell

For Each objWin In objShell.Windows
　If TypeName(objWin) = "IWebBrowser2" Then
　　 WinFlg = True
　　 Set objIE = objWin
　　 Exit For
　End If
Next
Set objShell = Nothing

If WinFlg = False Then
　MsgBox "IEオブジェクトが取得できません", vbCritical
　Exit Sub
End If
EndProcess:
If Err() > 0 Then
　MsgBox Err.Description
End If
With objIE
　Set AllLog = .Document.all
　'ここから探し出してください。
End With
Set objIE = Nothing
End Sub

お礼

回答ありがとうございます。

このソースはどのように使えばいいのでしょうか？
そのまま貼り付けるとコンパイルエラーになってしまいました。