麻辣家族討論版版 » Excel程式區 » vba 抓多個txt檔案的最後一行

返回列表下一主題上一主題發帖

[發問] vba 抓多個txt檔案的最後一行

小學生 Rank: 1

帖子: 1
主題: 1
精華: 0
積分: 8
點名: 0
作業系統: linux
軟體版本: redhat 7.0
閱讀權限: 10
註冊時間: 2013-7-22
最後登錄: 2013-7-23

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-7-22 15:10 | 只看該作者

[發問] vba 抓多個txt檔案的最後一行

以下是多個例子的txt檔案內容
(每一個txt長度不同)
best1.txt:
61566.1459848279  36804.0615  7070  64
61566.1459848279  36804.0615  7070  64
61566.1459848279  36804.0605  7070  62

best2.txt:
78919.8415585053  53106.9944  8570  53
78919.8415585053  43939.0331  7685  53
78919.8415585053  40147.0986  7685  53
78919.8415585053  40147.0986  7685  61

我想要判斷如果下一行讀到空白或是抓length-1最後一個的位置藍色那些方入每一列Excel欄位
最後在自己用最簡單的以空白分隔@@

想請教一下VBA的寫法, 我只會去抓特定行數, 因為此txt檔案每個行數都不會一樣, 所以想請教一下板上的大大們orz

收藏

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。

返回列表下一主題上一主題