PCメモ

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

2021-02-27から1日間の記事一覧

シートを同じ階層に保存

元データと同じ階層にブック内のシートを保存する。 Sub 同じ階層に保存() 'マクロブックのパス Dim Path As String Path = ThisWorkbook.Path 'シートを新規ブックへコピー Sheets(1).Copy '同じ階層に保存 On Error Resume Next ActiveWorkbook.SaveAs Fil…