- 帖子
- 522
- 主題
- 36
- 精華
- 1
- 積分
- 603
- 點名
- 0
- 作業系統
- win xp sp3
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-12-13
- 最後登錄
- 2021-7-11
|
本帖最後由 yen956 於 2015-10-26 12:18 編輯
回復 3# lpk187
謝謝 lpk187 大大, 又學到一招,
但 Cells(arr(1, i), arr(2, i)) = arr(0, i) '
似為 Cells(arr(2, i), arr(1, i)) = arr(0, i) 'arr(2, i)列位值, arr(1, i)欄位值
之手誤! 總之, 謝謝!!
我改用
Do While Not myRs.EOF
Cells(myRs("列位值"), myRs("欄位值")) = myRs("人名")
myRs.MoveNext
Loop
聽說速度較慢, 但較不易手誤! |
|
發表於 2015-10-26 12:14
| 