Macro uses "Save As" to a specific location

K

kyle

I have a save as part written in my code and I want it to save to a specific
folder (Lab_Inspection_Data in My Documents). However, the way I have it
written right now does not work. Could someone show me how to write the code
so it saves in the correct folder? Here is my code...

sFilename = Format(Worksheets("Checklist").Range("H4").Value & "_" &
Worksheets("Checklist").Range("B4").Value, "yyyy-mm-dd")
ans = MsgBox("Save file as " & sFilename)
If ans = vbOK Then
ActiveWorkbook.SaveAs "C:\My Documents\Lab_Inspection_Data\" & sFilename
End If

Thanks,
Kyle
 
J

Jim Jackson

ActiveWorkbook.SaveAs "C:\My Documents\Lab_Inspection_Data\" & sFilename &
".xls"

If I am reading your code accurately, the required ".xls" is missing.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

VBA - exporting serial letters to single documents 0
use a macro to "Save As" to a generic desktop 2
Save As Macro 3
Macro to Select text from a point given to a specific word 2
SAVE AS MACRO 6
Need help with "save as" macro 7
How to work on a new worksheet 3
Save macro Truncating text 4

Top