標題: Excel 輸出 txt，多餘空白行 [打印本頁]

---

作者: yenwang    時間: 2024-1-10 10:10     標題: Excel 輸出 txt，多餘空白行

大家好
目前要將工作部的欄位A的數據，輸出到文字檔txt中，再給其他程式執行使用
程式碼主要如下，但會有個問題就是輸出完成後的txt檔案中
實際上末端會有一個空白行
這導致其他程式執行時會出錯
想請問是否有辦法讓excel輸出時，可以避免有這空白行
謝謝

1. torget = folderPath & "javainput.txt"
   
2. Open torget For Output As #1
   
3. 
   
4.     For i = 1 To filledCellsCount
   
5. 
   
6.         outputinfo = Trim(ActiveSheet.Cells(i, 1).Value)
   
7.         Print #1, outputinfo
   
8.         
   
9.         
   
10.     Next i
    
11. 
    
12. Close #1

複製代碼

[attach]37270[/attach]

---

作者: quickfixer    時間: 2024-1-11 00:06

回復 1# yenwang


    Sub test()


Dim fso As Object, filledCellsCount As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
Set target = fso.CreateTextFile("d:\javainput.txt", True)

filledCellsCount = 8

For i = 1 To filledCellsCount - 1
   target.WriteLine Cells(i, 1)
Next
target.Write Cells(filledCellsCount, 1)
target.Close
Set fso = Nothing

End Sub

---

作者: yenwang    時間: 2024-1-11 08:10

回復 2# quickfixer


萬分感謝
成功了:D

---

作者: Andy2483    時間: 2024-1-11 08:32

本帖最後由 Andy2483 於 2024-1-11 08:41 編輯

回復 2# quickfixer


    謝謝 yenwang前輩發表此主題,謝謝 quickfixer前輩指導
後學藉此帖學習到很多知識,學習心得如下:
Excel工作表資料:
[attach]37271[/attach]

執行後產生的 TEXT文字檔:
[attach]37272[/attach]

Sub TEST()
Dim fso, T$, target
Set fso = CreateObject("Scripting.FileSystemObject")
Set target = fso.CreateTextFile("d:\javainput.txt", True)
For i = 1 To [A65536].End(3).Row:   T = T & vbCrLf & Cells(i, 1):   Next
target.Write Mid(T, 3)
target.Close
Set fso = Nothing
End Sub
https://learn.microsoft.com/zh-t ... eatetextfile-method

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)