Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6417 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 "ｈｔｔｐ://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 "ｈｔｔｐ://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文字は、半角に変換して下さい。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6417 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free