公開:14.12.25
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\サンプル.xls", FileFormat:=XlFileFormat.xlExcel8