前提・実現したいこと
EXCELのVBA(マクロ)で指定のフォルダ(A)の、複数の指定のExcelファイル(b.xlsx, g.xlsx, m.xlsm)をリネーム(元ファイル名+元ファイル更新日時)して別の指定したフォルダにコピーする。
そのようなVBAは可能でしょうか
発生している問題・エラーメッセージ
想定としては下記を想定しています。
B2セル:元ファイル格納ディレクトリ
C2セル:コピー先ディレクトリ
C4セル:C4セルから空白行まで繰り返しコピー
調べ方が悪いのか一つのファイルコピーしかソースが見つかっておりません
該当のソースコード
Sub test()
Dim objFileSys
Dim strFilePathFrom
Dim strFilePathTo
'ファイルシステムを扱うオブジェクトを作成 Set objFileSys = CreateObject("Scripting.FileSystemObject") 'コピー元のファイルのパスを指定 strFilePathFrom = "c:\temp\コピー元.txt" strFilePathTo = "c:\temp\コピー先.txt" 'エラー発生時にも処理を続行するよう設定 On Error Resume Next 'ファイルを上書きコピー Call objFileSys.CopyFile(strFilePathFrom, strFilePathTo) '元ファイルが無いなど、エラーになった場合の処理 If Err.Number <> 0 Then 'ここにエラー時の処理を記述 MsgBox "ファイルコピー時にエラーが発生しました。" & vbNewLine & _ "エラー番号:" & Err.Number & vbNewLine & _ "エラー詳細:" & Err.Description 'エラー情報をクリアする。 Err.Clear End If '「On Error Resume Next」を解除 On Error GoTo 0 Set objFileSys = Nothing
End Sub
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2021/11/05 09:54
2021/11/05 09:57 編集
2021/11/08 08:12
2021/11/08 08:39
2021/11/08 09:49