By using vba.booksticle.com you agree to our cookie policy, We and our partners operate globally and use cookies, for multiple purposes

948 Steps to 6 Figures by Learning Excel-VBA and Other Skills

Step 580 - Log2File udf


Sub Log2file(s)

dim x
x = bOpenSeQFile("C:\temp\excellog-" & format(date,"yyyy-mm-dd") & ".txt"
if x < 0 then
   Msgbox x & " " & Error(abs(x))
End If

Print #x,Now() & " " & s
close #x
End Sub