0

例如,假设我有 5 个文本文件。

文件名: File1.txt 数据: vmkfmoemfvkmdfv

文件名: File2.txt 数据: ppvlvlvl

文件名: File3.txt 数据: wwwererer

文件名: File4.txt 数据: mmki

文件名: File5.txt 数据: qwerr

现在我想要的是将每个文件的数据添加到列的单独单元格中。

我之前所做的是 - 打开 File1.txt,复制其中的所有数据,选择一个单元格,将其粘贴到单元格中。

有没有自动的方法来做到这一点?

请帮忙 !!!!

4

2 回答 2

0

试试这个小宏:

Sub basement()
    For i = 1 To 5
        Close #1
        Open "C:\TestFolder\File" & i & ".txt" For Input As #1
        Line Input #1, TextLine
        Cells(i, "A").Value = TextLine
        Close #1
    Next i
End Sub

调整此项以使用您自己的文件夹名称

于 2013-09-29T19:20:27.900 回答
0

不,没有办法做到这一点。如果您不准备制作自己的小程序。但这比你描述的要多得多。

于 2013-09-29T19:01:05.297 回答