Save file, refer filename to cell and change directory
 

Hi

I have the following macro to change my filename

Sub save_with_cell(
Dim fnam
fname = Worksheets("General info").Range("C47").Value & "#" & Range("C26").Valu
fname = fname & ".xls
ActiveWorkbook.SaveAs Filename:=fnam
End Su

I want also get my file saved in a specific folder in a other directory. Can anybody tell me how to do that

Save file, refer filename to cell and change directory
 

Hi
try

Sub save_with_cell()
Dim fname
Dim path
path "C:\temp\"
fname = Worksheets("General info").Range("C47").Value
& "#" & Range("C26").Value
fname = fname & ".xls"
ActiveWorkbook.SaveAs Filename:=path & fname
End Sub

-----Original Message-----
Hi,

I have the following macro to change my filename.

Sub save_with_cell()
Dim fname
fname = Worksheets("General info").Range("C47").Value
& "#" & Range("C26").Value
fname = fname & ".xls"
ActiveWorkbook.SaveAs Filename:=fname
End Sub

I want also get my file saved in a specific folder in a
other directory. Can anybody tell me how to do that
.

Save file, refer filename to cell and change directory
 

Hi Frank

It didn't work. I got the message "Compile error: Expected Sub, function or property" and the word path is marked yellow
----- Frank Kabel wrote: ----

H
tr

Sub save_with_cell(
Dim fnam
Dim pat
path "C:\temp\
fname = Worksheets("General info").Range("C47").Value
& "#" & Range("C26").Valu
fname = fname & ".xls
ActiveWorkbook.SaveAs Filename:=path & fnam
End Su

-----Original Message----
Hi
I have the following macro to change my filename
Sub save_with_cell(
Dim fnam
fname = Worksheets("General info").Range("C47").Value
& "#" & Range("C26").Valu
fname = fname & ".xls
ActiveWorkbook.SaveAs Filename:=fnam
End Su
I want also get my file saved in a specific folder in a
other directory. Can anybody tell me how to do tha

Save file, refer filename to cell and change directory
 

A couple of typos:

Option Explicit

Sub save_with_cell()
Dim fname As String
Dim myPath As String

myPath = "C:\temp\"
fname = Worksheets("General info").Range("C47").Value _
& "#" & Range("C26").Value
fname = fname & ".xls"
ActiveWorkbook.SaveAs Filename:=myPath & fname
End Sub

(I wouldn't use a variable named Path. It's too close to the VBA property named
Path!)



Metin wrote:

Hi Frank,

It didn't work. I got the message "Compile error: Expected Sub, function or property" and the word path is marked yellow.
----- Frank Kabel wrote: -----

Hi
try

Sub save_with_cell()
Dim fname
Dim path
path "C:\temp\"
fname = Worksheets("General info").Range("C47").Value
& "#" & Range("C26").Value
fname = fname & ".xls"
ActiveWorkbook.SaveAs Filename:=path & fname
End Sub

-----Original Message-----
Hi,
I have the following macro to change my filename.
Sub save_with_cell()
Dim fname
fname = Worksheets("General info").Range("C47").Value
& "#" & Range("C26").Value
fname = fname & ".xls"
ActiveWorkbook.SaveAs Filename:=fname
End Sub
I want also get my file saved in a specific folder in a
other directory. Can anybody tell me how to do that
.


--

Dave Peterson