使用VBA将文本文件复制到Excel

我有一堆我想复制到Excel中的文本文件。 每个文本文件只是一列数字，到目前为止，我已经复制并粘贴到Excel中。 我有数百个文本文件，但手工处理是从字面上1.打开文件，2.复制所有，3.在Excel中粘贴到新列，4.closures文件。 结果将是几百个满数字的列，然后我可以在Excel中进行统计。

编辑：我现在已经logging了我执行该动作的一个macros，这里是脚本：

Sub Macro() ActiveCell.FormulaR1C1 = "" Range("C1").Select ActiveSheet.Paste Range("D1").Select ActiveSheet.Paste Range("E1").Select ActiveSheet.Paste Range("F1").Select ActiveSheet.Paste End Sub 

所以录制一个macros只能捕获这个过程的粘贴部分 – 我可以在复制部分编码吗？ 目前，我有一个名为“通行证0”，“通行证1”，…“通行证99”（我想进入数千）的文本文件目录。 我该如何去打开这些文件，复制它们的内容，粘贴然后closures它们？

任何帮助深表感谢。