![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
VBAでホームページから値を取得できない
msnマネー残高照会サービス(https://zandaka.money.msn.co.jp/)
は登録した各銀行、クレジットカード会社サイトから預金残高等を照会して
個人資産・負債のサマリー等を表示させるサービスですが、こちらの
サイトから、毎日自動的に資産合計、負債合計、純資産※(資産合計-負債合計)
の数字を取得して携帯にメールを送信したいと考え、VBAを作成中なのですが、
肝心のこれらの値をソースのどの部分から取得すればいいのかさえわからず
まったくお手上げの状態です。もしヒントだけでもわかりましたら
ご教授いただければと思います。よろしくお願いします。
Sub money_test()
Dim objIE As Object
Dim objSHELL As Object
Dim newIE As Object
Dim objINPUT As Object
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "https://zandaka.money.msn.co.jp/"
Do While objIE.Busy = True
DoEvents
Loop
Sleep (2000)
'画面が自動的に遷移するため、新しくオブジェクト取得
Set objSHELL = CreateObject("Shell.Application")
Set newIE = objSHELL.Windows(objSHELL.Windows.Count - 1)
Set objSHELL = Nothing
newIE.document.F1.Password.Value = "******"
For Each objINPUT In newIE.document.F1.all.tags("INPUT")
If objINPUT.Value = "サインイン" Then
objINPUT.Click
Exit For
End If
Next
Do While newIE.Busy = True
DoEvents
Loop
Sleep (2000)
==============================
(上記項目を表示していると思われる該当部分のソース)
<!--★アカウント登録なし表示_end-->
<!-- コンテンツ_start -->
<!----sisan_start---->
<div id="aa_category_assets" class="box aa_category_assets">
<div class="boxtitle" style="float:none;"><span style="color:#669b3a;">資産・負債合計</span></div>
<div style="padding:7px; padding-top:0px;">
<table class="toptable">
<tr>
<th scope="col" style="width:30%;">
資産合計</th>
<th scope="col" style="width:30%;">
負債合計</th>
<th scope="col" style="text-align:center;">
純資産※(資産合計-負債合計)</th>
</tr>
<tr>
<td class="number"><span class="aa_assets_plus"></span></td>
<td class="number"><span class="red aa_assets_minus"></span></td>
<td class="number"><span class="aa_assets"></span></td>
</tr>
</table>
</div>
</div>
<!----sisan_end---->
No.1ベストアンサー
- 回答日時:
Dim strSpan As Object
Dim buf As String
For Each strSpan In objIE.document.getElementsByTagName("span")
Select Case strSpan.className
Case "aa_assets_plus"
buf = "資産合計:" & strSpan.innerHTML & vbCrLf
Case "red aa_assets_minus"
buf = buf & "負債合計:" & strSpan.innerHTML & vbCrLf
Case "aa_assets"
buf = buf & "純 資 産:" & strSpan.innerHTML
End Select
Next
MsgBox buf
みたいなことで取得できないでしょうか?
「.innerHTML」でダメなら「.innerText」にしてみるとか
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- HTML・CSS CSS のみのタブ切り替えについて 1 2023/01/11 16:47
- Visual Basic(VBA) Selenium.ChromeDriverの使い方について 7 2022/09/22 06:43
- JavaScript jqueryを使ったスムーススクロールのコードを書いたのですが、HTMLコード内にある、a butt 2 2022/04/14 10:59
- PHP ランキングを表示する際の画像の大きさを固定することは可能でしょうか? <?php if ( has_ 1 2022/07/21 14:55
- HTML・CSS CSSが効かずどのように指定すれば良いか分からないのでアドバイスお願い致します 2 2023/06/07 12:25
- HTML・CSS アコーディオンメニューが思うように動作しません。 1 2023/08/20 16:48
- HTML・CSS ヘッダーの画像にメインエリアがかぶってしまいます 1 2022/11/28 14:06
- HTML・CSS CSSのホバーエフェクト 1 2023/06/19 06:53
- JavaScript clear機能を失わずにファイルアップロード機能を作成したい 3 2023/06/10 16:12
- JavaScript vertical sliderをautoplayしたい 2 2022/08/25 14:47
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
tableタグとformタグの組み合わせ
-
html でのテキスト結合について
-
formのinputなどの幅100%指定
-
テーブルの一部分のセルだけに...
-
同じクラス名はつけないほうが...
-
td要素内のdiv要素をセンタリン...
-
表とリスト(ulとtable)の違い...
-
MAC版IEのCSS、paddingを適用す...
-
trとtrの間
-
Firefoxを使ってるのですがズー...
-
table内の画像を中央寄せ、のせ...
-
ホームページでローカルでは表...
-
Tableタグで作成した表の縮小
-
HPに載せる写真にかっこいい...
-
丸角テーブルの簡単な作り方
-
このHTXLソースが意味する動作...
-
テーブル内のテーブルの高さを...
-
テーブルのセル内の隙間を取れ...
-
Tableタグ内のspan styleが適応...
-
XHTMLに関する質問 順序が逆に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
tableタグとformタグの組み合わせ
-
html でのテキスト結合について
-
テーブルの一部分のセルだけに...
-
同じクラス名はつけないほうが...
-
テーブル内のテーブルの高さを...
-
cssで、テーブルのtdの中の文字...
-
XHTMLに関する質問 順序が逆に...
-
vbscriptで時計を作りたい
-
Tableタグで作成した表の縮小
-
Tableタグ内のspan styleが適応...
-
formのinputなどの幅100%指定
-
Firefoxを使ってるのですがズー...
-
divで囲んだ文字が消える
-
商品詳細を横並びに表示する方法
-
表とリスト(ulとtable)の違い...
-
入れ子にしたテーブルをheight1...
-
TDタグ内での均等割付の仕方
-
テーブルのセル内の隙間を取れ...
-
td要素内のdiv要素をセンタリン...
-
HTMLのテーブルでそれぞれの大...
おすすめ情報