查看完整版本: Excel csv利用vba輸出成txt，想強迫換行?
頁: [1]

zbc231 發表於 2016-9-24 06:53 PM

Excel csv利用vba輸出成txt，想強迫換行?

'Question=「韓」的部首是什麼？&A1=口。&A2=韋。&A3=日。& Answe=2
Result = "Question=" & question
For i = 1 To 3
Result = Result & i & "=" & op(i) & "。"
Next
Result = Result & "&Answer=" & answer
最上面那句是csv輸出txt後的結果，底下則是vba寫法
但我想讓答案能強迫換至下一行，如下：
'Question=「韓」的部首是什麼？&A1=口。&A2=韋。&A3=日。
& Answe=2
我該在哪裡加入哪種指令呢？

...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><div></div>

superforsin 發表於 2016-10-3 09:33 AM

試試看 vbcrlf，VBA類似換行指令"Enter"
以前還蠻常用到的指令

jerick 發表於 2016-10-20 03:58 PM

換行字元可以用 Chr(13) & Chr(10) 或 VBCrLf

要加入的地方有兩個
Result = "Question=" & question & 換行字元
與
Result = Result & i & "=" & op(i) & "。"  & 換行字元
頁: [1]