Excel VBA to save to specific folder (with current code generating filename)

Question

workers,

I have this code at the moment;

Public Sub SaveAsA1()
    ActiveWorkbook.SaveAs Filename:=Range("P4").Value & ";" & Range("F6").Value & ";" & Range("R6").Value & ";" & Range("R4").Value
End Sub

Which i would like to modify to be saved in a certain filemap; \S31000265\Users$\NR4236\My Documents\TV-01-project\TestmapWeek9GOED. Been trying but it keeps overwriting the Filename-code. Hope you guys can help me out.

The values are text, which i use to generate file names based upon employee number, employee name, etc. Values are variable at all times. — RobExcel
– RobExcel, Commented Apr 18, 2016 at 7:22

Karthick Gunasekaran · Accepted Answer · 2016-04-18 07:50:03Z

2

Public Sub SaveAsA1()
    ChDir ("C:\work\testout\") ' Directory you need to save the file as xlsm
    Filename = Range("P4").Value & ";" & Range("F6").Value & ";" & Range("R6").Value & ";" & Range("R4").Value
    ActiveWorkbook.SaveAs Filename:=Filename, FileFormat:=52
End Sub

answered Apr 18, 2016 at 7:50

Karthick Gunasekaran

2,7231 gold badge17 silver badges26 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

RobExcel Over a year ago

A real hero to me man! Your code runs smooth as it should. Thank you so much!

Karthick Gunasekaran Over a year ago

@RobExcel, Welcome

Collectives™ on Stack Overflow

Excel VBA to save to specific folder (with current code generating filename)

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related