VBAでファイルをコピー

Aというフォルダの配下に、B,Cというフォルダがあります。

Bには、ｂ１ファイルとｂ２ファイルがあり、
Cには、ｃ１ファイルがあります。

Aフォルダにa1ファイルをおき、a1ファイル内にある
ボタンを押すと、Ｂフォルダのｂ１ファイルとｂ２ファイル
Ｃフォルダのｃ１ファイルをすべてＡフォルダ直下にコピーする
ようにするにはどうすればいいでしょうか？

dosコマンドで実行するようにはできるかと思いますが
vbaでやる方法を教えて下さい。

No.4 回答者： DOUGLAS_ 回答日時： 2011/06/17 19:32

＞dosコマンドで実行するようにはできるかと思いますが

＞vbaでやる方法を教えて下さい。
　「dosコマンド」は自力でできそうなので、それとは別に エクセル の マクロ でやりたい
というような意味ですか？

　でしたら、ザクッとした説明ですが、下記のようなことかと。。。


【下準備】
１）[Alt] + [F11] キー を押下して、[VBE(Visual Basic Editor)] を開きます。

２）[挿入(I)] - [標準モジュール(M)] で コードウィンドウ を開きます。

３）現われた コードウィンドウ に下記を コピペ します。
'-- ここから ----------------------------------------------------
Sub Macro1()
Dim myPath As String
myPath = ThisWorkbook.Path & "\"
FileCopy myPath & "B\ｂ１.xls", myPath & "ｂ１.xls"
FileCopy myPath & "B\ｂ２.xls", myPath & "ｂ２.xls"
FileCopy myPath & "C\ｃ１.xls", myPath & "ｃ１.xls"
End Sub
'-- ここまで ----------------------------------------------------

４）[Alt] + [F4] で [VBE] を閉じます。


【ボタン への マクロ の登録】


●「a1ファイル内にあるボタン」が「オートシェープ」または「フォーム の コマンド ボタン」のとき

１）「ボタン」を 右クリック - [マクロの登録(N)...] を クリック します。

２）[マクロの登録] ダイアログ の一覧で「Macro1」を クリックし、[マクロ名(M):] の下の ボックス に「Macro1」と表示されたのを確認して、[OK] します。


●「a1ファイル内にあるボタン」が「コントロール ツールボックス の コマンド ボタン」のとき
１）「コントロール ツールボックス」の「デザイン モード」を クリック します。

２）「ボタン」を 右クリック - [コードの表示(V)] を クリック します。

３）現われた
Private Sub CommandButton1_Click()

End Sub
というような コード の間に、上記の「Dim myPath As String」以下の５行を コピペ し、最終的に下記のようになるようにします。
'-- ここから ----------------------------------------------------
Private Sub CommandButton1_Click()
Dim myPath As String
myPath = ThisWorkbook.Path & "\"
FileCopy myPath & "B\ｂ１.xls", myPath & "ｂ１.xls"
FileCopy myPath & "B\ｂ２.xls", myPath & "ｂ２.xls"
FileCopy myPath & "C\ｃ１.xls", myPath & "ｃ１.xls"
End Sub
'-- ここまで ----------------------------------------------------

　ただし、「CommandButton1」の部分は、(２) で 右クリック した ボタン によって変わります。

４）[Alt] + [F4] で [VBE] を閉じます。

５）「コントロール ツールボックス」の「デザイン モードの終了」を クリック します。

【a1ファイル内にあるボタンを押す作業】
　それぞれの ボタン を クリック するだけです。

No.3 回答者： imogasi 回答日時： 2011/06/17 11:18

#2です。

＞dosコマンドで実行するようにはできるかと
Sub test01()
'Call Shell("Command.com /c dir")
'Call Shell("Command.com /c mkdir テストA")
Call Shell("Command.com /c mkdir テストA\テストB")
End Sub
出できるようです。（エクセルVBAのモジュールでテスト）
.

No.2 回答者： imogasi 回答日時： 2011/06/17 10:09

>a1ファイル内にあるボタンを押すと

意味不明。VBAはエクセル？ボタンであればシートかユーザーフォーム上？
ーーー
ファイルのコピー
・WSHを使う
http://www.moug.net/tech/exvba/0060067.htm
・VBS（FSO)をつかう
http://officetanaka.net/excel/vba/filesystemobje …

No.1 回答者： nag0720 回答日時： 2011/06/17 04:17

＞Aフォルダにa1ファイルをおき、a1ファイル内にあるボタンを押すと、

「a1ファイル内にあるボタン」ってなに？

a1ファイルってどういうファイル？