saving

[david hasslehof]

I am trying to create a button which will let me print and save a file, I can do the printing bit but cannot save it, I want to save it under the name of cell f3 and c3. Is there any way this can be done???

 

[erik.van.geit]

Hi,

this is the basic code

ThisWorkBook.SaveAs "fullname"

fullname will contain 3 parts
path
name
extension

parth could be the thisworkbook path
name will be in the cell
extension probably ".xls"

Sub Mysaveas()
Dim fName As String
Dim fPath As String

fPath = ThisWorkbook.Path
fName = Sheets(1).Range("C3")

ThisWorkbook.SaveAs fPath & Application.PathSeparator & fName & ".xls"

End Sub

hoping you will be able to use these "concatenation-tricks" in other circumstances

kind regards,
Erik

 

[david hasslehof]

sorry I am really new to this how do I enter that code and where?

 

[erik.van.geit]

start the Visual Basic Editor (via Menu Tools, Macro or press ALT+F11).
On the Insert menu in the VBE, click Module. (if necessary)
In the module (the white area at the right), paste your code

to run the code
click anywhere in the code and hit function key F5
or
via Excel menu: Tools / Macro / Macros (or hit Alt+F8)

assign shortcutkey
menu Tools/Macro/Macros
select your macro
click options
choose a character as shortcut: example T
to run the macro press Ctrl+Shift+T

 

[david hasslehof]

how do i set the path name is it something like h:/>dave>excel etc.?

 

[erik.van.geit]

record a macro performing SaveAs and check the code

 

[david hasslehof]

Sub Mysaveas()
Dim fName As String
Dim fPath As String

fPath = W:\RPD\DBrady\Excel\Special Deals\2006 Deals\quarter 3\September quotes

fName = Sheets(1).Range("f6")

ThisWorkbook.SaveAs fPath & Application.PathSeparator & fName & ".xls"

End Sub

I have put that in but it comes up as an error??

 

[erik.van.geit]

you are very close

when recording you get something like

ActiveWorkbook.SaveAs Filename:="C:\WINDOWS\Desktop\anyfile.xls"

you need to keep the quotes !
"C:\WINDOWS\Desktop"