返回列表 上一主題 發帖

Excel 輸出 txt，多餘空白行

yenwang

帖子
57 
主題
36 
精華
0 
積分
94 
點名
0  
作業系統
win7 
軟體版本
office2013 
閱讀權限
20 
註冊時間
2014-9-10 
最後登錄
2024-8-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2024-1-10 10:10 | 只看該作者

Excel 輸出 txt，多餘空白行

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

  4.     For i = 1 To filledCellsCount

  6.         outputinfo = Trim(ActiveSheet.Cells(i, 1).Value)
  7.         Print #1, outputinfo
  8.         
  9.         
  10.     Next i

  12. Close #1
複製代碼
收藏 分享

quickfixer

帖子
154 
主題
1 
精華
0 
積分
200 
點名
30  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2024-11-25 
2#
發表於 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

TOP

yenwang

帖子
57 
主題
36 
精華
0 
積分
94 
點名
0  
作業系統
win7 
軟體版本
office2013 
閱讀權限
20 
註冊時間
2014-9-10 
最後登錄
2024-8-13 
3#
發表於 2024-1-11 08:10 | 只看該作者
回復 2# quickfixer


萬分感謝
成功了:D

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
4#
發表於 2024-1-11 08:32 | 只看該作者
本帖最後由 Andy2483 於 2024-1-11 08:41 編輯

回復 2# quickfixer


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


執行後產生的 TEXT文字檔:


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
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題