返回列表下一主題上一主題發帖

Excel 輸出 txt，多餘空白行

yenwang

中學生 Rank: 2

帖子: 56
主題: 35
精華: 0
積分: 92
點名: 0
作業系統: win7
軟體版本: office2013
閱讀權限: 20
註冊時間: 2014-9-10
最後登錄: 2024-4-11

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2024-1-10 10:10 | 只看該作者

Excel 輸出 txt，多餘空白行

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

torget = folderPath & "javainput.txt"
Open torget For Output As #1
For i = 1 To filledCellsCount
outputinfo = Trim(ActiveSheet.Cells(i, 1).Value)
Print #1, outputinfo
Next i
Close #1

複製代碼

樓主熱帖

quickfixer

中學生 Rank: 2

帖子: 151
主題: 1
精華: 0
積分: 197
點名: 15
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2024-4-29

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

中學生 Rank: 2

帖子: 56
主題: 35
精華: 0
積分: 92
點名: 0
作業系統: win7
軟體版本: office2013
閱讀權限: 20
註冊時間: 2014-9-10
最後登錄: 2024-4-11

3^#

發表於 2024-1-11 08:10 | 只看該作者

回復 2# quickfixer

萬分感謝
成功了:D

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1425
主題: 40
精華: 0
積分: 1449
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-4-16

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

靜思自在 : 做好事不能少我一人，做壞事不能多我一人。

返回列表下一主題上一主題