[已解决]如何把一个文件夹下的多个txt 数据输入到一个excel里

yoyo233 · 发表于 2012-6-5 05:43

需要制作一个宏文件，希望全英文，不然学校的电脑总是乱码，谢谢了

最佳答案

月排行榜 / 总排行榜

zjdh

2012-6-5 08:08

给你一个例子

新建文件夹.rar (9.84 KB, 下载次数: 102)

上清宫主 · 发表于 2012-6-5 07:55

看情况而定吧

zjdh · 发表于 2012-6-5 08:08

给你一个例子

新建文件夹.rar (9.84 KB, 下载次数: 102)

匿名 *发表于 2014-8-3 10:51* · 发表于 2014-8-3 10:51

zjdh 发表于 2012-6-5 08:08
给你一个例子

要是不要求分割，一个TEXT以text自身的名字命名在第一列，每个text的自身所有的内容作为第二列，两者对应取值，如何实现呢？

zjdh · 发表于 2014-8-3 13:31

Sub m2()
Dim f As String, s() As String, i As Long, t As Long, arr(10000, 2)
t = 0
f = Dir(ThisWorkbook.Path & "\*.txt")
While f > ""
      Open ThisWorkbook.Path & "\" & f For Input As #1
      s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
      Close #1
      arr(t, 0) = Split(f, ".")(0)
      For i = 0 To UBound(s)
         t = t + 1
         arr(t, 1) = s(i)
      Next
      t = t + 1
      f = Dir
Wend
Range("A:B").ClearContents
Range("A1").Resize(10000, 2) = arr
MsgBox "OK"
End Sub

		自动登录	找回密码
密码			注册