32本目 Excel終了とテキストファイル出力

VBA100本ノック 32本目を動画で解説しています。Excelの神髄さんの模範解答はコチラ

---

問題

#VBA100本ノック 32本目
開かれているブック全てを上書き保存して、Excelアプリも終了させてください。
履歴として、保存したブックのパスをテキストファィルに出力してください。
テキストファイルはマクロブックと同一フォルダに以下の名称で出力(SJIS)してください。
log_yyyymmddhhmmss.txt

解答

Sub 開いてる全てのブックに対して処理()
    
    Dim nowtime As String
    nowtime = "log_" & Format(Now(), "yyyymmddhhmmss")
    Open ThisWorkbook.Path & "\" & nowtime & ".txt" For Output As #1
    
    Dim i As Long
    
    For i = 1 To Workbooks.Count
        Workbooks(i).Save
        Print #1, Workbooks(i).FullName
    Next i
    
    Close #1
    Application.Quit
    
End Sub

Sub sample()
    
    Open ThisWorkbook.Path & "\TEST.txt" For Append As #1
    
    Print #1, "テストです"
    
    Close #1

End Sub