PCメモ

Excelを中心とした業務改善の記録

2020-09-10から1日間の記事一覧

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

ブックを開いて編集する Dim i As Long Dim bookname As String bookname = Dir(ThisWorkbook.Path & "¥処理前¥") Workbooks.Open ThisWorkbook.Path & "¥処理前¥" & bookname '開いたブックに対して処理を行う。 ActiveWorkbook.Close savechanges:=Tru…