Excel 在vba文件中写入时出错

我正在尝试使用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

---

对不起，伙计们。那太愚蠢了。 默认相对路径位于User/%MyUser%/文档中

我需要使用ChDir，然后打开/写入/关闭文件

  Chdir(ActiveWorkbook.Path)

---

对不起，伙计们。那太愚蠢了。 默认相对路径位于User/%MyUser%/文档中

我需要使用ChDir，然后打开/写入/关闭文件

  Chdir(ActiveWorkbook.Path)

---

是因为“FileNum=FreeFile”总是找到“下一个”文件号吗？哦，好吧，我对VBA不太了解，很抱歉，哦，刚刚意识到，它只在文件不存在时创建一个文件。也许这就是问题所在？是因为“FileNum=FreeFile”总是找到“下一个”文件号吗？哦，好吧，我对VBA不太了解，抱歉，哦，刚刚意识到，它只在文件不存在时创建一个文件。也许这就是问题所在？