Excelのリストに基づいてファイルをあるフォルダから別のフォルダにコピーまたは移動するにはどうすればよいですか？ 

ワークシートの列にファイル名のリストがあり、それらのファイルがコンピュータ内のフォルダに存在するとします。しかし、今、これらのファイルを元のフォルダから次のスクリーンショットに示すように、ワークシートにリストされている別のフォルダに移動またはコピーする必要があります。Excelでこのタスクをできるだけ早く完了するにはどうすればよいですか？

VBAコードを使用してExcelのリストに基づいてファイルをあるフォルダから別のフォルダにコピーまたは移動する

VBAコードを使用してExcelのリストに基づいてファイルをあるフォルダから別のフォルダにコピーまたは移動する

ファイル名のリストに基づいてファイルをあるフォルダから別のフォルダに移動するには、次のVBAコードが役立つかもしれません。以下のように行ってください：

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

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

VBAコード: Excelのリストに基づいてファイルをあるフォルダから別のフォルダに移動する

Sub movefiles()
'Updateby Extendoffice
    Dim xRg As Range, xCell As Range
    Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
    Dim xSPathStr As Variant, xDPathStr As Variant
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select the file names:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xSFileDlg.Title = " Please select the original folder:"
    If xSFileDlg.Show <> -1 Then Exit Sub
    xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
    Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xDFileDlg.Title = " Please select the destination folder:"
    If xDFileDlg.Show <> -1 Then Exit Sub
    xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
    For Each xCell In xRg
        xVal = xCell.Value
        If TypeName(xVal) = "String" And xVal <> "" Then
            FileCopy xSPathStr & xVal, xDPathStr & xVal
            Kill xSPathStr & xVal
        End If
    Next
End Sub

3. そして、F5キーを押してこのコードを実行すると、ファイル名が含まれているセルを選択するよう促すボックスが表示されます。スクリーンショットをご覧ください：

4. 「 OK」ボタンをクリックすると、ポップアップウィンドウが表示されますので、移動したいファイルが含まれているフォルダを選択してください。スクリーンショットをご覧ください：

5. 再び「OK」をクリックし、次のポップアップウィンドウで、ファイルを配置したい宛先フォルダを選択してください。スクリーンショットをご覧ください：

6. 最後に、「OK」をクリックしてウィンドウを閉じると、ワークシートリストにあるファイル名に基づいて、ファイルが指定した別のフォルダに移動されています。スクリーンショットをご覧ください：

注釈: 元のファイルを保持しつつ、ファイルを別のフォルダにコピーしたい場合は、以下のVBAコードを使用してください：

VBAコード: Excelのリストに基づいてファイルをあるフォルダから別のフォルダにコピーする

Sub copyfiles()
'Updateby Extendoffice
    Dim xRg As Range, xCell As Range
    Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
    Dim xSPathStr As Variant, xDPathStr As Variant
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select the file names:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xSFileDlg.Title = "Please select the original folder:"
    If xSFileDlg.Show <> -1 Then Exit Sub
    xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
    Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xDFileDlg.Title = "Please select the destination folder:"
    If xDFileDlg.Show <> -1 Then Exit Sub
    xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
    For Each xCell In xRg
        xVal = xCell.Value
        If TypeName(xVal) = "String" And xVal <> "" Then
            FileCopy xSPathStr & xVal, xDPathStr & xVal
        End If
    Next
End Sub

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！