ファイルの書き込み中にエラーが発生しました

Question

VBAを使用してファイルを書き込もうとしています。私のコードは以下の通りです。それは初めてのことでしたが、Excelファイル（.xlsm）を閉じてもう一度使ってみると、うまくいきません。

マクロを実行しているとき、私はすべてのエラーを得ることはありませんが、新しいファイルが

Sub LogInformation(LogMessage As String) 
    Const LogFileName As String = "TEXTFILE.db" 
    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 

Answer 1

申し訳ありませんがみんな表示されません。それはダムだった。 デフォルトの相対パスは、User /％MyUser％/ Documentsにあります。

私はChDirを使用してファイルを開く/書き込み/閉じる必要があります。

Chdir(ActiveWorkbook.Path)