runtime error 1004 saveas text file
 

I get a runtime error on the activeworkbook.saveas line.

Sub saveIndesign()
'Appends date to filename so as to not write over an existing file

' saveIndesign Macro

Const fPath As String = "Mac OS X:Users:jrough:Documents:"
Dim fName As String
Dim myFileName As String
myFileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & Date
& ".txt"

fName = fPath & myFileName & time()
ActiveWorkbook.SaveAs Filename:=fName, FileFormat:=19
MsgBox "File Saved to " & fName
End Sub


I checked that the diretory is read/write, the filename & path is under 200
characters, the name isn't already created. That is why I would like the
time appended to the filename and the date.

Thanks,

runtime error 1004 saveas text file
 

In the windows world, we can't save files that have /'s or :'s in their names.
Is that a problem on the Mac?

If it is, maybe:

myFileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) _
& format(Date,"yyyymmdd") & "_" & format(time,"hhmmss") & ".txt"

or just
myFileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) _
& format(now,"yyyymmdd_hhmmss") & ".txt"

ps. watch your order of stuff.
This line in your original code:
fName = fPath & myFileName & time()
would end up with .txt followed by the time.

I bet that isn't what you wanted.

pps. There are some mac users here (and lots of code is the same), but if you
have mac related questions, you may find that you get more attention in this
newsgroup:
news://msnews.microsoft.com/microsof...c.office.excel


Janis wrote:

I get a runtime error on the activeworkbook.saveas line.

Sub saveIndesign()
'Appends date to filename so as to not write over an existing file

' saveIndesign Macro

Const fPath As String = "Mac OS X:Users:jrough:Documents:"
Dim fName As String
Dim myFileName As String
myFileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & Date
& ".txt"

fName = fPath & myFileName & time()
ActiveWorkbook.SaveAs Filename:=fName, FileFormat:=19
MsgBox "File Saved to " & fName
End Sub

I checked that the diretory is read/write, the filename & path is under 200
characters, the name isn't already created. That is why I would like the
time appended to the filename and the date.

Thanks,

--

Dave Peterson

runtime error 1004 saveas text file
 

Thanks,



"Dave Peterson" wrote:

In the windows world, we can't save files that have /'s or :'s in their names.
Is that a problem on the Mac?

If it is, maybe:

myFileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) _
& format(Date,"yyyymmdd") & "_" & format(time,"hhmmss") & ".txt"

or just
myFileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) _
& format(now,"yyyymmdd_hhmmss") & ".txt"

ps. watch your order of stuff.
This line in your original code:
fName = fPath & myFileName & time()
would end up with .txt followed by the time.

I bet that isn't what you wanted.

pps. There are some mac users here (and lots of code is the same), but if you
have mac related questions, you may find that you get more attention in this
newsgroup:
news://msnews.microsoft.com/microsof...c.office.excel


Janis wrote:

I get a runtime error on the activeworkbook.saveas line.

Sub saveIndesign()
'Appends date to filename so as to not write over an existing file

' saveIndesign Macro

Const fPath As String = "Mac OS X:Users:jrough:Documents:"
Dim fName As String
Dim myFileName As String
myFileName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & Date
& ".txt"

fName = fPath & myFileName & time()
ActiveWorkbook.SaveAs Filename:=fName, FileFormat:=19
MsgBox "File Saved to " & fName
End Sub

I checked that the diretory is read/write, the filename & path is under 200
characters, the name isn't already created. That is why I would like the
time appended to the filename and the date.

Thanks,

--

Dave Peterson