The myFileName line does not compile. What I want to do here is save the
current filename with the date appended. I am trying to put the current
filename into the Sub
tnx,
saveIndesign()
'Appends date to filename so as to not write over an existing file

Const fPath As String = "Mac OS X:Users:jrough:Documents"
Dim fName As String
Dim myFileName As String
myFileName = ActiveWorkbook.Filename
fName = fPath & myFileName & Time()
ActiveWorkbook.SaveAs Filename:=fName
End Sub

ActiveWorkbook.Name will give you the file name.
ActiveWorkbook.FullName will give you the file name and the full path.

ActiveWorkbook.Filename is not available.




"Janis" schreef in bericht
...
The myFileName line does not compile. What I want to do here is save the
current filename with the date appended. I am trying to put the current
filename into the Sub
tnx,
saveIndesign()
'Appends date to filename so as to not write over an existing file

Const fPath As String = "Mac OS X:Users:jrough:Documents"
Dim fName As String
Dim myFileName As String
myFileName = ActiveWorkbook.Filename
fName = fPath & myFileName & Time()
ActiveWorkbook.SaveAs Filename:=fName
End Sub

myFileName = ActiveWorkbook.Fullname

if you want the path

myFileName = ActiveWorkbook.Name

without

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Janis" wrote in message
...
The myFileName line does not compile. What I want to do here is save the
current filename with the date appended. I am trying to put the current
filename into the Sub
tnx,
saveIndesign()
'Appends date to filename so as to not write over an existing file

Const fPath As String = "Mac OS X:Users:jrough:Documents"
Dim fName As String
Dim myFileName As String
myFileName = ActiveWorkbook.Filename
fName = fPath & myFileName & Time()
ActiveWorkbook.SaveAs Filename:=fName
End Sub

Same here.

;-)

"Bob Phillips" schreef in bericht
...
myFileName = ActiveWorkbook.Fullname

if you want the path

myFileName = ActiveWorkbook.Name

without

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Janis" wrote in message
...
The myFileName line does not compile. What I want to do here is save
the
current filename with the date appended. I am trying to put the current
filename into the Sub
tnx,
saveIndesign()
'Appends date to filename so as to not write over an existing file

Const fPath As String = "Mac OS X:Users:jrough:Documents"
Dim fName As String
Dim myFileName As String
myFileName = ActiveWorkbook.Filename
fName = fPath & myFileName & Time()
ActiveWorkbook.SaveAs Filename:=fName
End Sub

Janis,

there is no .filename property - you want to use the .fullname (to get the
path, if one exists, ie. it's not a new workbook) or .name (just the name)

HTH,
Mike

"Janis" wrote in message
...
The myFileName line does not compile. What I want to do here is save the
current filename with the date appended. I am trying to put the current
filename into the Sub
tnx,
saveIndesign()
'Appends date to filename so as to not write over an existing file

Const fPath As String = "Mac OS X:Users:jrough:Documents"
Dim fName As String
Dim myFileName As String
myFileName = ActiveWorkbook.Filename
fName = fPath & myFileName & Time()
ActiveWorkbook.SaveAs Filename:=fName
End Sub

Try this: I added a : after Documents in your Const. I am not familiar with
MAC file naming, but I thought there should be a separator for the
folder/file. In any case, myFileName should get the desired results there.
You just need to make sure that fName puts the path and file name together
correctly for MAC.

Sub SaveMe()
Dim fName As String
Dim myFileName As String
Const fPath As String = "Mac OS X:Users:jrough:Documents:"

myFileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & " " &
Date & ".xls"
fName = fPath & myFileName
ActiveWorkbook.SaveAs Filename:=fName

End Sub

Mike F
"Janis" wrote in message
...
The myFileName line does not compile. What I want to do here is save the
current filename with the date appended. I am trying to put the current
filename into the Sub
tnx,
saveIndesign()
'Appends date to filename so as to not write over an existing file

Const fPath As String = "Mac OS X:Users:jrough:Documents"
Dim fName As String
Dim myFileName As String
myFileName = ActiveWorkbook.Filename
fName = fPath & myFileName & Time()
ActiveWorkbook.SaveAs Filename:=fName
End Sub

Sorry, word wrap cut my long line

Sub SaveMe()
Dim fName As String
Dim myFileName As String
Const fPath As String = "Mac OS X:Users:jrough:Documents:"

myFileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) _
& " " & Date & ".xls"
fName = fPath & myFileName
ActiveWorkbook.SaveAs Filename:=fName

End Sub

Mike F
"Janis" wrote in message
...
The myFileName line does not compile. What I want to do here is save the
current filename with the date appended. I am trying to put the current
filename into the Sub
tnx,
saveIndesign()
'Appends date to filename so as to not write over an existing file

Const fPath As String = "Mac OS X:Users:jrough:Documents"
Dim fName As String
Dim myFileName As String
myFileName = ActiveWorkbook.Filename
fName = fPath & myFileName & Time()
ActiveWorkbook.SaveAs Filename:=fName
End Sub

even the timestamp <g

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"moon" <6369706865725F6475646540706C616E65742E6E6C wrote in message
. ..

Same here.

;-)

"Bob Phillips" schreef in bericht
...
myFileName = ActiveWorkbook.Fullname

if you want the path

myFileName = ActiveWorkbook.Name

without

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Janis" wrote in message
...
The myFileName line does not compile. What I want to do here is save
the
current filename with the date appended. I am trying to put the
current
filename into the Sub
tnx,
saveIndesign()
'Appends date to filename so as to not write over an existing file

Const fPath As String = "Mac OS X:Users:jrough:Documents"
Dim fName As String
Dim myFileName As String
myFileName = ActiveWorkbook.Filename
fName = fPath & myFileName & Time()
ActiveWorkbook.SaveAs Filename:=fName
End Sub

I think you are right about the separator for the documents file. Thanks,

"Mike Fogleman" wrote:

Try this: I added a : after Documents in your Const. I am not familiar with
MAC file naming, but I thought there should be a separator for the
folder/file. In any case, myFileName should get the desired results there.
You just need to make sure that fName puts the path and file name together
correctly for MAC.

Sub SaveMe()
Dim fName As String
Dim myFileName As String
Const fPath As String = "Mac OS X:Users:jrough:Documents:"

myFileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & " " &
Date & ".xls"
fName = fPath & myFileName
ActiveWorkbook.SaveAs Filename:=fName

End Sub

Mike F
"Janis" wrote in message
...
The myFileName line does not compile. What I want to do here is save the
current filename with the date appended. I am trying to put the current
filename into the Sub
tnx,
saveIndesign()
'Appends date to filename so as to not write over an existing file

Const fPath As String = "Mac OS X:Users:jrough:Documents"
Dim fName As String
Dim myFileName As String
myFileName = ActiveWorkbook.Filename
fName = fPath & myFileName & Time()
ActiveWorkbook.SaveAs Filename:=fName
End Sub

It is really tricky. The .xls extension saves twice and I can't get it to
print the time and the date but it now compiles. Thanks,

"Mike Fogleman" wrote:

Sorry, word wrap cut my long line

Sub SaveMe()
Dim fName As String
Dim myFileName As String
Const fPath As String = "Mac OS X:Users:jrough:Documents:"

myFileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) _
& " " & Date & ".xls"
fName = fPath & myFileName
ActiveWorkbook.SaveAs Filename:=fName

End Sub

Mike F
"Janis" wrote in message
...
The myFileName line does not compile. What I want to do here is save the
current filename with the date appended. I am trying to put the current
filename into the Sub
tnx,
saveIndesign()
'Appends date to filename so as to not write over an existing file

Const fPath As String = "Mac OS X:Users:jrough:Documents"
Dim fName As String
Dim myFileName As String
myFileName = ActiveWorkbook.Filename
fName = fPath & myFileName & Time()
ActiveWorkbook.SaveAs Filename:=fName
End Sub

Janis, I consulted with a MAC user and determined the following code will do
as you asked. It adds the time and removes the double.xls at the end. MAC
doesn't care about the /'s in the date, as Windows does, so I left those
alone. The colons in TIME had to go with either OS, so it is re-formatted
with dot separators. Finally MAC appends the file extension for you, so I
removed it from the code and let MAC do it's thing when the file is saved.

Sub SaveMe()
Dim fName As String
Dim myFileName As String
Const fPath As String = "Mac OS X:Users:jrough:Documents:"

myFileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) _
& " " & Date & " " & Format(Time, "hh.mm.ss")
fName = fPath & myFileName
ActiveWorkbook.SaveAs Filename:=fName
End Sub

Mike F
"Janis" wrote in message
...
It is really tricky. The .xls extension saves twice and I can't get it to
print the time and the date but it now compiles. Thanks,

"Mike Fogleman" wrote:

Sorry, word wrap cut my long line

Sub SaveMe()
Dim fName As String
Dim myFileName As String
Const fPath As String = "Mac OS X:Users:jrough:Documents:"

myFileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) _
& " " & Date & ".xls"
fName = fPath & myFileName
ActiveWorkbook.SaveAs Filename:=fName

End Sub

Mike F
"Janis" wrote in message
...
The myFileName line does not compile. What I want to do here is save
the
current filename with the date appended. I am trying to put the
current
filename into the Sub
tnx,
saveIndesign()
'Appends date to filename so as to not write over an existing file

Const fPath As String = "Mac OS X:Users:jrough:Documents"
Dim fName As String
Dim myFileName As String
myFileName = ActiveWorkbook.Filename
fName = fPath & myFileName & Time()
ActiveWorkbook.SaveAs Filename:=fName
End Sub