Usar logs en VBA

Si queremos crear un log en archivo de texto al estilo log4j podemos hacerlo con el siguiente procedimiento. El archivo se creará en el mismo directorio donde se encuentre nuestro archivo y tendrá el mismo nombre. Podemos abrirlo con tail si tenemos cygwin instalado. Si no tenemos o no queremos instalar cygwin se puede usar alguna de las muchas aplicaciones gratuitas que existen para hacer esto, como por ejemplo mTail.

Option Explicit

Sub log(LogMessage As String)

   Dim LogFileName As String
   Dim FileNum As Integer
   LogFileName = ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".log"
   FileNum = FreeFile ' next file number
   Open LogFileName For Append As #FileNum ' creates the file if it doesn't exist
   Print #FileNum, Now & " - " & LogMessage ' write information at the end of the text file
   Close #FileNum ' close the file
   DoEvents
End Sub

Funciona en Office 97/2000/2003/2007/2010