在文件vba中写错误

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)