Excelで特定のファイルをあるフォルダから別のフォルダに移動するにはどうすればよいですか？

例えば、次のようなスクリーンショットに示されているように、docx、jpg、xlsxなどのさまざまな種類のファイルを含む大きなフォルダがあるとします。ここで、そのフォルダから特定のファイルタイプを新しい別のフォルダに、一つずつ手作業で移動することなく移したいと考えています。このタスクをExcelで解決するための良いアイデアはありますか？

VBAコードを使用して特定のファイルをあるフォルダから別のフォルダに移動する

VBAコードを使用して特定のファイルをあるフォルダから別のフォルダに移動する

特定のタイプのすべてのファイルをできるだけ早く別のフォルダに移動するには、次のVBAコードが役立つかもしれませんので、以下の手順を行ってください：

1. ALT + F11キーを押したままにすると、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. 「挿入」>「モジュール」をクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBAコード: 特定のタイプのファイルをあるフォルダから別のフォルダに移動する：

Sub MoveFiles()
'Updateby Extendoffice
    Dim xFd As FileDialog
    Dim xTFile As String
    Dim xExtArr As Variant
    Dim xExt As Variant
    Dim xSPath As String
    Dim xDPath As String
    Dim xSFile As String
    Dim xCount As Long
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Please select the original folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xFd.Title = "Please select the destination folder:"
    If xFd.Show = -1 Then
        xDPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xDPath, 1) <> "\" Then xDPath = xDPath + "\"
    xExtArr = Array("*.xlsx*", "*.jpg")
    For Each xExt In xExtArr
        xTFile = Dir(xSPath & xExt)
        Do While xTFile <> ""
            xSFile = xSPath & xTFile
            FileCopy xSFile, xDPath & xTFile
            Kill xSFile
            xTFile = Dir
            xCount = xCount + 1
        Loop
    Next
    MsgBox "Total number of moved files is: " & xCount, vbInformation, "Kutools for Excel"
End Sub

注釈: 上記のコードでは、スクリプト内の "*.xlsx*", "*.jpg" （ xExtArr = Array("*.xlsx*", "*.jpg")）が移動したいファイルタイプです。必要に応じてこれらを変更したり、他のファイルタイプを追加することができます。

3. そして、このコードを実行するためにF5キーを押すと、移動元のフォルダを選択するよう促すウィンドウがポップアップ表示されます。次のスクリーンショットをご覧ください：

4. 「OK」をクリックすると、もう一つのウィンドウがポップアップ表示され、移動先のフォルダを選択してください。次のスクリーンショットをご覧ください：

5. その後、「OK」をクリックすると、移動されたファイル数を知らせるプロンプトボックスが表示されます。それを閉じると、指定されたフォルダに特定のjpgやxlsxファイルが移動されていることが確認できます。次のスクリーンショットをご覧ください：