anonymous No title
No License VBA
2019年12月10日
Copy Clone
Option Explicit

'事前に
'・InternetExplorerのインターネットオプションで保護モードを有効にする
'・VBEの参照設定で"Microsoft Internet Controls"にチェックを入れる
    
Sub test()

    'InternetExplorer起動
    Dim objIE As InternetExplorer
    Set objIE = New InternetExplorer
    
    'サイトを表示
    objIE.Visible = True
    
    'ラインのサイト
    objIE.Navigate "https://line.me/ja/download"
    
    'ラインのサイトが完全に開くまで待機する
    Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE
    Loop
    
    'aタグ要素のHTMLを全て書き出す
    Dim i As Long
    For i = 0 To objIE.document.getElementsbytagname("a").Length - 1
        ThisWorkbook.Worksheets(1).Cells(i + 2, 2) = objIE.document.getElementsbytagname("a")(i).outerHTML
    Next
    
    Set objIE = Nothing
    
End Sub
Option Explicit

'事前に
'・InternetExplorerのインターネットオプションで保護モードを有効にする
'・VBEの参照設定で"Microsoft Internet Controls"にチェックを入れる
    
Sub test()

    'InternetExplorer起動
    Dim objIE As InternetExplorer
    Set objIE = New InternetExplorer
    
    'サイトを表示
    objIE.Visible = True
    
    'ラインのサイト
    objIE.Navigate "https://line.me/ja/download"
    
    'ラインのサイトが完全に開くまで待機する
    Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE
    Loop
    
    'aタグ要素のHTMLを全て書き出す
    Dim i As Long
    For i = 0 To objIE.document.getElementsbytagname("a").Length - 1
        ThisWorkbook.Worksheets(1).Cells(i + 2, 2) = objIE.document.getElementsbytagname("a")(i).outerHTML
    Next
    
    Set objIE = Nothing
    
End Sub
No one still commented. Please first comment.