导出时Excel VBA在文本文件的末尾添加多余的空行

Question

我有一个输出到文本文件的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

结束子

Answer 1

从Print #语句的帮助以及指定charpos数据输出后的方式：

charpos指定下一个字符的插入点。使用分号将插入点放置在最后一个显示的字符之后。使用Tab（n）将插入点定位到绝对列号。使用不带参数的Tab键将插入点放置在下一个打印区域的开头。如果省略了字符，则下一行将打印下一个字符。

请尝试以下操作：

Print #1, exportTxt;