https://www.equitation-japan.com/index.php?menuindex=101-102
2時間に一回、上記のURLから会員番号と会員氏名を自動で抽出してExcelで一覧表を作りたいと考えています。
テキストファイルにWEBサイトのHTMLを出力することはできたのですが、会員名などが出てきません。
どのようにしたら良いか教えて下さい。
よろしくお願い致します。
Public Sub printMain()
Public Sub printMain()
Dim ie As InternetExplorer
Dim FCK As Object
Dim TSO As Object
Dim TGT As String
Set FCK = CreateObject("scripting.FileSystemObject")
TGT = ThisWorkbook.Path & "\HTML_FILE.txt"
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate "https://www.equitation-japan.com/index.php?menuindex=101-101"
Do While ie.Busy Or ie.readyState < READYSTATE_COMPLETE
DoEvents
Loop
Set form = ie.document.form.sub1 form.Click
Dim HTMLString As String
Dim htdoc As HTMLDocument
Set htdoc = ie.document
Dim ret As String
ret = htdoc.getElementsByTagName("HTML")(0).outerHTML & vbCrLf
Set TSO = FCK.OpenTextFile(TGT, 2, True) With TSO .WriteLine (ret) .Close 'ファイルのクローズ End With
End Sub
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2015/03/09 12:02
2015/03/10 01:23