麻辣家族討論版版 - Powered by Discuz! Board

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

作者: honching99 時間: 2011-9-25 23:33 標題: 如何數值資料儲存成txt文字檔時，數值間變成以逗號分開區隔?

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

作者: luhpro 時間: 2011-9-26 05:35

如何數值資料儲存成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

Sub nn()
Dim iCols$
Dim sStr$
Dim lJ As Long
Dim rTarget As Range
Open ThisWorkbook.Path & "\123.txt" For Output As #1
Set rTarget = Sheet1.Range("a1")
Do Until rTarget = ""
sStr = ""
With rTarget
iCols = .Parent.Cells(.Offset(0, 0).Row, Columns.Count).End(xlToLeft).Column
For lJ = 0 To iCols - 1
sStr = sStr & Space(.Offset(0, lJ) - 1) & .Offset(0, lJ) & ","
Next lJ
sStr = Left(sStr, Len(sStr) - 1)
Print #1, sStr
End With
Set rTarget = rTarget.Offset(1, 0)
Loop
Close (1)
End Sub

複製代碼

作者: honching99 時間: 2011-10-1 14:40

回復 2# luhpro

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

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)