Andy2483

¦^´_ 2# quickfixer


    ÁÂÁ yenwang«e½úµoªí¦¹¥DÃD,ÁÂÁ quickfixer«e½ú«ü¾É
«á¾ÇÂǦ¹©«¾Ç²ß¨ì«Ü¦hª¾ÃÑ,¾Ç²ß¤ß±o¦p¤U:
Excel¤u§@ªí¸ê®Æ:

¤U¸ü (18.82 KB)

2024-1-11 08:30

°õ¦æ«á²£¥Íªº TEXT¤å¦rÀÉ:

¤U¸ü (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