Save as, to save to the same folder with vba?

[Lil2606]

Hi all,

I have the following code, but this saves my workbook to C:/Documents.. is there a way to make it save to the same folder, my original file is in?

I have this Workbook full of macros and code which allows data manipulation efficiently sort of a 'Raw data converter', and this last macro would create the 'final formatted Data' version, saved as an xlsx, so it can be just stored, but the original 'converter' file will be on a shared drive, so I am not sure whre this macro will save to, if its not specified..

Could someone help me with this please?

Sub Finalize()

Worksheets(Array("Info&Admin", "Data Summary")).Copy


ActiveWorkbook.SaveAs Filename:="Data_export " & Format(Date, "DD-MM-YYYY"), FileFormat:=xlWorkbookDefault


ActiveWorkbook.Close


End Sub

 

[Fluff]

Try

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Data_export " & Format(Date, "DD-MM-YYYY"), FileFormat:=xlWorkbookDefault

 

[Joe4]

Maybe something like this:

Sub Finalize()

[COLOR=#ff0000]Dim pth as String

pth = Activeworkbook.Path[/COLOR]

Worksheets(Array("Info&Admin", "Data Summary")).Copy

ActiveWorkbook.SaveAs Filename:= [COLOR=#ff0000]pth[/COLOR] [COLOR=#ff0000]&[/COLOR] "[COLOR=#ff0000]\[/COLOR]Data_export " & Format(Date, "DD-MM-YYYY") [COLOR=#ff0000]& ".xlsx"[/COLOR], FileFormat:=xlWorkbookDefault

ActiveWorkbook.Close

End Sub

 

[Lil2606]

Ah amazing thank you! I tried this earlier but this symbol "" I was missing..

 

[Joe4]

You are welcome. Glad we were able to help.
Yep, people often forget the last back slash.