Excel VBA質問箱 IV

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

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


18014 / 76732 ←次へ | 前へ→

【64162】Re:フォルダのコピー
発言  Yuki  - 10/1/22(金) 13:49 -

引用なし
パスワード
   ▼ぴかる さん:
こんにちは。
>新規フォルダを作成し、ファイルのコピーでやりたい事は出来ました。
>もしフォルダのコピーのコードがありましたら、よろしくお願いします。

下位フォルダまでコピーしてしまいます。
ヘルプはドスプロンプトで xcopy /? で見てください。

Sub TESTa()
  Dim マスターパス  As String
  Dim データパス   As String
  Dim 年       As String
  
  年 = Range("B4").Value
  マスターパス = ActiveWorkbook.Path & "\データマスター "  '最後にスペースを
  データパス = ActiveWorkbook.Path & "\" & 年 & "年"
  
  Shell "cmd.exe /c xcopy " & マスターパス & データパス & " /e /c /i /q", vbHide
End Sub

0 hits

【64153】フォルダのコピー ぴかる 10/1/22(金) 11:01 質問
【64156】Re:フォルダのコピー ぴかる 10/1/22(金) 11:42 発言
【64160】Re:フォルダのコピー ponpon 10/1/22(金) 12:23 発言
【64162】Re:フォルダのコピー Yuki 10/1/22(金) 13:49 発言
【64161】Re:フォルダのコピー UO3 10/1/22(金) 12:57 回答
【64163】Re:フォルダのコピー seg 10/1/22(金) 13:49 発言
【64164】感動しました (^^) ぴかる 10/1/22(金) 14:56 お礼
【64165】Re:感動しました (^^) Yuki 10/1/22(金) 15:16 発言
【64166】Re:感動しました (^^) ぴかる 10/1/22(金) 15:31 発言
【64167】Re:感動しました (^^) Yuki 10/1/22(金) 15:37 発言
【64168】ヘルプ表示出来ました ぴかる 10/1/22(金) 16:55 お礼

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