导出时 Excel VBA 在文本文件末尾放置额外的空行

我有一个 Excel VBA 宏，可以输出到文本文件。文本文件底部总是有一个空白行，我无法删除它。任何有用的建议将不胜感激！谢谢

Sub testExport()

  Dim fPath As String, exportTxt As String
  fPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Sample_" & Format(Now(), "HHNNSS") & ".txt"

  exportTxt = "Project: Sample Output" & vbCrLf
  exportTxt = exportTxt & "Model Version: 1 "


  Open fPath For Append As #1    'write the new file
  Print #1, exportTxt
  Close #1

End Sub

从帮助Print #声明和指定方法charpos数据输出后：

charpos指定下一个字符的插入点。用一个 分号来定位插入 紧接着最后一个点 显示字符。使用 Tab(n) 可以 将插入点定位到 绝对列号。使用制表符 没有参数来定位插入 指向下一个的开头 打印区。如果省略 charpos，则 下一个字符打印在下一个 线。

请尝试以下方法：

Print #1, exportTxt;