VBA读取txt文件中数据

jilingniao

想逐行读取txt中的数据块中画圈的那一列的数据，讲读取出来的数据放入excel的一列当中，画圈的数据见截图，具体数据见附件。在线等，谢谢各位哥哥姐姐了。

jilingniao

自己顶一个 别沉了

jilingniao

我再顶！各位大侠，下载啊

abing3

代码部分如下.

Sub Macro1()

Application.DisplayAlerts = False '关闭报警

Dim arr, string1 As String, i

Open "D:\Downdown\VB\网页帮助\数据\数据.txt" For Input As #1 '打开文本文件

string1 = StrConv(InputB(LOF(1), 1), vbUnicode)

arr = Split(string1, ".,")


For i = 1 To UBound(arr)

Cells(i, 1).Value = Split(arr(i), ",")(0)

Next

Close #1 '关闭文件

End Sub

蓝桥玄霜

1. Sub tqwb()
   
2. Dim a() As String, b() As String, i&, r%, Arr1(), ks, js
   
3. Dim x&, Brr, aa, j&, m&, ii&
   
4.     Open ThisWorkbook.Path & "\数据.txt" For Input As #1
   
5.     a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
   
6.     For i = 0 To UBound(a)
   
7.         If InStr(a(i), "6201") Then
   
8.             r = r + 1
   
9.             ReDim Preserve Arr1(1 To r)
   
10.             Arr1(r) = i
    
11.         End If
    
12.     Next
    
13.     ReDim Brr(1 To UBound(a), 1 To 4)
    
14.     For j = 1 To r
    
15.         If j <> r Then
    
16.             js = Arr1(j + 1) - 1
    
17.         Else
    
18.             js = UBound(a)
    
19.         End If
    
20.         ks = Arr1(j) + 1
    
21.         For i = ks To js
    
22.             ReDim b(1 To 4)
    
23.             m = m + 1
    
24.             For ii = 1 To Len(a(i)) Step 32
    
25.                 b(Int(ii / 32) + 1) = Mid(a(i), ii, 32)
    
26.             Next
    
27.             For x = 1 To 4
    
28.                 If b(x) <> "" Then
    
29.                 Brr(m, x) = Split(Split(b(x), ".,")(1), ",")(0)
    
30.                 End If
    
31.             Next
    
32.         Next
    
33.         m = m + 1
    
34.     Next
    
35.     Close #1
    
36.     Sheet1.Activate
    
37.     Cells.Clear
    
38.     [a1].Resize(UBound(Brr), 4) = Brr
    
39. End Sub
    
40. 
    

复制代码

蓝桥玄霜

请见附件。

abing3

版主认真仔细,代码写得漂亮.学习了.
我理解错了.更正为版主的方式. 代码如下.

Sub Macro1()

Application.DisplayAlerts = False '关闭报警

Dim arr, string1 As String, i

Open "D:\Downdown\VB\网页帮助\数据\数据.txt" For Input As #1 '打开文本文件

string1 = StrConv(InputB(LOF(1), 1), vbUnicode)

arr = Split(string1, ".,")


For i = 0 To UBound(arr) - 1

Cells(i \ 4 + 1, i Mod 4 + 1).Value = Split(arr(i + 1), ",")(0)



Next

Close #1 '关闭文件

End Sub

/sun小政

麻烦版主,我现在有个文本文件,要求逐行读入,然后以列的方式写入EXCEL.文本内容以64行为一段写到EXCEL后为一行若干列,如何实现

Chanboler

蓝桥玄霜 发表于 2011-7-15 14:14

文件内容读取.zip (124.81 KB, 下载次数: 89)

2014-6-28 18:39 上传

点击文件名下载附件
文件读取

我想实现文件夹名读取和文件夹名目录下ini文件内容的读取、读取的内容输出到excel中的两列去、详见附件。

蓝桥玄霜

附件中缺少包含ini文件的文件夹和ini文件。
建议搜索批量导入txt文件。