The code below works fine, except it saves the file in the "Documents" folder instead of the present location. How can I get it to save in the present location? The Desktop, for example.
Private Sub cmbComplete_Click()
usfFinished.Hide
Dim dt As String, wbNam As String
wbNam = "EmpSatSur"
dt = Format(CStr(Now), "yyyymmddhhmmss")
ActiveWorkbook.SaveAs Filename:=wbNam & dt
ActiveWorkbook.Close
End Sub
You need to specify the path - the path to my desktop is shown below with the backslash added at the end:
Please Login or Register to view this content.
If I've helped you, please consider adding to my reputation - just click on the liitle star at the left.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~(Pride has no aftertaste.)
You can't do one thing. XLAdept
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~aka Orrin
Please Login or Register to view this content.
Regards, TMS
Trevor Shuttleworth - Retired Excel/VBA Consultant
I dream of a better world where chickens can cross the road without having their motives questioned
'Being unapologetic means never having to say you're sorry' John Cooper Clarke
Hi scrabtree,
Thanks for the rep!
If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.
Ditto ... Thanks for the rep.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks