Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

272 / 76735

←次へ　｜　前へ→


	【82131】do whileでループしないです。。。

れ

- 23/3/1(水) 20:08 -


	引用なし

	パスワード

下記コードでループせず1回で終了してしまいます。
何回見直してもわかりません、ご教授お願いできませんでしょうか。
よろしくお願いします。
対象のフォルダには3つ以上の.xlsxファイルがあります。

Sub 販売営業インセンティブへの転記()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim fp As String
　　fp = ThisWorkbook.path
Dim 行先 As String
　　行先 = "C:\Users\5058\Desktop\販売営業インセンティブ"
Dim 対象 As String
　　対象 = Dir(fp & "\" & "インセンティブ" & "\" & "*.xlsx")
Do Until 対象 = ""
　　Dim 店番 As String
　　　店番 = Left(対象, 3) & "*"
　　Dim 行先フォルダ As String
　　　行先フォルダ = Dir(行先 & "\" & 店番, vbDirectory)
　　Dim FSO As Object
　　 Set FSO = CreateObject("Scripting.FileSystemObject")
　　FSO.CopyFile fp & "\" & "インセンティブ" & "\" & 対象, 行先 & "\" & 行先フォルダ & "\"
　　対象 = Dir()
Loop

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

6 hits

▼

【82131】do whileでループしないです。。。 れ 23/3/1(水) 20:08