Excel ¿é¥X txt¡A¦h¾lªÅ¥Õ¦æ

yenwang

¤j®a¦n
¥Ø«e­n±N¤u§@³¡ªºÄæ¦ìAªº¼Æ¾Ú¡A¿é¥X¨ì¤å¦rÀÉtxt¤¤¡A¦Aµ¹¨ä¥Lµ{¦¡°õ¦æ¨Ï¥Î
µ{¦¡½X¥D­n¦p¤U¡A¦ý·|¦³­Ó°ÝÃD´N¬O¿é¥X§¹¦¨«áªºtxtÀɮפ¤
¹ê»Ú¤W¥½ºÝ·|¦³¤@­ÓªÅ¥Õ¦æ
³o¾É­P¨ä¥Lµ{¦¡°õ¦æ®É·|¥X¿ù
·Q½Ð°Ý¬O§_¦³¿ìªkÅýexcel¿é¥X®É¡A¥i¥HÁקK¦³³oªÅ¥Õ¦æ
ÁÂÁÂ

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

½Æ»s¥N½X

¤U¸ü (16.29 KB)

2024-1-10 10:09

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

yenwang

¦^´_ 2# quickfixer


¸U¤À·PÁÂ
¦¨¥\¤F:D

quickfixer

¦^´_ 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