エクセルファイル整理を自動化！マクロ作成術

エクセルファイルの整理、毎回手作業でやっていませんか？
今回は、複数のエクセルファイルを別フォルダにコピーするマクロ作成方法をご紹介します。

1.マクロを作成する

VBA（Visual Basic for Applications）を使って、エクセルファイルをコピーするマクロを作成します。
（例）下記のようなVBAコードを作成し、実際に使用する格納フォルダ名を入れる。

--------------------------------------
Sub ファイルコピー()
   Dim fso As Object, srcFolder As Object, dstFolder As Object
   Dim file As Object
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set srcFolder = fso.GetFolder("コピー元フォルダのパス")
   Set dstFolder = fso.GetFolder("コピー先フォルダのパス")
   For Each file In srcFolder.Files
       If file.Name Like "*.xlsx" Then 'Excelファイルのみコピー
           fso.CopyFile file.Path, dstFolder.Path & "\" & file.Name
       End If
   Next file
   MsgBox "ファイルのコピーが完了しました。"
End Sub
--------------------------------------

2.ファイル名に日付を追加する

マクロを少し修正することで、コピーするファイル名に作成日を追加することができます。
ファイル管理がしやすくなり、バックアップとしても活用できます。
（例）1で作成したVBAコードを下記のように修正する。

--------------------------------------
Sub ファイルコピー()
   '（省略）
   For Each file In srcFolder.Files
       If file.Name Like "*.xlsx" Then
           fso.CopyFile file.Path, dstFolder.Path & "\" & _
               Left(file.Name, InStrRev(file.Name, ".") - 1) & "_" & _
               Format(Date, "yyyymmdd") & "." & _
               Right(file.Name, Len(file.Name) - InStrRev(file.Name, "."))
       End If
   Next file
   '（省略）
End Sub
--------------------------------------

3.マクロを登録する

作成したマクロをエクセルファイルに登録したら、挿入したお好きな図形に1や2で作成したマクロを割り当てて、マクロ実行用のボタンを作成します。

4.マクロを実行する

3で作成したマクロ用ボタンをクリックすると、Excelファイルのコピーが実行されます。

• フォルダ名を編集するだけで応用が可能なため、様々な業務で活用できます！
• このマクロを活用することで、日々の定型業務が効率化され、時間短縮につながります！

⇒実際に定型業務で上記のマクロを活用したところ、ファイルコピーの作業時間が5分→5秒に短縮しました。

• VBAコードを使用しマクロにすることでボタンひとつで実行できます
• ボタンひとつで実行できるため、他のアプリを使わず手順書(Excel)に記載した際に簡潔な作業になります

⇒マクロを利用することで、ミスが発生しにくい簡潔な手順を実現できます。

時間と手間を大幅に省略してくれる便利な機能なので、ファイルコピーが頻繁に発生する業務がある方は使ってみてはいかがでしょうか。