用下面代码就可以了,第二行中的T后面改成你实际的路径就行。 Sub 导入文件文件() t = d:\abc\工作.txt '文本文件的路径 j = [a65536].End(xlUp).Row + 1 Set f = CreateObject(Scripting.FileSystemObject) _ .OpenTextFile(t) Do While Not f.AtEndOfStream Cells(j, 1) = f.readline j = j + 1 Loop f.Close Set f = Nothing End Sub