ブックを開いて編集する
Dim i As Long
Dim bookname As String
bookname = Dir(ThisWorkbook.Path & "￥処理前￥")
Workbooks.Open ThisWorkbook.Path & "￥処理前￥" & bookname
'開いたブックに対して処理を行う。
ActiveWorkbook.Close savechanges:=True
Name ThisWorkbook.Path & "￥処理前￥" & bookname _
As ThisWorkbook.Path & "￥処理後￥" & bookname
MsgBox "完了しました"
構成
【フォルダ】
処理後フォルダ
処理前フォルダ
開きたいブック
マクロブック
解説
bookname = Dir(ThisWorkbook.Path & "￥処理前￥")
変数booknameに処理前フォルダの中に入っているbookの名前を入れる。
Dir(フルパス)でブック名を取得。
Workbooks.Open ThisWorkbook.Path & "￥処理前￥" & bookname
処理前フォルダに入っているbookを開く。
↑
この間に、開いたbookに対して処理を実行する。
↓
ActiveWorkbook.Close savechanges:=True
保存して閉じる。
Name ThisWorkbook.Path & "￥処理前￥" & bookname _
As ThisWorkbook.Path & "￥処理後￥" & bookname
Name ①ブック名 As ②ブック名
①から②へブック名を変更する。（保存場所も変更できる）
【フォルダ】
処理後フォルダ
開きたいブック
処理前フォルダ
開きたいブック
マクロブック
※フォルダにはファイルが一つのみ入っているという前提。