[問題] EXC匯出txt 字串不要引號
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:
版本:2007
想請問各位 我現在假設有1000筆資料
我要每250筆匯成一個txt檔
以下為我的code:
Sub saperate()
Dim LASTROW As Long
LASTROW = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LASTROW / 250 + 1
Open i & ".txt" For Output As #1
Write #1, "LIST:"
Write #1, "DATA"
Write #1,
For j = 1 To 250
If Cells((i - 1) * 250 + j, 1) = "" Then
Write #1,
Write #1, "ENDDATA"
Close #1
End
Else
Write #1, Cells((i - 1) * 250 + j, 1)
End If
Next j
Write #1,
Write #1, "ENDDATA"
Close #1
Next i
End Sub
想請問的是 LIST: DATA ENDDATA 如何在匯出後不要有""
拜託各位了 謝謝大家
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.138.101.35
→
09/13 21:21, , 1F
09/13 21:21, 1F
推
09/14 19:52, , 2F
09/14 19:52, 2F
→
09/17 18:28, , 3F
09/17 18:28, 3F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
