Excel VBA質問箱 IV

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

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


65 / 13644 ツリー ←次へ | 前へ→

【82131】do whileでループしないです。。。 23/3/1(水) 20:08 質問[未読]
【82132】Re:do whileでループしないです。。。 マナ 23/3/1(水) 20:46 発言[未読]

【82131】do whileでループしないです。。。
質問   E-MAIL  - 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

【82132】Re:do whileでループしないです。。。
発言  マナ  - 23/3/1(水) 20:46 -

引用なし
パスワード
   ▼れ さん:

ht tps://www.limecode.jp/entry/trap/dirindir

65 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free