Excel VBAを使用して古い日付のファイルをアーカイブする方法

Microsoft ExcelのVBAを使用して、特定の条件を満たすファイルを自動的にアーカイブフォルダに移動する方法を紹介します。この記事では、古い日付のファイルを対象として、詳しいコードの作成からその解説、そして実践的な応用例までを説明します。

基本的なアーカイブ処理のコード
1. コードの詳細解説
応用例
まとめ

基本的なアーカイブ処理のコード


Sub ArchiveOldFiles()
    Dim SourceFolder As String, ArchiveFolder As String
    Dim FileItem As String
    Dim LastModified As Date
    ' フォルダのパスを設定
    SourceFolder = "C:\Your\Source\Folder\Path\"
    ArchiveFolder = "C:\Your\Archive\Folder\Path\"
    FileItem = Dir(SourceFolder & "*.*")
    Do While FileItem <> ""
        LastModified = FileDateTime(SourceFolder & FileItem)
        ' 30日以上前のファイルを移動
        If DateDiff("d", LastModified, Now) > 30 Then
            Name SourceFolder & FileItem As ArchiveFolder & FileItem
        End If
        FileItem = Dir
    Loop
End Sub

コードの詳細解説

上記のコードは、指定されたソースフォルダ内のすべてのファイルをチェックし、最終変更日が30日以上前のものをアーカイブフォルダに移動します。

– `Dir` 関数: フォルダ内のファイルのリストを取得します。
– `FileDateTime` 関数: ファイルの最終変更日を取得します。
– `DateDiff` 関数: 2つの日付間の差を計算します。
– `Name` ステートメント: ファイルやフォルダの名前を変更したり、移動したりするために使用します。

応用例

応用例1：拡張子ごとにアーカイブ


Sub ArchiveByExtension()
    Dim SourceFolder As String, ArchiveFolder As String
    Dim FileItem As String
    Dim LastModified As Date
    SourceFolder = "C:\Your\Source\Folder\Path\"
    ArchiveFolder = "C:\Your\Archive\Folder\Path\"
    FileItem = Dir(SourceFolder & "*.xls*")
    Do While FileItem <> ""
        LastModified = FileDateTime(SourceFolder & FileItem)
        If DateDiff("d", LastModified, Now) > 30 Then
            Name SourceFolder & FileItem As ArchiveFolder & FileItem
        End If
        FileItem = Dir
    Loop
End Sub

このコードは、指定したフォルダ内の`.xls`または`.xlsx`の拡張子を持つExcelファイルのみをアーカイブします。

応用例2：サイズが大きいファイルをアーカイブ


Sub ArchiveLargeFiles()
    Dim SourceFolder As String, ArchiveFolder As String
    Dim FileItem As String
    Dim FileSize As Long
    SourceFolder = "C:\Your\Source\Folder\Path\"
    ArchiveFolder = "C:\Your\Archive\Folder\Path\"
    FileItem = Dir(SourceFolder & "*.*")
    Do While FileItem <> ""
        FileSize = FileLen(SourceFolder & FileItem)
        ' 10MB以上のファイルを移動
        If FileSize > 10 * 1024 * 1024 Then
            Name SourceFolder & FileItem As ArchiveFolder & FileItem
        End If
        FileItem = Dir
    Loop
End Sub

このコードは、指定したフォルダ内のサイズが10MB以上のファイルのみをアーカイブします。

応用例3：特定のフォルダのみを対象にする


Sub ArchiveSpecificFolder()
    Dim SourceFolder As String, ArchiveFolder As String
    Dim SubFolder As String
    Dim FileItem As String
    Dim LastModified As Date
    SourceFolder = "C:\Your\Source\Folder\Path\"
    SubFolder = "SpecificSubFolder\"
    ArchiveFolder = "C:\Your\Archive\Folder\Path\"
    FileItem = Dir(SourceFolder & SubFolder & "*.*")
    Do While FileItem <> ""
        LastModified = FileDateTime(SourceFolder & SubFolder & FileItem)
        If DateDiff("d", LastModified, Now) > 30 Then
            Name SourceFolder & SubFolder & FileItem As ArchiveFolder & FileItem
        End If
        FileItem = Dir
    Loop
End Sub

このコードは、指定したソースフォルダ内の特定のサブフォルダのみを対象に、古いファイルをアーカイブします。