ExcelVBAで、ファイルの移動をしたいです。 行数が複数行あります。 A列の名前のファイルをB列の名前のフォルダに移動することはできますでしょうか。

Excel42閲覧

ベストアンサー

0

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 で動かないのですが、何が原因でしょうか。フルパス指定しております。

ThanksImg質問者からのお礼コメント

ありがとうございました。

お礼日時:1/20 18:24