Andy2483

回復 2# quickfixer


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

下載 (18.82 KB)

2024-1-11 08:30

執行後產生的 TEXT文字檔:

下載 (15.94 KB)

2024-1-11 08:31

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