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

'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