- 帖子
- 49
- 主題
- 3
- 精華
- 0
- 積分
- 74
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- XP
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 雲林
- 註冊時間
- 2014-2-13
- 最後登錄
- 2020-9-18
|
- Sub test()
- '開啟test.txt的檔案
- Open "c:\temp\test.txt" For Input As #1
- i = 1
- Do While Not EOF(1)
- Input #1, a, b '讀取test.txt的資料，註：這裡的資料每行只有2個資料，所以是只有a,b
- Range("a1").Offset(i - 1, 0) = a '將資料放到a1開始以下
- Range("b1").Offset(i - 1, 0) = b '將資料放到b1開始以下
- i = i + 1
- Loop
- Q:
- Close #1 '把test.txt關掉，這裡沒關的話，之後開啟會出現錯誤
- End Sub
|
|
發表於 2014-3-28 10:51
| 