Writing to a text file

[aceee]

Hi all,

this has been working for many years, now does not?

any ideas why?

On Error Resume Next
Open "c:\windows\system\filelog.ini" For Append As #1
Print #1, Format(Now, "dd/mm/yyyy") & " - - Destination: - " & ActiveSheet.Name
 Close 1
End Sub

 

[Rekd]

Does the macro not run? Does the macro run but not do anything? Does the macro give any errors? What happens when you step through the macro?

I copied it to a module and it worked fine.

Are you on a new machine? Are you on a network? Did your IT department lock anything down?

Did you exit XL and restart? How about Windows? Did you wear the same color socks today?

 

[mrnacar]

What error is coming up?

Could it be that you are missing the beginning Subroutine code? If so, try add the following at the beginning of your code.

Sub appendtotext()

 

[Ruddles]

this has been working for many years, now does not?
any ideas why?

On Error Resume Next
Open "c:\windows\system\filelog.ini" For Append As #1
Print #1, Format(Now, "dd/mm/yyyy") & " - - Destination: - " & ActiveSheet.Name
 Close 1
End Sub

No, because you're hiding the error report. Take that On Error out and give the system a chance to tell us.