Excel VBA質問箱 IV

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

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


36572 / 76738 ←次へ | 前へ→

【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

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

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