- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
回復 3# icestormer
For i = 1 To myLastRow
Write #myFNo, Cells(i, 1), Cells(i, 2), Cells(i, 3), _
Cells(i, 4), Cells(i, 5), Cells(i, 6)
Next
執行後會是如下結果：
-----------------------------------------
都市 支局 區號 5碼區號
高雄 高2 200 20058
-----------------------------------------
如果改寫成雙迴圈模式：
For i = 1 To myLastRow
For j = 1 To 6
Write #myFNo, Cells(i, j)
Next j
Next i
其結果會是：
--------------------------------------
都市
支局
區號
5碼區號
高雄
高2
200
20058
--------------------------------------
您可以試試能否 (VBA) 使用 Write #myFNo, Cells(i, j) ; 的方式撰寫，
j 迴圈結束後，接著再送出一個 Line Feed (\n)
(這是 C 語言的寫法，不知 VBA 可行否？)。 |
|
發表於 2012-4-19 10:58
| 