Excel VBA在輸出時在文本文件末尾放置多餘的空行

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

末次

來源

2010-10-25 Shawn H

從上Print #聲明和方法來指定charpos的幫助下，數據已被後輸出：

charpos指定爲下個字符的插入點。在顯示最後一個字符後立即使用分號來定位插入點。使用Tab（n）至將插入點定位到絕對列號。使用選項卡無參數將插入點指向下一個打印區域的起始位置。如果省略了charpos，則在下一個行上打印下一個字符。

嘗試，而不是執行以下操作：

Print #1, exportTxt;

來源

2010-10-25 23:18:21 barrowc

如果我只想爲最後一個空白行做什麼？ – sbk 2017-08-07 06:08:18

Print #1, exportTxt;

它在一個行打印的一切。根本沒有換行符。

來源

2014-07-04 14:34:29 dilshan

我做的和工作的是，在創建txt文件後，用我想要複製的數據計算行數，然後循環遍歷它，使用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

來源

2015-01-23 02:21:12 Steas

Excel VBA在輸出時在文本文件末尾放置多餘的空行

回答

相關問題