欧美vvv,亚洲第一成人在线,亚洲成人欧美日韩在线观看,日本猛少妇猛色XXXXX猛叫

問題遇到的現象和發生背景

輸入20多個文本文檔的時候，提示超出文件尾

問題相關代碼輸入超出了文件尾，請勿粘貼截圖

代碼如下:

Sub 導入txt文件名及文本內容()

Dim t As Date

Dim r As Long

Dim Fso As

Dim As

Dim As

Dim As

t = Timer

r = 2

Set = ("Shell.").(0, "請選擇txt所在文件夾：", 0, .Path)

If Is Then Exit Sub

Set Fso = (".")

Set = .("")

. = False

.Cells.Clear

.[A1:B1].Value = Array("文件名", "文本內容")

For Each In Fso.(.Self.Path).Files

If Fso.() = "txt" Then

.Cells(r, 1).Value = .Name

.Cells(r, 2).Value = Fso.(). '寫入文本

r = r + 1

End If

Next

. = True

Set =

Set Fso =

Set =

"結束，共運行" & ((Timer - t), "0.0") & "秒"

End Sub

運行結果及報錯內容

運行錯誤62，提示超出文件尾

我的解答思路和嘗試過的方法

我把多有文本文檔都設置成了ANSI編碼輸入超出了文件尾，因為UTF8亂碼

我想要達到的結果

我有一萬個文檔要輸入。

Excel兩列一列是文本文檔的名字，一列是文本文檔的內容。

上述代碼只能輸入20多個文檔，輸入多了就提示有錯誤