Sub Test1()

    ActiveWorkbook.Close SaveChanges:=True, Filename:=ThisWorkbook.Path & "\NewBook.xls"

End Sub

 

Microsoft Office ブログランキングへ