Saving a Workbook - Excel 2013

[Rocky0201]

Hi,

I have a Macro Enabled Workbook (Workbook A) that I use GetOpenFilename to open another Workbook (Workbook B). After changing data in Workbook B from Workbook A, I wish to do a Save As on Workbook B from Workbook A.

Is this possible?

In Workbook A I have the following code:

Private Sub CommandButton7_Click()


Workbooks(TextBox1.Value).Activate ' Activate the Workbook previously opened using GetOpenFilename

FName = Application.GetSaveAsFilename(InitialFileName:=TextBox1.Value, _
FileFilter:="Excel Files (*.xlsx), *.xlsx", Title:="DMS File To Be Saved")
If FName = False Then Exit Sub

End Sub

The Save As Dialog box is presented. When I update the File Name to Save and then press the Save button, return back to my code occurs and FName is not False (it contains the path and filename that I am trying to save).

The problem is, the file I am saving does not exits.

Any help would be appreciated.

Thanks

 

[Kentetsu]

See if I'm understanding you correctly here. The only issue you are having is that the file does not close when finished? I'm not sure if this is a type, and you meant exit or did you mean exist? "The problem is, the file I am saving does not exits".

If you just need to exit, then you'll need something like this (modified to suit your needs). This is actually closing a workbook the code was modifying, and then closing the workbook that actually contains the code. This also gives an example of saving changes, or not saving them:

 Windows("export.MHTML").Activate
                    ActiveWorkbook.Close SaveChanges:=False                    
                   
            With ThisWorkbook
                    Saved = True
                    .Close
            End With

 

[Rocky0201]

Thanks for your response, Kentetsu.

I meant exist... I do not receive any errors with using the Save As Dialog. After I press the Save Button, the dialog box disappears and control is back to my routine. I go into Windows Explorer to look for the file I just saved and it does not exist.

 

[Kentetsu]

Okay, sorry about that. I've never attempted to use an automated "save as" before, so I'll just stand back and watch at this point. Someone smart should be along shortly.

 

[Rocky0201]

Don't sell yourself short... Your examples above could be a very big help if the GetSaveAsFilename Dialog does not work for me.

Thanks Kentetsu. Hopefully someone will respond.