Excel VBA在导出时会在文本文件末尾添加额外的空白行

我有一个Excel VBAmacros输出到一个文本文件。 文本文件底部总是有一个空行，我无法摆脱它。 任何有用的build议将不胜感激！ 谢谢

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将插入点定位在下一个打印区域的开始位置。 如果省略了charpos，则下一行将打印下一个字符。

尝试以下方法：

 Print #1, exportTxt; 

Answer 2

我所做的工作是在创buildtxt文件之后，用我想要复制的数据对行进行计数，然后循环创build一个新文件，使用Print＃1，exportTxt; 还打印＃1，“”，最后一行除外。

 Open sOrgFile For Input As #1 Do While Not EOF(1) iCounter = iCounter + 1 Line Input #1, sData If sData = "" Then Exit Do Loop Close #1 Open sOrgFile For Input As #1 Open sDestFile For Output As #2 Do While Not EOF(1) iCounter2 = iCounter2 + 1 Line Input #1, sData If sData = "" Then Exit Do Print #2, sData; If iCounter2 <> iCounter Then Print #2, "" sData = "" Loop 

Answer 3

 Print #1, exportTxt; 

它在一行中打印所有内容。 根本没有换行符。