拡張子をみて保存形式を切り替えてくれる Dim vntFileName As Variant 'ファイルを保存するダイアログを開きます vntFileName = _ Application.GetSaveAsFilename( _ InitialFileName:=ThisWorkbook.Name _ , FileFilter:="エクセルファイル(*.xls),*.xls" &…