元データと同じ階層にブック内のシートを保存する。 Sub 同じ階層に保存() 'マクロブックのパス Dim Path As String Path = ThisWorkbook.Path 'シートを新規ブックへコピー Sheets(1).Copy '同じ階層に保存 On Error Resume Next ActiveWorkbook.SaveAs Fil…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。