Application.GetSaveAsFilename isn't working

[mykulpasskwa]

Hey there, I set up an Application.GetSaveAsFilename and it successfully brings up the Save As dialogue box, however it doesn't actually save the file and the "Save as type:" only gives me the option of All Files (*.*) and won't let me select or save as .xlsm. Now I am saving this on a sharedrive, which hasn't been a problem in the past, so I'm just mentioning that but I don't think it's the cause. Anyone have any idea why it gives me the option to save but doesn't actually save the file?

Sub Match()
Dim a As Currency
Dim b As Currency
Dim answer As Integer
Dim NUID As Variant

a = Worksheets("Sheet 1").Range("R24").Value
b = Worksheets("Sheet 1").Range("R25").Value
NUID = Worksheets("Sheet 1").Range("F2").Value

If b = 0 And a = 0 Then
    Exit Sub
    ElseIf Sheet2.Range("R24").Value = Sheet2.Range("R25").Value Then
    MsgBox ("The Account Balance and Banner Balance Match." & vbNewLine & "Sheet balance is $ " & a & vbNewLine & "Banner balance is $ " & b)
    answer = MsgBox("Would you like to save?", vbYesNo + vbQuestion)
    If answer = vbYes Then
    Application.GetSaveAsFilename (NUID & " - Account Overview")
    Else
        'do nothing
    End If
    End If
End Sub

 

[Fluff]

The GetSaveasFilename, only gets a name, it does not save the file. try

Dim Fname As String
Fname = Application.GetSaveAsFilename(NUID & " - Account Overview")
ThisWorkbook.SaveAs Fname & "xlsm", 52

 

[ranman256]

you can get around it with:

Sub SaveAsMyWb()
Dim vFile
vFile = getSaveAsFile("c:\")
if vFile <> "" then ActiveWorkbook.SaveAs vFile, xlWorkbookDefault

End Sub



Public Function getSaveAsFile(Optional pvPath)
Dim strTable As String
Dim strFilePath As String
Dim sDialog As String, sDecr  As String, sExt As String
'===================
'YOU MUST ADD REFERENCE : Microsoft Office 11.0 Object Library, in vbe menu, TOOLS, REFERENCES
'===================
With Application.FileDialog(msoFileDialogSaveAs)
.AllowMultiSelect = False
.Title = "Save to"
.ButtonName = "SAVE"
.InitialFileName = pvPath
.InitialView = msoFileDialogViewList 'msoFileDialogViewThumbnail

If .Show = 0 Then
'There is a problem
Exit Function
End If

'Save the first file selected
getSaveAsFile = Trim(.SelectedItems(1))
End With
End Function

 

[mykulpasskwa]

The GetSaveasFilename, only gets a name, it does not save the file.

This worked like a charm. Thank you for the quick response and resolution!

 

[Fluff]

You're welcome & thanks for the feedback.