Example spreadsheet on microsoft onedrive
1 2 3 4 5 6 7 8 |
Sub LogInformation(LogMessage As String) Const LogFileName As String = "C:\temp\textfile.html" Dim fileNum As Integer fileNum = FreeFile ' next file number Open LogFileName For Append As #fileNum ' creates the file if it doesn't exist Print #fileNum, LogMessage ' write information at the end of the text file Close #fileNum ' close the file End Sub |