将多个txt文件批量导入到一个excel中，提醒超出文件尾

将多个txt文件批量导入到一个excel中，提示超出文件尾。
我有19000多个txt文件，都是歌词。我想把它都导入到一个excel表。txt的文件名放在A列，txt文件里的内容放在B列，且在一个单元格内。

我找到了一个代码：

Sub test()
 mypath = ThisWorkbook.Path & "\"
 myname = Dir(mypath & "*.txt")
 i = 2
 Do While myname <> ""
     f = FreeFile
     Open mypath & myname For Input As #f
     mystr = StrConv(InputB(LOF(f), f), vbUnicode)
     Close #f
     i = i + 1
     Sheet1.Cells(i, 1) = myname
     Sheet1.Cells(i, 2) = mystr
     myname = Dir
 Loop
 End Sub

我的8000多个文档的，有时候可以入5000多个，有时候只能到处1000多个就会出现这个“输入超出文件尾”的提示。
怎么不能一次性将所有的txt都导入，而是在运行时候总是出现“超出文件尾”的提示。
请问下是不是这个代码有什么缺陷啊。
------解决方案--------------------
最大行数和最大列数：
Excel2003及以前版本65536行,256列
Excel2007及后续版本1048576行,16384列
------解决方案--------------------
超出excel2003的行最大限制了

不明白为什么不是导入word而是选择excel呢
------解决方案--------------------

引用

我有19000多个txt文件，都是歌词。

引用

我的最多只有19000行

每个文件只有一行吗？