如何使用excel vba自动读取TXT文件的最后一行

shtddx

各位大侠，在下新手一枚，想通过excel读取txt文件中的数据，请问有啥好办法？
【实现功能】当触发数据填入任何非空数据（例如附件中excel的A/B/C/D等）后，自动读取TXT文件中的最后一行（前次已经读取的数据不变）
（编辑时因为有图片时超大，没办法只能删除了，请看附件中的内容）
     请各位大侠帮忙，不胜感激！另外，我知道坛子里有过历史的一个文件，只要改改就好了，但是我个人不大会。（我的附件中把历史文件也放进去了）请帮忙！谢谢！

shtddx

自己顶给大家看~~~

yayahzmeng

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Application.ScreenUpdating = False
   
3.     If Target.Column = 2 And Target.Count = 1 Then
   
4.         Dim file, itxt, wtxt, ltxt, ipath, arr, n%
   
5.         file = ThisWorkbook.Path & "\称重文件.txt"
   
6.         Open file For Input As #1
   
7.         Do While Not EOF(1)
   
8.             Line Input #1, itxt
   
9.             wtxt = wtxt & itxt & vbTab
   
10.         Loop
    
11.         Close #1
    
12.         arr = Split(wtxt, vbTab): n = UBound(arr)
    
13.         ltxt = arr(n - 1)
    
14.         Cells(Target.Row, Target.Column + 1) = ltxt
    
15.     End If
    
16. Application.ScreenUpdating = True
    
17. End Sub

复制代码

请测试

houzhenyu11

yayahzmeng 发表于 2017-1-17 18:38
请测试

Sub lx() '每隔1分钟运行一次这个过程
  Dim m As Integer, s As String
'MyPath = "D:\My Documents\excel\"
MyPath = ThisWorkbook.Path & "\"
myfile = Dir(MyPath & "*.txt")
Do While myfile <> ""
i = i + 1
Cells(i, 1).Value = myfile
Open MyPath & myfile For Input As #1
  Do While Not EOF(1)
  Line Input #1, s
  Cells(i, 2).Value = s
  Loop
  
Close #1
myfile = Dir
Loop
    NextTime = Now + TimeValue("00:00:03")
    Application.OnTime NextTime, "lx"
End Sub
我这是一段宏 也是读取TXT最后一行 现在是逐行扫描 很慢 我想直接到最后一行
师傅帮帮忙 谢谢