VBA to save .xls in same folder as original document

[Samahonka]

Hi all,

I'm trying to use a stadard form called "Master Cleandeskform.xls", and I would like to save it in the same folder as the original document, under differend name.
Cell F3 contains the date, which is used to complete the file name.
Example: "Cleandeskform 17-02-2019.xls"

Everything is working fine, except the file is stored in the folder "My documents", which isn't the folder the original document is stored in.

This is te vba code I've used:

Sub SaveThis****()

Dim FName As String
Dim FDate As String

FName = Cleandeskform "
FDate = Sheets("Sheet1").Range("F3").Text
ThisWorkbook.SaveAs filename:=Fname & FDate

End Sub

 

[wist]

Hi, try this

Sub SaveThis()

Dim FName As String
Dim FDate As String
Dim wbpath As String

wbpath = Workbooks("Master Cleandeskform.xls").Path
FName = "Cleandeskform "
FDate = Sheets("Sheet1").Range("F3").Text
ThisWorkbook.SaveAs Filename:=wbpath & "\" & FName & FDate

End Sub

 

[Samahonka]

Thanks Wist!

I'll try that code also.

I've been coding myself also, and I came up with my own solution which did the trick:

Sub SaveThis()

Dim FDate As String

FDate = Sheets("Sheet1").Range("F4").Text
SaveAsName = ThisWorkbook.Path
ThisWorkbook.SaveAs SaveAsName & "" & "Cleandeskform " & FDate

End Sub

Hi, try this

Sub SaveThis()

Dim FName As String
Dim FDate As String
Dim wbpath As String

wbpath = Workbooks("Master Cleandeskform.xls").Path
FName = "Cleandeskform "
FDate = Sheets("Sheet1").Range("F3").Text
ThisWorkbook.SaveAs Filename:=wbpath & "\" & FName & FDate

End Sub