VBAにxlsxファイルとして保存することに苦労しています

Question

私はVBAに新しいので何か助けに感謝します。私のSaveFileサブに問題があります。これは実際に私がファイルを保存することができますが、私は再びExcelをExcelファイルとして認識しませんそれを開くしようとするとき。実際、デスクトップからファイルを右クリックしてプロパティをチェックすると、ファイルの種類は「ファイル」になります。私はフォーマットのものを読んだことがあるが、このファイルをxlsx形式で保存することはできません。私はマクロが有効になっているExcelファイルを正常に動作させることができましたが、それは私が望むものではありません。私のコードは以下の通りです。不明な点がある場合は質問してください。

ありがとうございました。

サブセーブファイル（）

MsgBox ("You will now be prompted to save your file") 'Notifies User 
savename = Application.GetSaveAsFilename() 'Gets directory/name 
ActiveWorkbook.SaveAs Filename:=savename, FileFormat:=51 'Something iswrong 

End Subのここ

は "フォーマットレス" ファイル

Answer 1

あなたがその拡張子を付けて保存する必要があり、ファイルを保存する画像です：

Sub SaveFile() 

    savename = Application.GetSaveAsFilename(fileFilter:="Exel Files (*.xlsx), *.xlsx")) 
    ActiveWorkbook.SaveAs Filename:=savename, FileFormat:=51 

End Sub