如何用EXCEL批量处理TXT并将结果自动录入EXCEL

放眼TOT · 发表于 2012-12-18 18:07

本帖最后由放眼TOT 于 2012-12-19 12:51 编辑

数据（求助！！！）.rar (290.94 KB, 下载次数: 25) 求大侠帮助TAT：
有大量股票数据，是txt格式的，，我需要先将TXT转成EXCEL（分隔符是TAB、逗号），然后利用里面的数据求出两个量，然后集中填入一个EXCEL文件中。
本人很菜鸟，琢磨了两天终于知道怎么用宏录制来处理了，但还是要一个个打开TXT再运行宏再把得出的量手动填入EXCEL中，实在工作量太大。一共有2000多*12个文本文件。。。。
在论坛里搜了很多类似的问题，但都不太明白。。求助怎么能批量的处理TXT并且能把得出的结果自动录入一个EXCEL文档中（一列为TXT文件名，一列填对应结果）。万分感激{:soso_e154:}

希望大神给的代码能稍微说明一下，比如哪里放我自己录的算我要求的量的代码啊，，

战战如疯 · 发表于 2012-12-18 18:41

给个附件上来，要哪行数据模拟下效果

放眼TOT · 发表于 2012-12-18 22:59

上传数据的样本了，，，，求助~~~~ {:soso_e200:}

放眼TOT · 发表于 2012-12-18 23:57

这个附件就是原始TXT数据的其中一个，
另一个附件是我自己录制的宏来处理EXCEL达到我要的那两个量的代码，，，
如果我前面表述不清，烦请大神先打开TXT（用TAB逗号分隔）成EXCEL，然后运行这个宏，就能看到我要得的那个量了。。。
谢谢啊啊啊！！
求助啊啊啊！！

yangyangzhifeng · 发表于 2012-12-19 08:40

本帖最后由 yangyangzhifeng 于 2012-12-19 10:49 编辑

放眼TOT 发表于 2012-12-18 23:57
这个附件就是原始TXT数据的其中一个，
另一个附件是我自己录制的宏来处理EXCEL达到我要的那两个量的代码， ...

试试看，只计算你要求的字段，没有导入txt

Sub test()
Dim Arr, k&, ph$, fl$, sp1#, sp2#, brr, i&
Dim crr(), n&
ph = ThisWorkbook.Path & ""
fl = Dir(ph & "*.txt")
Do While fl <> ""
Open ph & fl For Input As #1
Arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Reset
k = UBound(Arr)
sp1 = 0: sp2 = 0
For i = 0 To k
brr = Split(Arr(i), ",")
sp1 = sp1 + Val(brr(42))
sp2 = sp2 + Abs(Val(brr(6)) - (Val(brr(24)) + Val(brr(25))) / 2) / Val(brr(6))
Next
sp1 = sp1 / (k + 1): sp2 = sp2 / (k + 1)
n = n + 1
ReDim Preserve crr(1 To 3, 1 To n)
crr(1, n) = brr(0)
crr(2, n) = sp1
crr(3, n) = sp2
fl = Dir
Loop
Sheet2.Range("a2:c" & Rows.Count).ClearContents
Sheet2.Range("a2").Resize(n, 3) = Application.Transpose(crr)
End Sub

复制代码

yangyangzhifeng · 发表于 2012-12-19 08:43

本帖最后由 yangyangzhifeng 于 2012-12-19 10:51 编辑

请见附件，此文件与txt文件放在同一文件夹使用

数据.rar (11.34 KB, 下载次数: 71)

放眼TOT · 发表于 2012-12-19 12:45

yangyangzhifeng 发表于 2012-12-19 08:43
请见附件，此文件与txt文件放在同一文件夹使用

非常谢谢能帮我！！！！
我试了， sp1 = sp1 + Val(brr(42)) 它说这个下标越界啊。。。
我也看不懂代码。。TAT

yangyangzhifeng · 发表于 2012-12-19 12:52

你的实际txt文件和实例txt文件结构不一样吧！

yangyangzhifeng · 发表于 2012-12-19 12:57

请上传一个实际的txt文件

放眼TOT · 发表于 2012-12-19 13:08

yangyangzhifeng 发表于 2012-12-19 12:57
请上传一个实际的txt文件

我传到1楼了！麻烦你再下载看一下， O(∩_∩)O谢谢哈

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

[求助] 如何用EXCEL批量处理TXT并将结果自动录入EXCEL

Sub test()