View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Janis Janis is offline
external usenet poster
 
Posts: 360
Default compile error method or data not fount

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