今回はVBAでファイルを移動させる方法について記事にします。
まずはソースコードを準備します。
Sub ファイル移動()
before_file_path = ThisWorkbook.Worksheets("Sheet1").Cells(1, 2).Value
after_file_path = ThisWorkbook.Worksheets("Sheet1").Cells(3, 2).Value
Name before_file_path As after_file_path
End Sub
ソースコードの内容としては、B1セルの値を「before_file_path」に代入し、B3セルの値を「after_file_path」に代入します。
「before_file_path」のパスに存在するファイルを「after_file_path」のパスに移動します。
[C:\新しいフォルダー\移動前]フォルダー内に[test1.txt]を準備します。
![](https://how-to-business.com/wp-content/uploads/2020/05/c367d6b139fa59f6cd9d496eafb6145d-1024x219.png)
以下のようにシートを準備します。
B1セルには移動前の[test1.txt]が存在するファイルパスを入力し、B3セルには移動後のファイルパスを入力します。移動のついでにファイル名も[test2.txt]に変更されます。
![](https://how-to-business.com/wp-content/uploads/2020/05/e14856b10c595c7b8ac1dac9789e15ce.png)
マクロを実行すると、[C:\新しいフォルダー\移動後]フォルダー内に[test2.txt]が格納されたことが確認できます。
![](https://how-to-business.com/wp-content/uploads/2020/05/2da0c8455470b27e3c9f241a335d2849.png)
今回の記事は以上です。