非常に便利なのでメモ。 以下サンプル。 Sub Sample() ' 日付の名前でシートを作成していく Dim sheetName As String sheetName = Format(Date, "yyyymmdd") ' 現在のパスを取得 Dim curPath As String curPath = ThisWorkbook.Path ' シートが存在するかチ…