VBAでマクロを使って、マクロ無効のエクセルシートとして名前を付けて保

質問

VBAでマクロを使って、マクロ無効のエクセルシートとして名前を付けて保存ってできますか？？

FileFilter:="エクセルファイル(*.xlsx),*.xlsx"

として保存すると、保存はできるのですが、開くことができません。

VBA初心者です。よろしくお願いします。

回答No.1

end-u · ベストアンサー

#Excelのバージョンが2007だとして。

Book名が固定なら

ActiveWorkbook.SaveAs Filename:="c:\test\test.xlsx", FileFormat:=xlOpenXMLWorkbook
'"c:\test\test.xlsx"はテキトーです。

...っていう事でしょうか？

それとも
Sub Macro1()
　　Dim x As Variant

　　x = Application.GetSaveAsFilename(fileFilter:="エクセルファイル(*.xlsx),*.xlsx")
　　If VarType(x) <> vbBoolean Then
　　　　ActiveWorkbook.SaveAs Filename:=x, FileFormat:=xlOpenXMLWorkbook
　　End If
End Sub
こちらでしょうか。

お礼

できました。
ありがとぉございます！！