質問: Excel マクロについてご相談です。
回答: セルにファイルを開いた日を記録したりしてもいいですが、本体ファイルは汚したくないという方も多いので。 テキストファイルを併用というのはたまにやります。 ↓ブックを開く ↓ブックと同じ階層のフォルダ「d」 に今日の日付をyyyymmにしたファイル名(例 d\202010.txt)のテキストファイルがあるかどうかチェック ↓無かったら作成&メッセージ (次回以降)ファイルがあるので末日まで何もしない Private Sub Workbook_Open() Dim str As String str = ThisWorkbook.Path & "\d\" & Format(Date, "yyyymm.txt") If Dir(str) = "" Then MsgBox "今月最初のFile Openです。" CreateObject("Scripting.FileSystemObject").CreateTextFile (str) End If End Sub ファイルの存在有無をフラグにする感じです。