【パワポVBA】今日の日付のフォルダを指定場所に作るマクロ

会社や学校で今日の日付のフォルダを作ることは多いのではないでしょうか？

そこで、PowerPoint VBAで今日の日付を取得してフォルダ名にしたフォルダを指定の場所に作るマクロをご紹介します。

コードは神AI「ChatGPT」で開発しました。ChatGPTについては、次の記事で解説しています。

神AI「ChatGPT」でパワポVBAを開発【始め方から解説】

ChatGPTとは、質問を投げると人工知能が回答してくれるチャットサービスです。Excelでの数式や…

ppdtp.com

2024.02.24

今日の日付のフォルダを作るVBAコード

Sub TodaysDateFolder()

    'FileSystemObjectオブジェクトを作成
    Dim objFSO As Object
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    '作成するフォルダのパスを設定
    Dim strFolderPath As String
    strFolderPath = "C:¥MyFolder¥"
    
    'フォルダを作成
    objFSO.CreateFolder strFolderPath & Format(Date, "yyyy-mm-dd")
End Sub

FileSystemObjectオブジェクトを作成すると、フォルダやファイルなどを操作できるようになります。

マクロの使い方は、次の記事で解説しています。

PowerPointマクロ入門 | コピペで始める楽々コース

PowerPointでマクロを始めたいけど、難しそうでよく分からないという方向けの入門編です。PPD…

ppdtp.com

2024.02.24

使用方法

保存場所を指定する

strFolderPath = "C:¥MyFolder¥"

「C:¥MyFolder¥」のコードを指定の場所までのパスに置き換えてください。パスの最後は「¥」を付けて指定のフォルダ内に今日の日付のフォルダが作成されるようにしましょう。

パスの取得方法は「Shift」キーを押しながらフォルダを右クリック →「パスのコピー」で行います。

日付の形式を変更する

objFSO.CreateFolder strFolderPath & Format(Date, "yyyy-mm-dd")

「yyyy-mm-dd」のコードで日付の形式を変更できます。「-」が必要なければ「yyyymmdd」にしましょう。