Saving a file by using a macro

[mikeywhits]

Hi all,

Does anyone know how to use a macro to save a file? if this is possible?????

What i am trying to do is open a file dated 19/6 and then run a macro which would save it to a folder as 20/6 - but this would need to add 1 day each time.

Regards,

Mike

 

[puru.sve]

Hi Mike, Here see the code... . AS excel can not be save '\' with this. so if your file name is like 19-6 then it will work . or let me kno excatly name of your file.

Sub saveAsdisplay()
Dim fPth As Object
Set fPth = Application.FileDialog(msoFileDialogFilePicker)
        
        With fPth
            .InitialFileName = ThisWorkbook.Path & "\"
            .Title = "Select Data File :"
            .InitialView = msoFileDialogViewList
            If .Show = True Then
                filePth = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
            Else
                Exit Sub
            End If
        
        End With
              
        filenm = CreateObject("Scripting.FileSystemObject").GetBasename(filePth)
       
        Set wbkOpenFile = Workbooks.Open(filenm)
       filestr = Format(CDate(filenm) + 1, "dd-mm")

        Set fPth = Application.FileDialog(msoFileDialogSaveAs)
        
        
        
        With fPth
            .InitialFileName = filestr
            .Title = "Save your File:"
            .InitialView = msoFileDialogViewList
             If .Show = True Then
                 .Execute
              Else
              Exit Sub
             End If
            
        End With
        wbkOpenFile.Close
End Sub