파일 vba에 쓰기 오류

Question

VBA를 사용하여 파일을 쓰려고합니다. 내 코드는 아래와 같습니다. 그것은 처음으로 작동하지만 엑셀 파일 (.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)