エクセル表のパスからのコピー処理について

質問

お世話になります。
エクセルVBAで質問です。
下記のような表をエクセルで作り、Ａ列の名称が元フォルダのパス、
そのフォルダの中にエクセルとパワポやワードのファイル名が入っているとします。
その中の全てのファイルをコピーで同じ行のＢ列のフルパスのフォルダ内にコピーしたいのですが、マクロなどでの作成方法を教えてくだい。

Ａ列　Ｂ列
C:\a1　Z:\test1
C:\a2　Z:\test2
C:\a3　Z:\test3
・
・
・

バッチファイルであれば簡単なことですが、エクセルの表で管理したい次第です。

コピー先フォルダ内に同じファイルがあれば上書きしても構いません。(何回実行して同じファイルが上書きされてもOK)

出来ればxcopyで実行したいのですが、VBやVBAで使えるコマンドなのか、また繰り返し処理や応用に慣れてないため、詳しい方ご教授いただけると幸いです。
例えばC列以降に元のコピー対象ファイルを全て書き出してから、それらの一つ一つのファイルを読み込んでB列のフォルダ内にコピーするような動きでも問題ありません。

リスト作成する行の数は毎回決まっていなく、最大で50くらいあります。

ぜひ、ご教授お願いします。

回答No.1

ushi2015 · ベストアンサー

こんにちは
こんな感じでしょうか？
Sub test()
　　Dim c As String
　　Dim r As Range
　　Dim t As Range
　　Dim s As Object
　　Dim e As Object

　　Set s = CreateObject("WScript.Shell")
　　Set t = Range("A1").CurrentRegion.Columns(1)
　　For Each r In t.Cells
　　　　c = "XCopy " & r.Value & " " & r.Offset(, 1).Value _
　　　　　　& " /s /e /c /h /r /k "

　　　　Set e = s.Exec("%ComSpec% /c " & c)
　　Next
End Sub

お礼

早速のお返事ありがとうございます‼︎

回答の速さにビックリしています。

まだ、検証ができておりませんが、恐らくきっと期待通りにことが進むと思います♪

頭の中のイメージで、マクロを組めるんですか！？
素晴らしいです、身近におりましたら神と呼ばさせていただきたいくらいかも笑