【Excel VBA】ブックに名前を付けて保存する

Dim fileName As String
fileName = Application.GetSaveAsFilename("デフォルトのファイル名", FileFilter:="Excelファイル,*.xlsx,すべてのファイル,*.*")
If fileName <> "False" Then
    ActiveWorkbook.SaveAs Filename:=fileName, FileFormat:=xlNormal
End If
ファイル形式FileFormatの引数
xlsxxlWorkbookDefault
xlsmxlOpenXMLWorkbookMacroEnabled
xlsxlWorkbookNormal
csvxlCSV
txtxlText
スポンサーリンク