vba ファイルの移動について

質問

フォルダAの中にあるたくさんのpdfファイルの中から、
ファイル名の頭文字３つがE列に記載した「aaa」だったら
フォルダBに移動させるという内容にしたいです。

ネット検索などで、近いものを作成しましたが（下に貼り付け）、
下から４行目、「fso.moveFile FolderA & "\" & fileName, FolderB & "\" & fileName」で
「実行時エラー'53'　　ファイルが見つかりません。」　とエラーが出てしまいます。

どの様に書き直せばよいのでしょうか？
どなたかご存じでしたら、ぜひお教え下さい。
よろしくお願いします。
エクセル2010を使用しています。

Sub CheckAndMoveFiles()

Dim FolderA As String
Dim FolderB As String
FolderA = Range("D1").Value
FolderB = Range("B2").Value

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

Dim ws As Worksheet
Set ws = ActiveSheet

Dim lastRow As Long
lastRow = ws.Range("E" & Rows.Count).End(xlUp).Row

Dim r As Long
Dim fileName As String
For r = 1 To lastRow
If ws.Cells(r, "E").Value <> "" Then
fileName = ws.Cells(r, "E").Value
dFileName = Dir(FolderA & "\" & Left(fileName, 3) & "*.pdf")

Do While dFileName <> ""

dFileName = Dir()
Loop

fso.moveFile FolderA & "\" & fileName, FolderB & "\" & fileName　'ここでストップ

End If
Next
End Sub

回答No.3

MSZ006 · ベストアンサー

＃２です。
コードをよく見てませんでした。

下から４行目、
　fso.moveFile FolderA & "\" & fileName, FolderB & "\" & fileName
の記述位置が間違ってますね。この位置だとDoループを抜けた（ファイル名が""になった）後に実行されるので、「ファイルがない」となります。

Do While dFileName <> ""
fso.moveFile FolderA & "\" & dFileName, FolderB & "\" & dFileName
dFileName = Dir()
Loop

としてみてください。

お礼

MSZ006さま

できました！
何度も見直してくださったのですね。
本当に助かりました。
ありがとうございましたm(_ _)m

回答No.2

MSZ006

下から４行目、

　fso.moveFile FolderA & "\" & fileName, FolderB & "\" & fileName

上の　fileName を　dFileName　にしてみてください（２カ所）。

お礼

MSZ006さま

ご回答ありがとうございます。
２か所、修正してみましたが、
やっぱり同じ理由の同じところでストップしました。
なにとぞお力添えよろしくお願いいたしますm(_ _)m

補足

MSZ006さま

ご回答ありがとうございます。
２か所、修正してみましたが、
やっぱり同じ理由の同じところでストップしました。
なにとぞお力添えよろしくお願いいたしますm(_ _)m

回答No.1

mt2008

ソースは詳しく見ていませんが、引数の2つ目のファイル名が余計だと思います。

fso.moveFile FolderA & "\" & fileName, FolderB & "\" & fileName　'ここでストップ
↓
fso.moveFile FolderA & "\" & fileName, FolderB & "\"

お礼

mt2008 さま

ご回答ありがとうございます。
でも、やっぱり同じ理由の同じところでストップしました。
なにとぞお力添えよろしくお願いいたしますm(_ _)m

補足

mt2008 さま

ご回答ありがとうございます。
でも、やっぱり同じ理由の同じところでストップしました。
なにとぞお力添えよろしくお願いいたしますm(_ _)m