iWakaNum = LCase(InputBox("最大歌数を入力(2000以下)", "歌数の指定")) + 1 For i = 0 To iWakaNum - 1 If i <> 0 Then If iWakaNum < 100 Then If i < 10 Then j = "00" & i ElseIf i >=10 And i < 100 Then j = "0" & i End If ElseIf iWakaNum >= 100 And iWakaNum < 1000 Then If i < 10 Then j = "00" & i ElseIf i >= 10 And i < 100 Then j = "0" & i ElseIf i >= 100 And i < 1000 Then j = i End If ElseIf iWakaNum >= 1000 And iWakaNum <= 2000 Then If i < 10 Then j = "000" & i ElseIf i >= 10 And i < 100 Then j = "00" & i ElseIf i >= 100 And i < 1000 Then j = "0" & i ElseIf i >= 1000 And i <= 2000 Then j = i End If End If sConStr = sConStr & "" & j & "" & vbCr & _ "
" & vbCr & _ "
" & vbCr & _ "    " & vbCr & _ "
" & vbCr End If Next Set fs = CreateObject("Scripting.FileSystemObject") Set objFolder = fs.GetFolder(".") sFolderName = fs.GetAbsolutePathName(".") sBaseName = InputBox("ファイル名(拡張子を除く)は?", "ファイル名(ベース名)の入力") sFileName = sFolderName & "\" & sBaseName & ".htm" If fs.FileExists(sFileName) Then Set objWakaFile = fs.OpenTextFile(sFileName, 8) Else Set objWakaFile = fs.CreateTextFile(sFileName) End If With objWakaFile .WriteLine("") .WriteLine("") .WriteLine("") .WriteLine("") .WriteBlankLines(1) .WriteLine("") .WriteBlankLines(1) .WriteLine("" & sBaseName & "") .WriteLine("") .WriteLine("") .WriteBlankLines(1) .WriteLine("
 /") .WriteLine("[INDEX]") .WriteLine("
") .WriteBlankLines(1) .WriteLine("

") .WriteBlankLines(1) .WriteLine("
") .WriteLine("
") .WriteLine("") .WriteLine("(  
") .WriteLine("
〔原注〕(*入力者注)") .WriteLine("
") .WriteBlankLines(1) .WriteLine("
") .WriteLine("") .WriteBlankLines(1) For k = 0 To 2 .WriteLine(" ") Next .WriteBlankLines(1) .WriteLine("") .WriteLine("
") .WriteBlankLines(1) .WriteLine("
[TOP]
") .WriteBlankLines(1) .WriteLine("

") .WriteBlankLines(1) .WriteLine("") .WriteLine(sConStr) .WriteBlankLines(2) .WriteLine("
") .WriteLine("") For k = 0 To 2 .WriteLine(" ") Next .WriteLine("") .WriteLine("
") .WriteBlankLines(1) .WriteLine("
") .WriteLine("[INDEX]") .WriteLine("
") .WriteBlankLines(1) .WriteLine("") .WriteLine("") End With objWakaFile.Close