Dim saveFileName As String saveFileName = Application.GetSaveAsFilename("デフォルトのファイル名", FileFilter:="Excelファイル,*.xlsx,すべてのファイル,*.*") If saveFileName <> "False" Then ActiveWorkbook.SaveAs Filename:=saveFileName, FileFormat:=xlNormal End If
ファイル形式 | 引数 |
---|---|
xlsx | xlWorkbookDefault |
xlsm | xlOpenXMLWorkbookMacroEnabled |
xls | xlWorkbookNormal |
CSV | xlCSV |
TXT | xlText |