Excel VBA質問箱 IV

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

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


36595 / 76738 ←次へ | 前へ→

【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

0 hits

【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 お礼

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