保存されているフォルダにtest.xlsで保存
Mac
Sub 名前をつけて保存()
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & ":test.xls"
End Sub
Win
Sub 名前をつけて保存()
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\test.xls"
End Sub
コメントする