VBA IE操作で情報が取れない

最近の書き込み件数: 今日 0件、昨日 0件
未読分:4件

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降(0) 2日前以降(0) 3日前以降(1) 4日前以降(1) 5日前以降(1)


Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田 伸矢, 植木 悠二, 上田 寛

IEのデータ収集&自動操作のプログラミング本はこの1冊だけ!IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

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の右ボタンクリック→ソースの表示で出力した内容が
> > > 違うのですが…
> > >
> > > やりたいのはソースの表示の内容に操作したいのですが
> > > やり方はあるのでしょうか?

Message#3 2019年12月5日(木)19時32分
From: oldmac
返事 変更
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の右ボタンクリック→ソースの表示で出力した内容が
> > 違うのですが…
> >
> > やりたいのはソースの表示の内容に操作したいのですが
> > やり方はあるのでしょうか?

Message#2 2019年11月29日(金)16時44分
From: vbavbavba
返事 変更
出力内容とはどのようにちがうんですか?

> お世話になります。
>
> 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の右ボタンクリック→ソースの表示で出力した内容が
> 違うのですが…
>
> やりたいのはソースの表示の内容に操作したいのですが
> やり方はあるのでしょうか?

Message#1 2019年11月12日(火)10時18分
From: oldmac
返事 変更
お世話になります。

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の右ボタンクリック→ソースの表示で出力した内容が
違うのですが…

やりたいのはソースの表示の内容に操作したいのですが
やり方はあるのでしょうか?

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降

VBAのIE制御についてのQ&A掲示板

↑エクセルVBAのIE(InternetExplorer)操作で分からない事があればこちらの掲示板よりご質問ください^^

ExcelのVBA初心者入門

↑こちらはExcelのVBAをマスターできるよう初心者向けのエクセルVBA入門コンテンツになります^^

VBAのIE制御入門RSS

RSSフィードを登録すると最新記事を受け取ることができます。

VBAIE操作のスカイプレッスン

VBAでIE(InternetExplorer)制御の準備

エクセルVBAでIE制御の応用編

こちらでは、エクセルVBAで実際に作成したIE(InternetExplorer)制御ツールをまとめています。自動ログインや情報収集など具体的に解説しています。IE(InternetExplorer)制御をされる方は参考にしてください。

【ダウンロード】IE操作に便利なツール

こちらでは、これまでに紹介したIE(InternetExplorer)操作で便利な機能をツール化しています。無償でダウンロードできますので、目的に合わせたご利用ください。

スポンサー リンク

IEオブジェクトのメソッド・プロパティ

こちらでは、IE(InternetExplorer)オブジェクトのメソッド・プロパティをまとめています。

IE操作に利用されているVBA関数

こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたVBA関数をまとめています。

スポンサー リンク

IE操作に利用されているステートメント

こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたステートメントをまとめています。ExcelのVBAで基本的な部分になりますので、しっかり理解しましょう。

IE(InternetExplorer)制御のVBAコード

こちらでは、これまでに作成したIE(InternetExplorer)操作で役立つサブルーチンをまとめています。
全てをコピーする必要はありませんが、目的に合わせたサブルーチンをご利用ください。

ExcelのVBAで作成した役立つVBAコード

こちらでは、IE(InternetExplorer)制御の利用だけでなく、Excel全般で利用できるVBAコードです。エクセルVBAで役に立つものばかりですので、ご利用ください。

dmb.cgi Ver. 1.068
Copyright(C) 1997-2014, hidekik.com