J
Janis
I want to double check that the user has the right file open before he does
the save.
Do I have to do the path for the filename since the active workbook should
be open already since there is another process previous. I just want to
double check he has the right file since it saves it as a text file. I get a
compile error on the first if.
Thanks,
Private Sub saveIndesign()
'Appends date to filename so as to not write over an existing file
' saveIndesign Macro
Const fPath As String = "Mac OS X:"
Const fName As String = "Indesign"
Const fName1 As String = "SSP"
'do the save first as a txt file
If ActiveWorkbook.Filename = "Book1.xls" Then
ActiveWorkbook.SaveAs Filename:=fPath & fName & Format(Now,
"yyyymmdd_hhmmss") & ".txt"
ActiveWorkbook.Close
'then save as a normal workbook or the existing file will be changed to a
text file which is not what you want
ActiveWorkbook.SaveAs Filename:=fPath & fName1 & Format(Now,
"yyyymmdd_hhmmss") & ".xls", FileFormat:=xlWorkbookNormal
MsgBox "2 Files Saved " & fName & fPath & Format(Now, "yyyymmdd_hhmmss") &
".txt " & fName1 & fPath & Format(Now, "yyyymmdd_hhmmss") & ".xls"
Else
MsgBox "Please select the raw SSP file Book1.xls."
End If
End Sub
the save.
Do I have to do the path for the filename since the active workbook should
be open already since there is another process previous. I just want to
double check he has the right file since it saves it as a text file. I get a
compile error on the first if.
Thanks,
Private Sub saveIndesign()
'Appends date to filename so as to not write over an existing file
' saveIndesign Macro
Const fPath As String = "Mac OS X:"
Const fName As String = "Indesign"
Const fName1 As String = "SSP"
'do the save first as a txt file
If ActiveWorkbook.Filename = "Book1.xls" Then
ActiveWorkbook.SaveAs Filename:=fPath & fName & Format(Now,
"yyyymmdd_hhmmss") & ".txt"
ActiveWorkbook.Close
'then save as a normal workbook or the existing file will be changed to a
text file which is not what you want
ActiveWorkbook.SaveAs Filename:=fPath & fName1 & Format(Now,
"yyyymmdd_hhmmss") & ".xls", FileFormat:=xlWorkbookNormal
MsgBox "2 Files Saved " & fName & fPath & Format(Now, "yyyymmdd_hhmmss") &
".txt " & fName1 & fPath & Format(Now, "yyyymmdd_hhmmss") & ".xls"
Else
MsgBox "Please select the raw SSP file Book1.xls."
End If
End Sub