Excel VBA 複数のフォルダのコピー

Excel2003を使用しています。

毎月、一定の作業が完了したら、複数のフォルダをバックアップを兼ねてコピーしています。
(以下、仮に、コピーするフォルダを3つとし、フォルダ名をAAA、BBB、CCCとします。フォルダ内にはそれぞれ複数のファイルが保存されています。)

毎月の作業は、Fドライブに保存してあるフォルダで行い、その月の作業が完了したら、Dドライブ、Eドライブ、Gドライブへフォルダごとコピーしたく、それをマクロで処理することは可能でしょうか？
(数種類のメディアへコピーをとっておきたいのです)

よろしくお願いします。

No.1 ベストアンサー 回答者： noah7150 回答日時： 2008/11/19 14:15

フォルダー単位での複写方法

http://officetanaka.net/excel/vba/filesystemobje …

若しくは
Visual Basic Editor の [ツール]-[参照設定] で、
"Microsoft Scripting Runtime" にチェックをして

Dim myFSO As New FileSystemObject
myFSO.CopyFolder "C:\AAA", "D:\AAA"

この回答へのお礼

お礼が遅くなり申し訳ありません。
記載していただいたURL、大変参考になりました。
おかげさまで、希望通りのものが完成しました。
ありがとうございました。

お礼日時：2008/11/26 13:54

No.4 回答者： noname#140971 回答日時： 2008/11/19 15:12

[イミディエイト]

? FolderCopy( "c:\temp\*.csv", "d:\temp")
True

このように FileSystemObject を利用してフォルダ間コピーが可能です。

' ----------------------------------------------------------------
'　FolderCopy( "c:\temp\*.csv", "d:\temp")
' ----------------------------------------------------------------
Public Function FolderCopy(ByVal F As String, _
　　　　　　　　　　　　　 ByVal T As String) As Boolean
On Error GoTo Err_FolderCopy
　　Dim isOK As Boolean
　　
　　isOK = True
　　CreateObject("Scripting.FIleSystemObject").CopyFile F, T
Exit_FolderCopy:
　　FolderCopy = isOK
　　Exit Function
Err_FolderCopy:
　　MsgBox Err.Description & "( FolderCopy)"
　　isOK = False
　　Resume Exit_FolderCopy
End Function

この回答へのお礼

お礼が遅くなり、申し訳ありません。
教えていただいたコード、参考にさせていただきます。
アドバイスありがとうございました。

お礼日時：2008/11/26 14:03

No.3 回答者： hallo-2007 回答日時： 2008/11/19 14:39

>毎月、一定の作業が完了したら、複数のフォルダをバックアップを兼ねてコピーしています。

わざわざエクセルを使用しなくても良くないですか？
１、MS-DOSのXcopyコマンドでバッチファイルを実行する。
http://sonic64.com/2006-04-13.html
参考にしてみてください。
更新されていないファイルをコピィしないなどあるので、動作は圧倒的に早いです。
ほか、Windowsのブリーフケースをメディアに作成してその中に一度コピィしておけば、次からはメディアを差し込むだけです。
今では、NAS（ネットワークで使用するハードディスク）もかなり安くなっています。数万円から
複数のパソコンから使えます（主たる目的ですが）ミラーリングとか機能がありますので、データの保守についてはこちらの方が強力だと思います。

この回答へのお礼

お礼が遅くなり、申し訳ありません。

>わざわざエクセルを使用しなくても良くないですか？

あるExcelファイルを開くことで、毎月の作業に使用しているフォルダを一気に複数のメディアへコピーできればと思い、Excelでと考えていました。

記載していただいたURL参考にさせていただきます。
アドバイスありがとうございました。

お礼日時：2008/11/26 14:01

No.2 回答者： magician_1 回答日時： 2008/11/19 14:32

Batファイルの作り方を知っているのであればBatファイルが簡単です。

EXCELのハイパーリンクから実行できると思います。

この回答へのお礼

お礼が遅くなり申し訳ありません。

>Batファイルの作り方を知っているのであればBatファイルが簡単です。

残念ながら、Batファイルの作り方を知りませんので、この機会に勉強してみます。
アドバイスありがとうございました。

お礼日時：2008/11/26 13:56