Excel VBAで特定のフォーマットの変換後のファイルを整理する方法

この記事では、Excel VBAを使用して、特定のフォーマットに変換されたファイルを自動的に整理する方法について解説します。具体的なVBAコードとその詳細な解説を通して、初心者でも簡単に実装することができます。さらに、実践的な応用例も3つご紹介しますので、より深い理解と応用が可能となります。

基本的なファイル整理のVBAコード

Sub OrganizeFiles()
    Dim FolderPath As String
    Dim FileName As String
    ' 整理するフォルダのパスを指定
    FolderPath = "C:\example\"
    FileName = Dir(FolderPath & "*.xlsx")
    ' 各ファイルを処理
    Do While FileName <> ""
        ' ここで各ファイルの処理を行う
        ' 例: ファイル名を変更する、移動するなど
        FileName = Dir
    Loop
End Sub

このコードでは、指定したフォルダ内の.xlsxファイルを取得して、そのファイルに対して一定の処理を行います。

コードの詳細解説

– `FolderPath`: 整理するファイルが保存されているフォルダのパスを指定します。
– `FileName`: FolderPathで指定したフォルダ内の.xlsxファイルを1つずつ取得します。
– `Do While FileName <> “”`: FileNameが空文字（つまりファイルがない）になるまでループします。
– `FileName = Dir`: 次の.xlsxファイルを取得します。

応用例

応用例1: 特定の文字列を含むファイル名のファイルを別のフォルダに移動する

Sub MoveFilesWithSpecificString()
    Dim FolderPath As String, DestFolder As String
    Dim FileName As String
    FolderPath = "C:\example\"
    DestFolder = "C:\example\moved_files\"
    FileName = Dir(FolderPath & "*特定文字列*.xlsx")
    Do While FileName <> ""
        Name FolderPath & FileName As DestFolder & FileName
        FileName = Dir
    Loop
End Sub

応用例2: 最新の日付を含むファイルのみを取得する

Sub GetLatestDateFile()
    Dim FolderPath As String
    Dim FileName As String, LatestFile As String
    Dim LatestDate As Date, FileDate As Date
    FolderPath = "C:\example\"
    FileName = Dir(FolderPath & "*.xlsx")
    Do While FileName <> ""
        FileDate = FileDateTime(FolderPath & FileName)
        If FileDate > LatestDate Then
            LatestDate = FileDate
            LatestFile = FileName
        End If
        FileName = Dir
    Loop
    MsgBox "最新のファイルは " & LatestFile & " です。"
End Sub

応用例3: ファイルサイズが一定以上のファイルのみを取得する

Sub GetLargeFiles()
    Dim FolderPath As String
    Dim FileName As String
    Dim FileSize As Long
    FolderPath = "C:\example\"
    FileName = Dir(FolderPath & "*.xlsx")
    Do While FileName <> ""
        FileSize = FileLen(FolderPath & FileName)
        If FileSize > 5000000 Then ' 5MB以上
            MsgBox FileName & " は5MB以上のファイルです。"
        End If
        FileName = Dir
    Loop
End Sub

まとめ

Excel VBAを使用して特定のフォーマットの変換後のファイルを整理する方法について学びました。基本的なファイル整理のVBAコードから、特定の条件に合致するファイルを取得する応用例までを解説しました。これらの技術を利用して、日常業務の中でのファイル管理や整理を効率的に行いましょう。