編集後保存フォルダを移動

ブックを開いて編集する

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 ②ブック名

①から②へブック名を変更する。（保存場所も変更できる）

【フォルダ】

　処理後フォルダ

　　開きたいブック

　処理前フォルダ

　　開きたいブック

　マクロブック

※フォルダにはファイルが一つのみ入っているという前提。