VBA ファイル作成してデータ出力

VBAが嫌いで避けてたのですがファイル作成してデータ出力が
必要になったのでメモ。

    Dim fn As String
    Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim fs As Object

    fn = Format(Now, "mmddhhnn") & ".sql"

    Set fs = FSO.OpenTextFile(fn, 2, True, -2)
    sheetCNT = Sheets.Count

    For i = 2 To sheetCNT
       fs.writeline (Sheets(i).Name)
    Next

    fs.Close