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

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

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

No.1 ベストアンサー 回答者： xls88 回答日時： 2008/10/22 15:34

試しにマクロを組んでみました。

これで取れるかどうか試してみてください。

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

この回答へのお礼

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

お礼日時：2009/09/04 12:17

No.2 回答者： xls88 回答日時： 2009/03/15 11:30

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

この回答へのお礼

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

お礼日時：2009/09/04 12:17