[發問] 如何數值資料儲存成txt文字檔時，數值間變成以逗號分開區隔?

honching99

如何數值資料儲存成txt文字檔時，數值間變成以逗號分開區隔?
是否須用VBA來設定?

luhpro

如何數值資料儲存成txt文字檔時，數值間變成以逗號分開區隔?
是否須用VBA來設定?
問題1 上面數值資料儲存成txt文字檔時，數值間變成以逗號分開區隔，如下
1,2,3,4,5,6,7,8,9
問題2 上面數值資料儲存成txt文字檔時，數值間變成以逗號及空格(可設定)分開區隔，如下
1, 2,  3,    4,5,6,7,8,9
honching99 發表於 2011-9-25 23:33

問題1 - 請存成 *.CSV 檔案格式即可

問題2 - 不知你例子中每個儲存格中數字前面的空格數量是否有什麼規律?
底下假設空格數為儲存格值減 1

1. Sub nn()
   
2.   Dim iCols$
   
3.   Dim sStr$
   
4.   Dim lJ As Long
   
5.   Dim rTarget As Range
   
6.   
   
7.   Open ThisWorkbook.Path & "\123.txt" For Output As #1
   
8.     Set rTarget = Sheet1.Range("a1")
   
9.       Do Until rTarget = ""
   
10.         sStr = ""
    
11.         With rTarget
    
12.           iCols = .Parent.Cells(.Offset(0, 0).Row, Columns.Count).End(xlToLeft).Column
    
13.           For lJ = 0 To iCols - 1
    
14.             sStr = sStr & Space(.Offset(0, lJ) - 1) & .Offset(0, lJ) & ","
    
15.           Next lJ
    
16.           sStr = Left(sStr, Len(sStr) - 1)
    
17.           Print #1, sStr
    
18.         End With
    
19.         Set rTarget = rTarget.Offset(1, 0)
    
20.       Loop
    
21.   Close (1)
    
22. End Sub

複製代碼

honching99

回復 2# luhpro


    感謝您提供方向，雖然還弄不太懂，但還是相當感謝!!!