How to save Excel file by field name as filename

jolivanes · #5 01-22-2017, 08:32 AM

Code:

Sub Maybe()
    Dim wb1 As Workbook, wbName As String, j As Long
    Application.ScreenUpdating = False
    Set wb1 = ThisWorkbook
    wbName = wb1.Sheets("Sheet1").Cells(4, 3).Value & " " & wb1.Sheets("Sheet1").Cells(5, 3).Value
    ActiveWorkbook.SaveAs Filename:=CreateObject("WScript.Shell").Specialfolders("Desktop") & "\" & wbName, _
    FileFormat:=xlOpenXMLWorkbookMacroEnabled
    ActiveWorkbook.Close
  Application.ScreenUpdating = True
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How can I save a Word Document as a PDF file with a merged field filename?	kp2009	Word VBA	5	08-27-2015 11:45 PM
Excel connot open file (filename) xlsx	dengeorge6	Excel	0	12-12-2014 01:36 AM
Save Filename based on Text Field	madcar86	Word VBA	8	10-19-2014 12:53 AM
Auto update Filename field	Oliver Beirne	Word VBA	4	10-19-2012 03:33 AM
Save Filename using Document Text	Knawl	Word	11	10-10-2011 03:00 AM