はてな ダイアリー から 現在リダイレクトしているので、テストコードは動きません。
下記のような質問をもらいました。
>あるページの決まった位置で画面を表示させるには、どのようにするのかご教授してもらえませんか?
>各ページに、サイト名、URL、コメントがあって、これを随時入力するプログラムを作成中です。
>このとき、入力するBOXが、ページの下のほうなので、
>トップからかなりスクロールしなければなりません。
>入力をモニターしたいので、新しいページに飛んだときに、画面表示を入力の場所に移動するには、
>どのようにするのがいいでしょうか?
単純に .Focus すると、入力エリアを移動することができるので、
目的のエリア オブジェクト.Focus で 使ってみてください。
'表示位置を調整する
objIE.Document.getElementsByName("名前")(0).Focus 'フォーカスをセット
↑こんな感じで、簡単に使えると思います。
Option Explicit Sub ie_test() 'IEテストする。 'IEの起動 Dim objIE As Object '変数を定義します。 Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://d.hatena.ne.jp/ken3memo/20110102/1293921661" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。 DoEvents '重いので嫌いな人居るけど。 Wend '項目(name=xxxx)にセットする。 objIE.Document.getElementsByName("username")(0).Value = "テスト君" objIE.Document.getElementsByName("useremail")(0).Value = "test@ken3.org" objIE.Document.getElementsByName("body")(0).Value = "ここにコメントを書く" & vbCrLf & "改行" & Now() '表示位置を調整する objIE.Document.getElementsByName("body")(0).Focus 'フォーカスをセット End Sub
テストの結果、テスト動画
テストの動画 http://www.youtube.com/watch?v=E5S16C1LnMw
www.youtube.com
↑いつもの混乱ぶりを笑ってくださいね。