' [328.xls]



' [Module1] のコード
'★★☆　HTMLファイルのソースを読み込む　☆★★

Option Explicit

Sub start()
Dim file As Variant
Dim TextLine
Dim i

    i = 1
    
    'ファイルを開くダイアログを拡張子が"ht"から始まるファイルを指定して実行
    'これによりダイアログには"htm"と"html"の拡張子を持つファイルのみが表示されます
    file = Application.GetOpenFilename _
    ("HTMLﾌｧｲﾙ(*.htm;*.html),*.htm;*.html", 1, "HTMLファイルのソースの読込")
    
    If file = False Then Exit Sub
    
    '新しいワークシート挿入
    Worksheets.Add
    
    'ファイルを開く
    Open file For Input As #1
    
        'ファイルの終端までループを繰り返す
        Do While Not EOF(1)
        
            '行を変数に読み込む
            Line Input #1, TextLine
        
            '行をセルに書き込む
            Cells(i, 1) = TextLine
            
            i = i + 1
        Loop
        
    'ファイルを閉じる
    Close #1

End Sub