excel提取TXT文件的内容

13758088904

大家好。。。我小白啊，请见谅。提的问题可能比较傻。
1、打开EXCEL，在A1单元格进行扫码。获得零件号（比如7483301972394744204J7130002）
2、系统自动在电脑里的指定文件夹下（d:date）寻找所有TXT格式的文件
3、在所有TXT文件中查找对应零件号之前的那一位（1或者0），并将（1或者0）输出至EXCEL A2单元格


就是有点像VLOOKUP函数，只是用来提取txt文件的内容。
备注：txt文件是实时更新的，而且我也是每10秒左右就要扫码一次。。
感谢大神，感谢

13758088904

听说自己都要先顶一下

xyxcc177

如果反复打开文件，还是把文件内容存在数据库中较好。

media888

TXT  导入表中再寻找


多列数据的文本文件中提取数据
http://club.excelhome.net/thread-275605-1-1.html
(出处: ExcelHome技术论坛)

719404338

1. Sub t()
   
2.        Dim Str$, arr, i%
   
3.        Str = Dir(ThisWorkbook.Path & "/*.txt")
   
4.        Application.DisplayAlerts = False
   
5.        Open ThisWorkbook.Path & "" & Str For Input As #1
   
6.        arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
   
7.        Close #1
   
8.        For i = 2 To UBound(arr) - 1
   
9.          Range("a" & i - 1) = Split(arr(i), " ")(1)
   
10.          Range("b" & i - 1) = Split(arr(i), " ")(0)
    
11.         Next   
    
12. End Sub
    

复制代码

13758088904

719404338 发表于 2018-9-22 19:22

大神大神，你能帮我解释下每句代码的意思吗。。。我好方便改改路径什么的。。。实在是不懂啊

13758088904

719404338 发表于 2018-9-22 19:22

万分感谢，搞懂了