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

引子玄

个人思路=====XMLHTTP对象法,提取文本内容(批处理),俺实验下~~~

引子玄

引子玄 发表于 2012-12-23 10:45
个人思路=====XMLHTTP对象法,提取文本内容(批处理),俺实验下~~~

Sub test发现完全可以()
  On Error Resume Next
  With CreateObject("Microsoft.XMLHTTP")
    .Open "POST", "file:///C:/Documents%20and%20Settings/Administrator/桌面/代码.txt", True
    .Send
    Do Until .ReadyState = 4
    DoEvents
    Loop
         
      Cells(1, 1) = .responsetext
      MsgBox .responsetext
    Set CreateObject("Microsoft.XMLHTTP") = Nothing
  End With
End Sub

用XMLHTTP来做TXT文本的批处理,应该是最好的办法

yangyangzhifeng

引子玄 发表于 2012-12-23 11:00
Sub test发现完全可以()
  On Error Resume Next
  With CreateObject("Microsoft.XMLHTTP")

楼主需要的是统计，不是简单的取得文本内容

引子玄

yangyangzhifeng 发表于 2012-12-23 11:18
楼主需要的是统计，不是简单的取得文本内容

但是,我这边如果打开楼主的求助贴中的附件(另一个文本),会出现卡机\死机的严重问题,根本打不开那个文本.

统计,用XMLHTTP批处理,原理上也是可以的.并不碍事.你说呢?

yangyangzhifeng

不知你用记事本打开，还是XMLHTTP打开造成死机，我这儿用记事本和Open方法打开都没有死机现象。
楼主文本文件较大，我用Notepad++
不知用XMLHTTP处理文本文件有没有速度上的优势

放眼TOT

yangyangzhifeng 发表于 2012-12-23 12:47
不知你用记事本打开，还是XMLHTTP打开造成死机，我这儿用记事本和Open方法打开都没有死机现象。
楼主文本文 ...

大神大神你好，，，看到您在线好高兴！！！，麻烦的我又来了，，，=。=
对亏了您那么复杂的数据我很快就做出了了，再次表达感激之情TAT。。
，还是上次这个数据的遗留问题，，

我需要处理的这个数据，有两部分数据，我需要让右半部分（EFGH列）跟左半部分的数据对应，就是要代码跟年份都一致，要是有不一致的就删除掉。
我用VLOOKUP等函数试了好久不成功。。。只好又来厚脸皮求助大神。。。。。。
附件里的是截取的数据的样本，，，原来那个文件太大传不上来。。。。。。
谢谢谢谢！！！

yangyangzhifeng

放眼TOT 发表于 2012-12-30 10:18
大神大神你好，，，看到您在线好高兴！！！，麻烦的我又来了，，，=。=
对亏了您那么复杂的数据我很快就 ...

试试

1. Sub test()
   
2.     Dim ar, br, i, j&, n&, dic1 As Object, dic2 As Object
   
3.     Set dic1 = CreateObject("scripting.dictionary")
   
4.     Set dic2 = CreateObject("scripting.dictionary")
   
5.     ar = Sheet1.Range("a1").CurrentRegion
   
6.     ReDim br(1 To UBound(ar), 1 To 4)
   
7.     For i = 1 To UBound(ar)
   
8.         If ar(i, 1) <> "" And ar(i, 2) <> "" Then
   
9.             dic1(ar(i, 1)) = ""
   
10.             dic2(ar(i, 2)) = ""
    
11.         End If
    
12.     Next
    
13.     For i = 1 To UBound(ar)
    
14.         If dic1.exists(ar(i, 5)) And dic2.exists(ar(i, 6)) Then
    
15.             n = n + 1
    
16.             For j = 5 To 8
    
17.                 br(n, j - 4) = ar(i, j)
    
18.             Next
    
19.         End If
    
20.     Next
    
21.     Sheet2.Cells.ClearContents
    
22.     Sheet2.Range("a1").Resize(n, UBound(br, 2)) = br
    
23. End Sub
    

复制代码

看，EFGH列输出到sheet2

放眼TOT

yangyangzhifeng 发表于 2012-12-30 11:35
试试看，EFGH列输出到sheet2

我试了，输出的结果没有对应上，我仔细比较了，发现是因为有在AB列有的代码跟年份但是在EF列没有，但是筛选出的EF列的数据相对应的并没有空出来。

麻烦大神了！谢谢！   

yangyangzhifeng

不懂你的要求，筛选出来的，肯定都能在A,B列找到相应的 CODE和YEAR,字典比对不会出错的。
只是不明白你要什么结果，是要对应的数据，放在相同行显示？

放眼TOT

yangyangzhifeng 发表于 2012-12-30 12:41
不懂你的要求，筛选出来的，肯定都能在A,B列找到相应的 CODE和YEAR,字典比对不会出错的。
只是不明白你要什 ...

对啊对啊，就是相对应的数据都要放在同一行啊。是我没说清楚，不好意思。