- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2013-7-22 17:39
| 只看該作者
本帖最後由 GBKEE 於 2013-7-22 18:24 編輯
回復 1# ilikeiceblue
如何抓取多個檔案連續匯入,可搜討論區尋看看.- Sub Ex_匯入文字檔()
- Dim Fs As Object, d, s, i As Integer, ii As Integer
- txt = "d:\TEST\TEST.TXT" '文字檔目錄
- Set Fs = CreateObject("Scripting.FileSystemObject").OpenTextFile(txt, 1)
- d = Split(Fs.readall, Chr(10)) 'Chr(10) 分割為陣列
- Fs.Close '關閉文字檔
- With ActiveSheet
- .Cells.Clear '清除所有資料
- For i = 1 To UBound(d) '陣列的第2元素開始
- If Len(d(i)) = 0 Or i = UBound(d) Then 'Len(d(i)) = 0->空白列(要的是上一個元素)
- s = d(IIf(i < UBound(d), i - 1, i)) 'i = UBound(d) ->陣列的最後元素
- s = Split(s, " ") '" " 分割為陣列
- '61566.1459848279 36804.0605 7070 62 此字串以兩空格分隔
- ii = Application.CountA(.[a:a]) '計算A欄的資料數
- ii = IIf(ii = 0, i, ii + 1) '沒有=第1列,有資料須往下一列
- .Cells(ii, "a").Resize(1, UBound(s) + 1) = s
- End If
- Next
- End With
- End Sub
複製代碼 |
|