VBA IE操作で情報が取れない 削除
| Message#4 2019年12月12日(木)08時44分 From: vbavbavba |
| frame使っているからかもしれませんね。 frameのURL先が分かれば、直接アクセスして同じように取得したら、全部取得できますが、frame要素を取得してからouterHTMLするとセキュリティの問題で取得できなかったような気がします。 > vbavbavbaのメッセージ(#2)への返事 > > IEの右ボタンクリック→ソースの表示で出力した内容は > <html> > <head> > | > </head> > <body> > | > </body> > </html> > と内容がすべて見れるのですが… > > For iAllCnt = 0 To objAll.Length - 1 > Debug.Print objAll(iAllCnt).outerHTML > Next > からは以下しか出ません。 > --------------------------------------------------------------- > <HTML lang=ja><HEAD><META content="IE=5.0000" http-equiv="X-UA-Compatible"> > <TITLE>マイタウンクラブ</TITLE> > <META content=no-cache http-equiv=pragma> > <META content=no-cache http-equiv=cache-control> > <META content="text/html; charset=shift_jis" http-equiv=content-type> > <META name=keywords content=施設予約,施設管理,講座,イベント,地域コミュニティー,マイタウンクラブ,地域指導者,団体グループ,活動情報,チュータ,チケット> > <SCRIPT type=text/javascript src="js/jquery-1.8.2.min.js"></SCRIPT> > > <SCRIPT type=text/javascript> > var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www."); > document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E")); > </SCRIPT> > > <SCRIPT type=text/javascript src="https://ssl.google-analytics.com/ga.js"></SCRIPT> > > <SCRIPT type=text/javascript> > var pageTracker = _gat._getTracker("UA-2312552-1"); > pageTracker._initData(); > pageTracker._trackPageview(); > </SCRIPT> > > <SCRIPT type=text/javascript> > $(function(){ > spflg = 0; > try{ > var url = location.href; > params = url.split("?"); > if (params.length != 0){ > paramms = params[1].split("&"); > var paramArray = []; > for ( i = 0; i < paramms.length; i++ ) { > val = paramms[i].split("="); > paramArray.push(val[0]); > paramArray[val[0]] = val[1]; > } > if ( paramArray["viewmode"] == "pc") { > spflg = 1; > } > } > }catch( e ){ > } > if (spflg == 0){ > var agent = navigator.userAgent; > if(agent.search(/iPhone/) != -1 || agent.search(/iPad/) != -1 || agent.search(/iPod/) != -1 || agent.search(/Android/) != -1 || agent.search(/Windows Phone/) != -1 || agent.search(/BlackBerry/) != -1 || agent.search(/Windows CE/) != -1){ > if(agent.search(/Android 2/) == -1){ > redirect(); > } > } > } > }); > function redirect(){ > if(window.confirm('スマートフォン向けサイトを表示しますか？')){ > location.href = "index_sp.jsp"; > } > } > </SCRIPT> > </HEAD><FRAMESET frameSpacing=0 border=0 frameBorder=0 rows=0,* noresize><FRAME noResize src="blank.html" scrolling=no><FRAME src="ssoMenu.do?displayNo=index&dbInstanceNo=1"><NOFRAMES></NOFRAMES></FRAMESET></HTML> > --------------------------------------------------------------- > > > > 出力内容とはどのようにちがうんですか？ > > > > > お世話になります。 > > > > > > https://www.mytownclub.com/navi-mtc/index.jsp > > > に対して、 > > > > > > Sub Main() > > > > > > Dim objIE As InternetExplorer > > > Set objIE = New InternetExplorer > > > > > > objIE.Visible = True > > > objIE.navigate "https://www.mytownclub.com/navi-mtc/index.jsp" > > > > > > Sleep 1000 > > > > > > Dim htmlDoc As HTMLDocument > > > Set htmlDoc = objIE.document > > > > > > Set objAll = objIE.document.all > > > > > > For iAllCnt = 0 To objAll.Length - 1 > > > Debug.Print objAll(iAllCnt).outerHTML > > > Next > > > End Sub > > > > > > で出力した内容と > > > > > > IEの右ボタンクリック→ソースの表示で出力した内容が > > > 違うのですが… > > > > > > やりたいのはソースの表示の内容に操作したいのですが > > > やり方はあるのでしょうか？ |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
