ここから本文です

エクセルのセルに記載されたファイルを移動するため マクロを組みました。移動で...

kei********さん

2019/3/2014:02:54

エクセルのセルに記載されたファイルを移動するため
マクロを組みました。移動できなかったファイル名が書かれた
セルの横に×、できた横に〇をつけたいのですが
うまくいきません。。

初心者ですが、ご教授頂けたらと思います。


Sub ファイルを移動させる()
Dim fso As New Scripting.FileSystemObject
Dim sourceFile As String
Dim destinationFile As String
Dim i As Long

For i = 2 To 190

sourceFile = "移動するファイル名とフルパス"
destinationFile = "移動先フォルダのフルパス"
Debug.Print sourceFile
Debug.Print i

On Error GoTo Err
fso.MoveFile sourceFile, destinationFile
Set fso = Nothing

ここで移動できなかったファイルだけ横のセルに×を付けて
移動できたファイルの横には〇をつけたいと思いますが
上手くいきません。。

Err:
Resume Next
Cells(i, 7) = "×"

Next i
End Sub

似たような質問をしてすみません。。

閲覧数:
23
回答数:
1

違反報告

ベストアンサーに選ばれた回答

unk********さん

2019/3/2014:14:10

FileSystemObjectでファイルがあるかどうか確認して、あれば実行。

If fso.FileExists(sourceFile) Then
fso.MoveFile sourceFile, destinationFile
Cells(i, 7) = "○"
Else
Cells(i, 7) = "×"
End If

質問した人からのコメント

2019/3/20 16:09:20

ありがとうございます!

あわせて知りたい

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる