Use VBA to save document as

[jeroenv]

Dear,

I'm trying to use VBA to save multiple documents in different directories depending on values in cells. Below, I only show the relevant lines.

Unfortunately, I haven't saved any file yet. To check: I use VBA to print "OK" in different cells after performing a new line of code. All are printed except the one in H1. Any ideas what is going wrong? Many thanks

Dim path As String
Dim FileName As String

Range("E1") = "OK"
path = Range("H12").Value
Range("F1") = "OK"
FileName = Range("F12").Value
Range("G1") = "OK"
wb2.SaveAs FileName = path & FileName, FileFormat = xlNormal
Range("H1") = "OK"

[mehmetcik]

You should use the macro recorder to record yourself opening a file and saving it in a new location.

You will get something like this.

Sub Macro3()
'
' Macro3 Macro
'

'
    ChDir "C:\Users\Mehmetcik\Application Data\Desktop\Searcher"
    Workbooks.Open(Filename:= _
        "C:\Users\Mehmetcik\Application Data\Desktop\Searcher\Searcher.xlsm"). _
        RunAutoMacros Which:=xlAutoOpen
    Windows("Searcher.xlsm").Activate
    ChDir "C:\Users\Mehmetcik\Application Data\Desktop\Export"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Mehmetcik\Application Data\Desktop\Export\Searcher.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

If you use

InstrRev you can strip out the Filename and the path name

FullPath = "C:\Users\Mehmet\Application Data\Desktop\Searcher"

MyPath = Left(FullPath, InStrRev(FullPath, "\"))
MyName = Right(FullPath, Len(FullPath) - Len(MyPath))

Alternatively you could use these functions:-

MyPath = ActiveWorkbook.Path

MyCompletePath = ActiveWorkbook.FullName

MyName = ActiveWorkbook.Name