目前我在網路上試了很多網友的模組 跑了幾個
終於找到一個結果 跟理想的樣子相當接近
但在google爬了很多文 還是找不到方法
所以決定尋求各位指點
目前我想達到的txt匯出格式
"￥3","000","000","￥4","000","000","￥5","000","000","￥6","000","000","￥7","000","000"
這是我目前使用的模組是這樣的結果
￥2,000,000,￥3,000,000,￥4,000,000,￥5,000,000,￥6,000,000,￥7,000,000
雙引號不見之外 要怎麼能將數字根據逗號分段匯出?
以下是我目前使用的模組 我該在裡面加入什麼
Sub Smaple7()
Dim i As Integer
Dim r As Integer
Dim abc As String
Open "D:\Users\meimei\Desktop\Sample7.txt" For Output As #1
For i = 1 To 5
abc = ""
For r = 1 To 14
If r = 1 Then
abc = Cells(i, r).Text
Else
abc = abc & "," & Cells(i, r).Text
End If
Next
Print #1, abc
Next
Close #1
End Sub
改14行，改成如下试试
abc = """ & abc & "","" & Cells(i, r).Text&"""