Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4039 / 76807

←次へ　｜　前へ→


	【78396】Re:Iframe内のリンクを指定出来ない

γ - 16/8/8(月) 20:41 -


	引用なし

	パスワード

ご存じだと思いますが、VBAからIEを操作する関係は、
↓のサイトが有用です。
ht tp://www.ken3.org/cgi-bin/group/vba_ie.asp

frame関連は下記です。
ht tp://www.ken3.org/cgi-bin/group/vba_ie_frame.asp
ここらあたりを勉強されたらいかがでしょうか。

これだけだと何ですから、上記をもとにリンク先取得のコードを
書いてみました。

# あなたの場合にうまくいくかは不明です。
# こちらでテストした限りはOKでしたが、サイトにより色々な作り方がありますので。

-----------
Sub ie_frame()
　　
　　Dim objIE　　As InternetExplorer　 'ＩＥオブジェクト参照用

　　Set objIE = CreateObject("InternetExplorer.application")
　　objIE.Visible = True

　　objIE.Navigate "ht tp://・・・・" ' 対象となるサイトページ

　　'表示終了まで待つ
　　Do While objIE.Busy = True
　　　　DoEvents
　　Loop

　　Dim objFRAME As FramesCollection
　　Set objFRAME = objIE.Document.frames　'フレームの代入

　　Debug.Print "フレームの数は" & objFRAME.Length

　　'ドキュメントオブジェクトの代入
　　Dim objDOC　 As HTMLDocument　　　'HTMLドキュメント
　　Set objDOC = objFRAME(0).Document 'フレームのドキュメントをセット

　　Debug.Print objDOC.Links(0).href　'リンク先のurlを出力

End Sub

3 hits

▼

【78382】Iframe内のリンクを指定出来ない や 16/8/6(土) 17:15