Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6415 / 13644 ツリー ←次へ | 前へ→

【45314】htmlファイルの読み込み hiroro 06/12/18(月) 23:48 質問[未読]
【45315】Re:htmlファイルの読み込み Kein 06/12/19(火) 0:36 回答[未読]
【45317】Re:htmlファイルの読み込み hiroro 06/12/19(火) 8:27 質問[未読]
【45322】Re:htmlファイルの読み込み maverick 06/12/19(火) 12:19 回答[未読]
【45345】Re:htmlファイルの読み込み hiroro 06/12/20(水) 10:00 お礼[未読]
【45346】Re:htmlファイルの読み込み hiroro 06/12/20(水) 10:02 お礼[未読]

【45314】htmlファイルの読み込み
質問  hiroro E-MAIL  - 06/12/18(月) 23:48 -

引用なし
パスワード
   あるディレクトリーからファイルリストを作成するプログラムで
ファイル名、フルパス名、htmlファイルから<title>タグのタイトルを
抽出させたいのですが、ファイル名、フルパス名はできたのですが、
htmlファイルから<title>タグのタイトルを抽出させるにはどうしたらよいですか。
ご教授願います。

【45315】Re:htmlファイルの読み込み
回答  Kein  - 06/12/19(火) 0:36 -

引用なし
パスワード
   仮に、ここのポータルサイトのタイトルを取得するとして

Sub Get_HTML_Titl()
  Dim Ttl As String
 
  With CreateObject("InternetExplorer.Application")
   .Navigate "http://www.vbalab.net/"
   Do While .Busy
     DoEvents
   Loop
   Do While .ReadyState <> 4
     DoEvents
   Loop
   Ttl = .Document.Title
   .Quit
  End With
  MsgBox Ttl
End Sub

* URLの先頭4文字は、半角に変換して下さい。

【45317】Re:htmlファイルの読み込み
質問  hiroro  - 06/12/19(火) 8:27 -

引用なし
パスワード
   あるフォルダーの中の複数のhtmlファイルを順番に
タイトルタグをExcelにはきだす方法って出来ますか?

【45322】Re:htmlファイルの読み込み
回答  maverick  - 06/12/19(火) 12:19 -

引用なし
パスワード
   Sub test()
  Dim bpath As String
  Dim fname As String
  Dim ff As Long
  Dim tt As String

  bpath = ThisWorkbook.Path & "\"
  fname = Dir(bpath & "*.html")
  Do Until fname = ""
    ff = FreeFile
    Open bpath & fname For Input As #ff

    Do Until EOF(ff)
      Line Input #ff, tt
      If InStr(1, tt, "<title>") <> 0 Then
        tt = Split(Split(tt, ">")(1), "<")(0)
        Debug.Print tt
        Exit Do
      End If
    Loop
    Close #ff
    fname = Dir()
  Loop
End Sub

【45345】Re:htmlファイルの読み込み
お礼  hiroro  - 06/12/20(水) 10:00 -

引用なし
パスワード
   すいません、遅くなりました。
無事、解決致しました、ありがとうございました。


▼maverick さん:
>Sub test()
>  Dim bpath As String
>  Dim fname As String
>  Dim ff As Long
>  Dim tt As String
>
>  bpath = ThisWorkbook.Path & "\"
>  fname = Dir(bpath & "*.html")
>  Do Until fname = ""
>    ff = FreeFile
>    Open bpath & fname For Input As #ff
>
>    Do Until EOF(ff)
>      Line Input #ff, tt
>      If InStr(1, tt, "<title>") <> 0 Then
>        tt = Split(Split(tt, ">")(1), "<")(0)
>        Debug.Print tt
>        Exit Do
>      End If
>    Loop
>    Close #ff
>    fname = Dir()
>  Loop
>End Sub

【45346】Re:htmlファイルの読み込み
お礼  hiroro  - 06/12/20(水) 10:02 -

引用なし
パスワード
   すいません、遅くなりました。
無事、解決致しました、ありがとうございました。
CreateObject 思いつきませんでした。

▼Kein さん:
>仮に、ここのポータルサイトのタイトルを取得するとして
>
>Sub Get_HTML_Titl()
>  Dim Ttl As String
> 
>  With CreateObject("InternetExplorer.Application")
>   .Navigate "http://www.vbalab.net/"
>   Do While .Busy
>     DoEvents
>   Loop
>   Do While .ReadyState <> 4
>     DoEvents
>   Loop
>   Ttl = .Document.Title
>   .Quit
>  End With
>  MsgBox Ttl
>End Sub
>
>* URLの先頭4文字は、半角に変換して下さい。

6415 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free