SaveAs - Force filetype

[trevolly]

Hi all,

I'm using this vba I've found to run a Save As box to open and point to a specific location on a network drive so the user only has to enter the filename they want to save the workbook as. It seems to default to a macro free workbook. Is there anyway of keeping this vba as it works but for it to force to save in .xlsm?

Thank you

Sub SAVETOSUB()

ThisWorkbook.Save 'save current workbook in current name

With Application.FileDialog(msoFileDialogSaveAs)
AllowMultiSelect = False
.InitialFileName = "X:\Airfield Operations\2023 Airfield Inspection and Data\Aircraft High Powered Engine Runs\NEW\Pending Runs\"
If .Show = -1 Then .Execute
End With
End Sub

 

[trevolly]

Hi all,

No replies to the above but after searching the web for days I found a solution.....thought I'd share the vba- it might help someone who wants to do the same.

Regards.

Sub cmdSaveForm1_Click()

    Dim strFolder As String
    Dim i As Long
    Dim fname As String
    Dim reqdate As String

    'Find the position of the period in the file name
    i = InStr(ActiveWorkbook.Name, ".")
    fname = Range("C2")
    reqdate = Range("C6").Text
    

    'Create a default file name by concatenating the file name without the extention _
        plus the current date and time, and plus the xlsm extention
    Filename = Left(fname, i - 1) & " - " & (reqdate) & ".xlsm"

    'Open Save As dialog to a default folder with default file name
    With Application.FileDialog(msoFileDialogSaveAs)
        .AllowMultiSelect = False
        .FilterIndex = 2  '2 = xlsm
        .InitialFileName = "location" & Filename  '(replace location to your requirements)
        .InitialView = msoFileDialogViewDetails
        If .Show = -1 Then strFolder = .SelectedItems(1) Else Exit Sub
        .Execute
    End With
End Sub