VBAのプログラムに関する質問です

質問

WEBを開いてマウスをプログラムで移動します。
リンク先があるテキストやバナーの上にマウスが来ると
パソコンの画面上（最下部）にURLが表示されます。
マウスを移動してURLが変わるたびに、それをエクセルのセルの中に格納していきたいのですが
その方法がわかりません。
プログラムは初心者です。
できるだけわかりやすく教えてもらえれば幸いです。

x=100,y=100,i2=1,i3=1,i4=1
for i=1 to 200　　　　
SetCursorPos i, y
d="a"+cstr(i2)
d1="b"+cstr(i3)
d2="c"+cstr(i4)
'----------------------------------------------------------
ここでURLが変われば、ｘ、ｙ、URLを入手
sheets("zahyou").range(d)=x
sheets("zahyou").range(d1)=y
sheets("zahyou").range(d2)=URL
i2=i2+1
i3=i3+1
i4=i4+1
'----------------------------------------------------------

next

初心者過ぎててすみません。
なにとぞ回答のほどよろしくお願いいたします。

回答No.3

mitarashi · ベストアンサー

#2です。ご要望に応えると、下記の通りです。終了条件が面倒になるので、A2セルに1を入力すると、終了する様にしてあります。
ただ、本当になさりたいことは違うように思います。
Webページから、ある条件を満足するリンクを取得して、FollowHyperlinkしたいという事なら、WebページのHTMLを取得して、リンクを抽出し、目的の条件に合致するか調べる方法もあります。
方法決め打ちで質問をするとかえって遠回りになる場合もあります。ご検討下さい。

Dim objIE As Object
Dim destRange As Range

Sub watchStart2()
Set objIE = CreateObject("InternetExplorer.Application")
Set destRange = Sheets("Sheet1").Range("A1")
objIE.Visible = True

objIE.Navigate "http://okwave.jp/qa/q6624710.html"
While objIE.ReadyState <> 4 Or objIE.Busy = True
DoEvents
Wend
watchIEstatus2
End Sub

Sub watchIEstatus2()
Dim myStatusText As String

myStatusText = objIE.StatusText
If Left(myStatusText, 4) = "http" Or Left$(myStatusText, 4) = "ftp" Then
destRange.Value = myStatusText
End If
If destRange.Offset(1, 0) <> 1 Then
Application.OnTime Now() + TimeValue("00:00:01"), "watchIEstatus2"
Else
objIE.Quit
Set objIE = Nothing
End If
End Sub

お礼

ありがとうございます。

各ボタンの座標を予めエクセルに表を作り格納しておき
それらを必要な時に参照して、マウスを移動してクリック→次のアクション
それの集合体でＷＥＢを開いて、競馬の投票（ＩＰＡＴ）をするプログラムはすでに作成してます。
買い方は、私なりの理論をプログラムに移植したものでです。

出来あがってから実際毎週走らせていますが、今のところ土曜日の朝に走らせたら日曜日の最終レースまで、締切１分前で各レースを買ってくれてます。
しかしながら、ものすごく原始的で、
クリックしてから違うリンク先の画面表示がしっかりなされてるかの確認は、ページをエクセルのシートにコピペして、とか・・・

sendkeys"{tab}"
を使うにしても,tab30とかになると目標のボタンに辿りついてないとか・・
これは単に私の未熟さ、からなんですが。
それを補正するために

for i=1 to 30
sendkeys"{tab}"
call jikan1'現在の時間から一秒経過させる
next

とかで解決するしかできませんでした。

クリックしてリンク先の画面を表示するのに、クリックしてから８秒待つとか
その８秒なんかに確固たる根拠はなく、何回も試してるうち８秒なら大丈夫だろう
みたいな、感覚的なものでした。

そんな状況の中、今回教えていただいた「navigate」なんかは、目を疑うほどのものでした
サンプルには「他にもお宝がいっぱい！！！」
というのが本音です。

今現在は、やっとＷＥＢを完全にコントロールするプログラム作成の入り口に立った
くらいの私です。
教えていただいた内容は、私がやりたいことの一部ですが
２つのサンプルをあれこれいじってみて、勉強を始めていきたいと思ってます

入口に立った時に、みなさんに出会えたことを感謝いたします。
ここで躓くと、これ以上先には進めませんでした。
本当にありがとうございます。

これからも、皆さんにとっては「くだらない・とるにたらない」
そんな質問をすることになりますが、その時はどうか見捨てないでください。
勝手なお願いばかりですみません。

回答No.2

mitarashi

面白そうなので、Web検索してみてみつかった参考URLのコードを、エクセルVBAで動くようにアレンジしてみました。
「花ちゃん」さん、失礼いたします。
watchStart()の方を実行してみて下さい。
但し、古いIE限定です。IE7以降は一工夫必要な様ですが、当方試験できる環境がありませんので、下記等を参考にしてみて下さい。こちらはIE制御に関する定番の情報源です。
http://www.ken3.org/cgi-bin/group/vba_ie7.asp

'IEのステータスバーに表示されるURLを、アクティブなブックのSheet1のA列に記入
'VBAで使える適当なタイマーを知らないので、Application.Ontimeで、1秒に一回読み込んでいます。
'A列にENDという文字を入れてあるセルの上まで書き込むと終了します。

Dim objIE As Object
Dim myDic As Object
Dim destRange As Range

Sub watchStart()
Set objIE = CreateObject("InternetExplorer.Application")
Set myDic = CreateObject("Scripting.Dictionary")
Set destRange = Sheets("Sheet1").Range("A1")
objIE.Visible = True

objIE.Navigate "http://okwave.jp/qa/q6624710.html"
While objIE.ReadyState <> 4 Or objIE.Busy = True
DoEvents
Wend
watchIEstatus
End Sub

Private Sub watchIEstatus()
Dim myStatusText As String

myStatusText = objIE.StatusText
If Left(myStatusText, 4) = "http" Or Left$(myStatusText, 4) = "ftp" Then
'連想配列で同じURLを何度も書き込まないようにチェックしています
If Not myDic.Exists(myStatusText) Then
myDic.Add myStatusText, ""
destRange.Value = myStatusText
Set destRange = destRange.Offset(1, 0)
End If
End If
If UCase(destRange.Value) <> "END" Then
Application.OnTime Now() + TimeValue("00:00:01"), "watchIEstatus"
Else
Set myDic = Nothing
objIE.Quit
Set objIE = Nothing
End If
End Sub

参考URL：

http://hanatyan.sakura.ne.jp/patio/read.cgi?no=191

お礼

大変参考になりました。
ここで質問をするのが初めてでした。
まだ初心者の私が、的確な質問をすることもできませんでした。

それをくみ取っていただいた上に、物凄く参考になる回答をいただけて本当にうれしいです。
ありがとうございました。
これで、やりたいことが少し前進しました。

実はここで更に甘えてたいのですが
あのプログラムだとA列の下に向かって格納していきます。
また、一度格納したURLは再度ダブっては格納されません。

現在のマウスが乗っかったURL（ダブっても構わないです）をA１にだけ格納したいのですが
教えていただけないでしょうか？

先ほどいただいたプログラムと、今回との違いでプログラムの仕方の勉強をさせてください。
どうかお願いします。

回答No.1

imogasi

WEBを開いて
WEBをあなたのパソコンの画面に表示しているのは、ブラウザというソフトのはず。インターネットエクスプローラーなどが多い。このことを理解してますか。HTML文に基づいてブラウザが表示している。
ーー
このIEをエクセルVBAを使って扱うのは、難しいと思いますよ。
よほどの「VBAだけでない広く知っている」熟練者で無いとね。
URLを開くとかまでなら、WEBにコードが多数転がってますが。
ましてマウスのポインターを操って人間が操作するのを、プログラムでやるなんて、相当熟練の人（APIを使い慣れている人で無いと出来無いと思います。私もできませんが、相当基礎から勉強しないとと言うことは判ります。）
そういう（スクリプトなどで画面操作を人間に代わってプログラムが自動でおこなう）ソフトが無いか調べてみるのも手です。
ーー
エクセルVBAに関するかぎり、、そちらも、つい先日本を読んだばかりのレベルではないですか？
もしそうなら、この質問の全体で言うことの実現など、今後勉強して、してはるか先でしょう。

お礼

ご指摘の通りです。
まだ本を開いたばかりの初心者です。

やっとのことで、エクセル画面にスタートボタンを置き
そこからWEBを開いてマウスを移動・クリックできるところまできました。
WEBは時々、デザインやボタンの位置が変わるので、
固定した座標でマウスを移動しても、どうしてもズレてしまいます。
そこで考えたのが、マウスを順々に移動させて目的のURLにリンクされてるのを確認してからクリックさせることでした。

上級者にもなれば、もっと高度な発想とプログラムができることと思いますが
今現在の私の能力では、これが限界です。

また都合のいい話なんですが、
一から勉強してるのではなくて、やりたいことに必要なものしか勉強してません。
これから質問も増えていくと思いますが、どうか温かい目で見てやってください。

ありがとうございました。