エクセルに貼り付けた入力フォームの中身を、別のセルに移したい

質問

例えば、YAHOOトップページの検索フォームの周りなどをコピーして、エクセルに貼り付けると、入力フォームもエクセルに貼り付けられるのですが、このフォーム内のテキストを別のセルに移し変えられるような、計算式かマクロを組みたいと考えております。

上記のような仕組みの設計について、詳しく説明してあるページなどありましたら、ご教授いただけないでしょうか。

回答No.1

xls88 · ベストアンサー

試しにマクロを組んでみました。
これで取れるかどうか試してみてください。

Sub test入力フォームテキスト()
　　Dim fomobj As Object
　　Dim i As Integer

　　For Each fomobj In ActiveSheet.OLEObjects
　　　　i = i + 1
　　　　MsgBox ActiveSheet.OLEObjects(i).Object.Value
　　Next
End Sub

ここなんかどうでしょう。
三流君VBAでIE操作 InternetExplorer.Applicationを操作する
http://www.ken3.org/cgi-bin/group/vba_ie.asp

お礼

ご回答有難うございます！

回答No.2

xls88

Sub test入力フォームテキスト2()
　　Dim fomobj As OLEObject

　　For Each fomobj In ActiveSheet.OLEObjects
　　　　If fomobj.Name Like "HTMLText*" Then
　　　　　　MsgBox fomobj.Object.Value
　　　　End If
　　Next
End Sub

お礼

ご回答有難うございます！