マネーフォワードの資産内訳をExcelに取り込むＶＢＡ

マネーフォワード for 住信ＳＢＩ銀行の資産内訳の内容をＥｘｃｅｌに取り込むＶＢＡを組みました。

Sub GetAsset()
        
     Dim objIE As Object
     Set objIE = CreateObject("InternetExplorer.Application")
    
    objIE.Visible = True
    objIE.navigate "https://ssnb.x.moneyforward.com/users/sign_in" '管理画面ページのURLを指定
        
    Call WaitIE(objIE)
    
    Dim htmlDoc As Object
    Set htmlDoc = objIE.document
        
    If htmlDoc.getElementById("sign_in_session_service_email") Then
        
        htmlDoc.getElementById("sign_in_session_service_email").Value = "XXXXXX" 'ユーザー名を指定
        htmlDoc.getElementById("sign_in_session_service_password").Value = "XXXXXX" 'パスワードを指定
        htmlDoc.getElementById("login-btn-sumit").Click
        Call WaitIE(objIE)
    End If
    Set htmlDoc = Nothing
 
    objIE.navigate "https://ssnb.x.moneyforward.com/bs/portfolio"
    Call WaitIE(objIE)
    objIE.ExecWB 17, 0 'OLECMDID_SELECTALL = 17 全てを選択
    objIE.ExecWB 12, 0 'OLECMDID_COPY = 12 コピー

    ActiveSheet.Range("E34").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True

    objIE.Quit
    Set objIE = Nothing
    
    Selection.Replace What:="円", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Sub WaitIE(objIE As Object)
 
    Do While objIE.Busy = True Or objIE.readyState < 4 '読み込み待ち
        '4=READYSTATE_COMPLETE
        DoEvents
    Loop
 
End Sub

↓↓↓こちをらのブログも是非ごらんください。