![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?c9bd177)
Excel2003を使用しています。
毎月、一定の作業が完了したら、複数のフォルダをバックアップを兼ねてコピーしています。
(以下、仮に、コピーするフォルダを3つとし、フォルダ名をAAA、BBB、CCCとします。フォルダ内にはそれぞれ複数のファイルが保存されています。)
毎月の作業は、Fドライブに保存してあるフォルダで行い、その月の作業が完了したら、Dドライブ、Eドライブ、Gドライブへフォルダごとコピーしたく、それをマクロで処理することは可能でしょうか?
(数種類のメディアへコピーをとっておきたいのです)
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
フォルダー単位での複写方法
http://officetanaka.net/excel/vba/filesystemobje …
若しくは
Visual Basic Editor の [ツール]-[参照設定] で、
"Microsoft Scripting Runtime" にチェックをして
Dim myFSO As New FileSystemObject
myFSO.CopyFolder "C:\AAA", "D:\AAA"
お礼が遅くなり申し訳ありません。
記載していただいたURL、大変参考になりました。
おかげさまで、希望通りのものが完成しました。
ありがとうございました。
No.4
- 回答日時:
[イミディエイト]
? 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
No.3
- 回答日時:
>毎月、一定の作業が完了したら、複数のフォルダをバックアップを兼ねてコピーしています。
わざわざエクセルを使用しなくても良くないですか?
1、MS-DOSのXcopyコマンドでバッチファイルを実行する。
http://sonic64.com/2006-04-13.html
参考にしてみてください。
更新されていないファイルをコピィしないなどあるので、動作は圧倒的に早いです。
ほか、Windowsのブリーフケースをメディアに作成してその中に一度コピィしておけば、次からはメディアを差し込むだけです。
今では、NAS(ネットワークで使用するハードディスク)もかなり安くなっています。数万円から
複数のパソコンから使えます(主たる目的ですが)ミラーリングとか機能がありますので、データの保守についてはこちらの方が強力だと思います。
お礼が遅くなり、申し訳ありません。
>わざわざエクセルを使用しなくても良くないですか?
あるExcelファイルを開くことで、毎月の作業に使用しているフォルダを一気に複数のメディアへコピーできればと思い、Excelでと考えていました。
記載していただいたURL参考にさせていただきます。
アドバイスありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) excel 別のフォルダから列コピーする方法 8 2022/12/17 16:24
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- Windows 10 Corsair SSDが遅い (2)WDに比べて 3 2023/04/25 11:21
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- グループウェア 一太郎がイントラで開けません。対処方法を知りたいです。 3 2023/04/04 13:30
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
TeraTermでファイルの中身をコ...
-
RecordNowでのDVD+R DLへの書...
-
rsyncのエラー
-
メールデータ移動(OE6)の際の文...
-
お気に入りに登録したのに表示...
-
ファイルをコピーできません
-
Excelのハイパーリンクで絶対パ...
-
パソコンの引越しについて
-
別のFDへのファイルの移動の...
-
Google ChromeのIEブックマーク...
-
ファイルの一括コピーについて
-
jw_cadの「.BAK」や「自動保存○...
-
Onedriveについて
-
外付けHDDに画像が保存できなく...
-
圧縮ファイルが解凍?されても...
-
CADのsfcファイルをjw...
-
エクセルvbaでファイル書き込み...
-
bin(バイナリ)ファイルがどう...
-
JW-CADのデータを他のパ...
-
解凍後、元ファイルを自動的に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelのハイパーリンクで絶対パ...
-
rsyncのエラー
-
TeraTermでファイルの中身をコ...
-
エクスプローラーのドラッグア...
-
Google ChromeのIEブックマーク...
-
プリンセスメーカー2クラシッ...
-
Macでのファイルコピーが死ぬほ...
-
ファイルの一括コピーについて
-
BD-R 上の消失データ復元について
-
フォルダー内リストのプリント
-
Mac超初心者です。ibookの写真...
-
エラーコード-36と出てコピー出...
-
ToastでDVDのコピーができない
-
Office関連?で知らぬ間...
-
iTunesが外付けHDDの曲を認識し...
-
MS-DOS 5.0A XCOPYコマンドオプ...
-
PowerMacG-3のHDD丸ごと...
-
ファイルコピーのレジュームソフト
-
itunesの引っ越しができない(Wi...
-
PCがフリーズしたので強制終...
おすすめ情報