Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3136 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【64153】フォルダのコピー
質問  ぴかる  - 10/1/22(金) 11:01 -
引用なし
パスワード
   お世話になります。

あるフォルダ内にマスターとなるフォルダを作成しています。このフォルダを同フォルダ内でコピーし、データ用フォルダとさせその名前を変更したいと考えています。可能でしょうか？よろしくお願い致します。
【64156】Re:フォルダのコピー
発言  ぴかる  - 10/1/22(金) 11:42 -
引用なし
パスワード
   新規フォルダを作成し、ファイルのコピーでやりたい事は出来ました。
もしフォルダのコピーのコードがありましたら、よろしくお願いします。

Sub フォルダ作成()

　　年 = Range("B4").Value
　　マスターパス = ActiveWorkbook.Path & "\ﾃﾞｰﾀﾏｽﾀｰ"
　　データパス = ActiveWorkbook.Path & "\" & 年 & "年"
　　
　　If Dir(データパス, vbDirectory) = "" Then
　　　　MkDir データパス
　　　　データファイル = Dir(マスターパス & "\*.xls")
　　　　Do While データファイル <> ""
　　　　　　FileCopy マスターパス & "\" & データファイル, データパス & "\" & データファイル
　　　　　　データファイル = Dir()
　　　　Loop
　　End If

End Sub
【64160】Re:フォルダのコピー
発言  ponpon  - 10/1/22(金) 12:23 -
引用なし
パスワード
   よくわかっていませんが、
FSOを使った方が簡単ではないですか？
参考に
ht　tp://officetanaka.net/excel/vba/filesystemobject/filesystemobject.htm
【64161】Re:フォルダのコピー
回答  UO3  - 10/1/22(金) 12:57 -
引用なし
パスワード
   ▼ぴかる さん：

自分ではやったことはないのですがFSOのCopyFolderで
できるのではないでしょうか。
【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
【64163】Re:フォルダのコピー
発言  seg  - 10/1/22(金) 13:49 -
引用なし
パスワード
   補足：
CopyFolderはエラーとラップが必要になるので
ご確認を。
【64164】感動しました　(^^)
お礼  ぴかる  - 10/1/22(金) 14:56 -
引用なし
パスワード
   ご回答を下さった皆様、誠にありがとうございました。

Yukiさん
　全く意味は分かりませんでしたが、バッチリ思い通りの結果が得られました。
　めちゃ、感動です。
>ヘルプはドスプロンプトで xcopy /? で見てください。
　恥ずかしながら、この操作自体？です。素人でして・・・

ponponさん、UO3さん、segさん
　教えて頂いたサイトにて、FSO.CopyFolderをトライしてみました。
　残念ながら、以下の問題をクリアできませんでした。
　・同フォルダに同じフォルダを作成出来ない。
　・新しく作成したフォルダの名称変更が分からない。

今回も色々と勉強になりました。いつも皆様方より、貴重なアドバイスを頂きまして日々スキルアップさせてもらっています。今後ともよろしくお願い致します。
【64165】Re:感動しました　(^^)
発言  Yuki  - 10/1/22(金) 15:16 -
引用なし
パスワード
   ▼ぴかる さん：
>ヘルプはドスプロンプトで xcopy /? で見てください。
>　恥ずかしながら、この操作自体？です。素人でして・・・

ウィンドウの左下の
スタート->すべてのプログラム->
アクセサリ->コマンドプロンプトをクリック
　　　　　　^^^^^^^^^^^^^^^^^^
黒い画面がでます。　　　　　　　 ________ を入力
C:\Document and settings********>xcopy /?
すると　ヘルプがでます。
【64166】Re:感動しました　(^^)
発言  ぴかる  - 10/1/22(金) 15:31 -
引用なし
パスワード
   ▼Yuki さん：
>▼ぴかる さん：
>>ヘルプはドスプロンプトで xcopy /? で見てください。
>>　恥ずかしながら、この操作自体？です。素人でして・・・
>
>ウィンドウの左下の
>スタート->すべてのプログラム->
>アクセサリ->コマンドプロンプトをクリック
>　　　　　　^^^^^^^^^^^^^^^^^^
>黒い画面がでます。　　　　　　　 ________ を入力
>C:\Document and settings********>xcopy /?
>すると　ヘルプがでます。

こんな画面となりましたが、ここからがまた？です。
自分なりやってみましたが、うまく行きませんでした。
Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

C:\Documents and Settings\871543>
【64167】Re:感動しました　(^^)
発言  Yuki  - 10/1/22(金) 15:37 -
引用なし
パスワード
   ▼ぴかる さん：
>
>こんな画面となりましたが、ここからがまた？です。
>自分なりやってみましたが、うまく行きませんでした。
>Microsoft Windows XP [Version 5.1.2600]
>(C) Copyright 1985-2001 Microsoft Corp.
>
>C:\Documents and Settings\871543>この位置にXCOPY /? です。
前の説明ではずれてしまっていますね。
【64168】ヘルプ表示出来ました
お礼  ぴかる  - 10/1/22(金) 16:55 -
引用なし
パスワード
   ▼Yuki さん：
>>C:\Documents and Settings\871543>この位置にXCOPY /? です。
>前の説明ではずれてしまっていますね。

ありがとうございました。無事、ヘルプ表示となりました。
勉強させていただきますね。

とてもハッピーな一日となりました♪
自分も少しでも回答出来る様、頑張りますね！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3136 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free