Excelでサイトマップ作成ソフトを作ってみよう

Step 14 Sitemap.Htmlファイルの作成

Open For Output As でHtmlファイルを作成します。
ヘッダーにタイトルのリンクを追加し、最後にフッターを加えます。

ファイルはデスクトップ上に「sitemap.html」のファイル名で作成するようにしています。


Homeへ > Excelでアプリケーションソフト2 > サイトマップ作成ソフト

シート画面

実行中の画面
Htmlファイル作成を追加したシート


シートのVBAコード

下記のVBAコードを追加してください。

'Htmlファイルの作成
Private Sub MakeHtmlFile(lr As Long)
    Dim i As Long
    Dim s1 As String
    Dim s2 As String
    Dim fno As Integer
    
    fno = FreeFile
    Open "C:\Documents and Settings\in\デスクトップ\sitemap.html" For Output As fno
    Print #fno, Sheets("ヘッダー").Range("B3") & vbCrLf
    
    s1 = ""
    For i = 8 To lr
        s1 = "<a href=""" & Cells(i, 2) & """>"
        s1 = s1 & Cells(i, 3) & "</a><BR>" & vbCrLf
        Print #fno, s1
    Next
    
    Print #fno, Sheets("フッター").Range("B3") & vbCrLf
    Close fno
End Sub


Homeへ > Excelでアプリケーションソフト2 > サイトマップ作成ソフト

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved