hpサイトの情報をtxtで保存するには (ID:78238)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こういう事でしょうか？ Option Explicit Private Sub Form_Load() '別途プロジェクト→コンポーネントで Microsoft Internet Control に 'チェックを入れてWebBrowserコントロールをフォームに貼り付けて下さい。 'HTMLファイルを表示 WebBrowser1.Navigate "http://www.bcap.co.jp/hanafusa/top.htm" End Sub Private Sub Command1_Click() Text1.Text = WebBrowser1.Document.body.innerText End Sub