vbのリンク移動

2023/08/14 16:22

このQ&Aのポイント

vbでweb siteのリンクのリンク名に変数を指定したいのですがうまくきません。
どなたか教えていただけないでしょうか？
コードは以下のようになっています。

ベストアンサー

vbのリンク移動

2011/06/04 01:48

vbでweb siteのリンクのリンク名に変数を指定したいのですがうまくきません。どなたか教えていただけないでしょうか？コードは以下のようになっています。 Dim objIE Dim objShell Dim objLINK Dim j As Integer objShell = CreateObject("InternetExplorer.Application") objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True 'IEウィンドウを表示 objIE.Navigate2("http://www.data.jma.go.jp/obd/stats/etrn/index.php?prec_no=46&prec_ch=%90_%93%DE%90%EC%8C%A7&block_no=47670&block_ch=%89%A1%95l&year=2010&month=1&day=&elm=&view=") Do Until objIE.Busy = False Loop For j = 1 To 2 For Each objLINK In objIE.Document.Links If objLINK.InnerText = "2010年 & j & 月の日ごとの値を表示" Then objLINK.Click() Next j

omigawamachi
お礼率17% (4/23)

Visual Basic
回答数5
ありがとう数0

みんなの回答 （5）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

piroin654
ベストアンサー率75% (692/917)

2011/06/04 23:09 回答No.4

No2です。vbということですが、何のvbなのかわからないので、Excel、Access、vb6その他で一応動くであろうということで以下のようにコードを設定して動かしてみました。 Private Sub Command1_Click() Dim objIE As Object 'Dim objShell Dim objLINK Dim j As Integer 'objShell = CreateObject("InternetExplorer.Application") Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True 'IEウィンドウを表示 objIE.Navigate2 ("http://www.data.jma.go.jp/obd/stats/etrn/index.php?prec_no=46&prec_ch=%90_%93%DE%90%EC%8C%A7&block_no=47670&block_ch=%89%A1%95l&year=2010&month=1&day=&elm=&view=") Do Until objIE.Busy = False Loop For j = 1 To 2 For Each objLINK In objIE.Document.Links If objLINK.InnerText = "2010年" & j & "月の日ごとの値を表示" Then objLINK.Click End If Next objLINK Next j End Sub Dim objShell と、 objShell = CreateObject("InternetExplorer.Application") は必要ないのでコメントアウトしています。

その他の回答 (4)

piroin654
ベストアンサー率75% (692/917)

2011/06/04 23:16 回答No.5

No4の説明が一部抜けていました。質問では、 objIE = CreateObject("InternetExplorer.Application") となっていますが、 Set objIE = CreateObject("InternetExplorer.Application") のようにする必要があります。

DOUGLAS_
ベストアンサー率74% (397/534)

2011/06/04 22:57 回答No.3

＃＞[技術者向] コンピューター ▼ > プログラミング ▼ > Visual Basic ＃「vbのリンク移動」となっていますが、Excel の VBA ですよね！　コードの中に書かれているＵＲＬのページを開いて objLINK.InnerText = "2010年 & j & 月の日ごとの値を表示" となる「objIE.Document.Links」は「2010年1月の日ごとの値を表示」と記されているトコロ１ヶ所のみです。　こういう場合は、いちいち For Each objLINK In objIE.Document.Links ～～ Next で廻さなくても、最初から objIE.Navigate2 ("～～") の引数に「2010年1月の日ごとの値を表示」のリンク先、つまり～～.data.jma.go.jp/obd/stats/etrn/view/daily_s1.php?prec_no=46&prec_ch=%90_%93%DE%90%EC%8C%A7&block_no=47670&block_ch=%89%A1%95l&year=2010&month=1&day=&elm=daily&view= を指定すればよいかと存じます。　つまり、 For j = 1 To 12 ～～ Next j と書いていらっしゃるであろう部分につきましては、お好きな形で「○○年△△月」という数字を決めて、その「○○」と「△△」を「&year=2010&month=1」の部分に当てはめることになります。　例えば、「○○年」に当たる変数を「i」、「△△月」に当たる変数を「j」とすると、 objIE.Navigate2 ("http://www.data.jma.go.jp/obd/stats/etrn/view/daily_s1.php?prec_no=46&prec_ch=%90_%93%DE%90%EC%8C%A7&block_no=47670&block_ch=%89%A1%95l&year=" & i & "&month=" & j & "&day=&elm=daily&view=") ということになります。　ちなみに、前のご質問（http://okwave.jp/qa/q6782243.html）で＞サイトはアメダスの横浜の2010年の1月の日ごとのデータです＞たとえば気温のデータだけ取り出したいのですが可能でしょうか？とお書きですが、「Excel の VBA」でのお話しでしたら、[データ(D)] - [外部データの取り込み(D)] - [新しい Web クエリ(W)...] で、上記ページを開いて、当該のテーブルを取り込み、「気温のデータだけ」他のシートにコピペする、というようなことを、[新しいマクロの記録] で記録してみられてはいかがでしょうか？

piroin654
ベストアンサー率75% (692/917)

2011/06/04 18:29 回答No.2

For j = 1 To 2 と　Next j の間にいろいろなものが抜けているようですが。試していませんが、コードの流れから、 For j = 1 To 2 For Each objLINK In objIE.Document.Links If objLINK.InnerText = "2010年" & j & "月の日ごとの値を表示" Then objLINK.Click() End If Next objLINK Next j では？

Sinogi
ベストアンサー率27% (72/260)

2011/06/04 09:59 回答No.1

If objLINK.InnerText = "2010年 & j & 月の日ごとの値を表示" Then 上記コードは質問用ですか? 実際のコードが上記なら無理でしょう・・・

関連するQ&A

vb2010webページのリンクをクリック
vb2010でwebページのリンクをクリックしたいのがうまくいきません。「ホーム」などは選択することができるのですが、「翌月」などが選択できません。コードは以下のようになっています。どなたか教えていただけないでしょうか。 Dim objIE Dim objLINK objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True 'IEウィンドウを表示 objIE.Navigate2("http://www.data.jma.go.jp/obd/stats/etrn/view/daily_s1.php?prec_no=44&prec_ch=%93%8C%8B%9E%93s&block_no=47662&block_ch=%93%8C%8B%9E&year=2000&month=01&day=&view=p1") Do Until objIE.Busy = False Application.DoEvents() Loop For Each objLINK In objIE.Document.Links If objLINK.InnerText = "翌月" Then objLINK.Click() Do Until objIE.Busy = False Application.DoEvents() Loop Exit For End If Next
- 締切済み
- Visual Basic
VBのコードが理解できません　解説いただけないでしょうか？
Dim ObjIE As Object Dim ObjShell As Object Dim ObjWindow As Object Dim WinExist As Boolean WinExist = False Set ObjShell = CreateObject("Shell.Application") For Each ObjWindow In ObjShell.Windows If TypeName(ObjWindow.Document) = "HTMLDocument" Then 　WinExist = True 　Set ObjIE = ObjWindow End If Next Set ObjShell = Nothing If Not WinExist = True Then Set ObjIE = CreateObject("InternetExplorer.Application") End If ObjIE.Navigate "http://nantokakantoka.html" ObjIE.Visible = True このコードを解説いただけないでしょうか？特に WinExist For Each ObjWindow In ObjShell.Windows If TypeName(ObjWindow.Document) = "HTMLDocument" Then が何をしているのか分からないんです。
- ベストアンサー
- Visual Basic
VBでのContinueが間違っているとき
http://oshiete1.goo.ne.jp/qa4564345.htmlではありがとうございました。教わったことを参考にやってみたのですがうまくいきません。 Continueの部分がうまくいくPCといかないPCがあるのでどうしたらいいか分からなくなってしまいました・・・ Option Explicit Dim objIE Dim objShell Dim objWindow Dim WinExist Dim strURL Dim strURL2 Dim Flug strURL = "http://www.yahoo.co.jp/" strURL2 = "http://www.google.co.jp/" WinExist = False Set objShell = CreateObject("Shell.Application") For Each objWindow In objShell.Windows If TypeName(objWindow.Document) <> "HTMLDocument" Then Continue End If WinExist = True Set objIE = objWindow If objIE.LocationURL = strURL Then Flug = True Exit For End If Next If Flug = True Then msgbox "ヤフー存在" Else msgbox "別の処理を行なう" If WinExist = False Then 'IEが無い場合起動する Set objIE = WScript.CreateObject("InternetExplorer.Application") objIE.Navigate strURL2 objIE.Visible = True Set objIE = Nothing End If End If
- ベストアンサー
- Visual Basic
インターネットで調べてVBSで下のようなものを作ってみました。
インターネットで調べてVBSで下のようなものを作ってみました。やりたいことは、IEを起動して複数のサイトを複数のタブで表示したいのですが、サイトの種類分IEも起動してしまいます。考えているようなことはできないのでしょうか。＝＝＝＝＝＝＝＝ここから下です＝＝＝＝＝＝＝＝ Option Explicit Dim objIE Dim objShell 'Shell.Application Set objShell = CreateObject("Shell.Application") Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True 'IEウィンドウを表示 objIE.Navigate2 "http://www.okwave.jp/" Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True 'IEウィンドウを表示 objIE.Navigate2 "http://www.google.co.jp/" Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True 'IEウィンドウを表示 objIE.Navigate2 "http://www.yahoo.co.jp/" ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝よろしくお願いいたします。
- ベストアンサー
- その他（プログラミング・開発）
VBAでIE操作をするサンプル
VBAでIE操作をするサンプルをネットでいくつか見ているのですが Sub Sample1() Dim objShell As Object Dim objIE As New InternetExplorer Set objShell = CreateObject("Shell.Application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Set objIE = Nothing Set objShell = Nothing End Sub Sub Sample2() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Set objIE = Nothing End Sub ではどちらを使った方がいいのでしょうか？圧倒的にSample2の方がネットでは多いのですが Sample1のやり方もあることを知りました。 Sample1の方法でブラウザを開くメリットはあるのでしょうか？
- ベストアンサー
- Visual Basic
VBSでとある条件の時に処理をやらずに終了させる方法
VBSでとある条件の時に処理をやらずに終了させる方法で悩んでいます。 Dim ObjIE Dim ObjShell Dim ObjWindow Dim WinExist WinExist = False Set ObjShell = CreateObject("Shell.Application") For Each ObjWindow In ObjShell.Windows If TypeName(ObjWindow.Document) = "HTMLDocument" Then WinExist = True Set ObjIE = ObjWindow End If Next Set ObjShell = Nothing If Not WinExist = True Then Set ObjIE = CreateObject("InternetExplorer.Application") End If ・・・・例えばこのように起動しているIEを探しますそこでもしYahoo！JAPANが起動していたら以降の処理をやらずに終わらせたいのですが・・・どのような記述にすればよいでしょうか？
- ベストアンサー
- Visual Basic
objIE　　2個目のサイズが適用されません。
VBAです。 Dim objShell As Object Dim objIE As New InternetExplorer Const READYSTATE_COMPLETE As Long = 4 Sub test1() Set objShell = CreateObject("Shell.Application") objIE.Visible = True objIE.Top = 0 objIE.Left = 0 objIE.Width = 100 objIE.Height = 100 objIE.navigate "http://www.goo.ne.jp/" objIE.Navigate2 "http://www.goo.ne.jp/", 2048 Set objIE = Nothing Set objShell = Nothing Set objShell = CreateObject("Shell.Application") objIE.Visible = True objIE.navigate "http://www.goo.ne.jp/" objIE.Navigate2 "http://www.goo.ne.jp/", 2048 'できない objIE.Top = 20 objIE.Left = 20 objIE.Width = 100 objIE.Height = 100 Set objIE = Nothing Set objShell = Nothing End Sub のように二つのブラウザを立ち上げてサイズを変えたいのですが 2個目のサイズが適用されません。エラーにもなりません。なぜでしょうか?
- ベストアンサー
- オフィス系ソフト
【VBA】IEのリンクを新しいタブで開く
VBAでIEを制御しリンク（アンカー）<a href="***">を新しいタブで開くようにしたいのですが可能でしょうか？仮にグーグルのトップページ(http://www.google.co.jp/)の『検索オプション』(http://www.google.co.jp/advanced_search?hl=ja)を新しいタブで開くとします実際に開きたいリンクのURLは固定ではないためURLの指定では開けませんが、飛びたいリンクの文言（『検索オプション』）は固定ですリンクに飛ぶ前に飛ぶ先のURLを取得する仕方か、Shift+Ctrl+クリックのようにリンクを新しいタブで開く方法を教えてください一度普通にリンクに飛んでからURLを取得し、戻ってから新しいタブで開くぐらいしかできないのでしょうか？ Sub 新しいタブで開く() Dim objIE As Object Dim objShell Dim URL As String Set objShell = CreateObject("Shell.Application") For n = objShell.Windows.Count To 1 Step -1 Set objIE = objShell.Windows(n - 1) If Right(UCase(objIE.FullName), 12) = "IEXPLORE.EXE" Then objIE.Navigate "http://www.google.co.jp/" Exit For End If Next Set objShell = Nothing objIE.Visible = True Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop For Each Obj In objIE.Document.getElementsByTagName("a") If Obj.innerText = "検索オプション" Then Obj.Click Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop URL = objIE.Document.URL objIE.GoBack Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop objIE.Navigate URL, CLng(&H800) Exit For End If Next End Sub よろしくお願いいたします
- ベストアンサー
- オフィス系ソフト
WSHでタブ移動は可能ですか
WSHでブラウザーのある指定URLを開くまで実現できました(下記の例)が、タブキーで移動する操作を実現させ、移動した部分の文字がある特定の文字の時、またそこのURLに移動させたいのですが、可能でしょうか。 Set objIE = CreateObject ("InternetExplorer.Application") objIE.Navigate("about:blank") strURL = "http://・・・/" Set objShell = CreateObject("Wscript.Shell") objShell.Run(strURL)
- ベストアンサー
- その他（プログラミング・開発）
VBでのIE操作
VBでのIE操作をしようとして色々調べています。色んなサイトを見ながら途中までは何とかできましたが、どうしてもリンク先を表示できません。お分かりになる方いましたら、お力添えいただければ幸いです。状況： Excel2007使用　　IE7　　VB初心者です。やりたい内容： VBでIEを立ち上げる ↓ ページからリンクをクリックする（ページ上に画像が貼り付けてあって、そこにURLくっついててハイパーリンクになっている。）（セキュリティの関係でハイパーリンク先を初期で表示することはできない。） ↓ 表示されたページに検索したい項目を入力 ↓ 結果をエクセルに反映する。以上の作業をVBで組もうと思ってます。よろしくお願いします。 Option Explicit Sub IE_Test() 'IEの起動 Dim objIE As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True '処理したいページを表示します。 objIE.Navigate "（表示したいページ）" 'ページの表示待ち　　While objIE.readyState <> READYSTATE_COMPLETE Or objIE.Busy = True DoEvents Wend '開かれたIEを探す。 Dim objSHELL As Object Dim objWINDOW As Object Dim newIE As InternetExplorer '調べる項目に対して、、、 For yCNT = 3 To 102 ' If Trim(Cells(yCNT, 1)) = "" Then Exit For 'A列が空白になったらループを抜けるここがわからない。。。 (画像になっているハイパーリンクをクリックしたい、、、） 'シェルのオブジェクトを作成する Set objSHELL = CreateObject("Shell.Application") Set newIE = objSHELL.Windows(objSHELL.Windows.Count - 1) Set objSHELL = Nothing '念のため、新しいウインドウの表示を待つ While newIE.readyState <> READYSTATE_COMPLETE Or newIE.Busy = True DoEvents Wend 'ページが表示されたので、表示された文章に対して、処理を行います。 newIE.document.all("phone_no").Value = Cells(yCNT, 1) 'A列の文字を参照する newIE.document.all("exec").Click '表示されたウインドウ(newIE)からデータをセットする Cells(yCNT, 2) = newIE.document.body.innerText '検索の結果をエクセルに反映 '新しいIE(子IE)を閉じる newIE.Quit Set newIE = Nothing '前のIE（親IE）を閉じる　　objIE.Quit set objIE = Nothing Next yCNT End Sub 上記が現在までのできているコードです。ここにも色々間違いがある可能性もあります。ご指摘頂けましたら幸いです。よろしくお願いします。
- ベストアンサー
- Visual Basic