ブックを開いて編集する
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 ②ブック名
①から②へブック名を変更する。(保存場所も変更できる)
【フォルダ】
処理後フォルダ
開きたいブック
処理前フォルダ
開きたいブック
マクロブック
※フォルダにはファイルが一つのみ入っているという前提。