请教怎样读取文本文件

zdbxq

我有一个文本文件，另有一个应用程序不时地往文本文件中写内容。我现在想在EXCEL中编一个VBA程序不断地将文本文件中的内容读到EXCEL中，能否赐教？

pureshadow

录一段：
ChDir "C:\..." Workbooks.OpenText Filename:="C:\...\aa.txt", _
        Origin:=936, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _
        Array(0, 1), Array(2, 1), Array(5, 1), Array(8, 1), Array(11, 1), Array(14, 1), Array(17, 1) _
        ), TrailingMinusNumbers:=True

zdbxq

要如何实现实时不断地读出不断写进来的文本内容？