ExcelVBAで、ファイルの移動をしたいです。 行数が複数行あります。 A列の名前のファイルをB列の名前のフォルダに移動することはできますでしょうか。
ExcelVBAで、ファイルの移動をしたいです。 行数が複数行あります。 A列の名前のファイルをB列の名前のフォルダに移動することはできますでしょうか。
Excel・42閲覧
ベストアンサー
Sub ファイルの移動1() Dim mydir As String Dim i As Integer For i = 1 To Range("A" & Rows.Count).End(xlUp).Row mydir = "C:\場所名\" & Cells(i, 2).Value f_old = " C:\場所名\" & Cells(i, 1).Value f_new = mydir & "\" & Cells(i, 1).Value Name f_old As f_new Next End Sub で動かないのですが、何が原因でしょうか。フルパス指定しております。
質問者からのお礼コメント
ありがとうございました。
お礼日時:1/20 18:24