是否使用vba将多个文本文件导入excel中的新行？

我有以下代码扫描我的目录中的文本文件。在我的目录中有几个文本文件，每个文件的布局如下：

Text File:
Birmingham
France
Isle of White
Manchester
New-Castle

然后，我尝试将每个文本文件导入excel中的新行，以便将每行文本插入该行中的新列中

Text File:
Birmingham
France
Isle of White
Manchester
New-Castle

Birmingham         France      Isle of White       Manchester     New-Castle

我的代码可以做到这一点，但是它只导入一个文本文件，而不是导入目录中的所有文本文件

Text File:
Birmingham
France
Isle of White
Manchester
New-Castle

有人能告诉我哪里出了问题吗？我应该得到以下结果：

Text File:
Birmingham
France
Isle of White
Manchester
New-Castle

Row 1
Birmingham         France      Isle of White       Manchester     New-Castle 

Row 2
London             Spain       America             Sutton         Scotland

等等

Text File:
Birmingham
France
Isle of White
Manchester
New-Castle

代码：

Text File:
Birmingham
France
Isle of White
Manchester
New-Castle

---

我认为你的问题在于这一排：

Text File:
Birmingham
France
Isle of White
Manchester
New-Castle

 nxt_row = Range("A1").End(xlUp).Offset(0, 0).Row

将其替换为以下内容：

Text File:
Birmingham
France
Isle of White
Manchester
New-Castle

 nxt_row = Range("A10000").End(xlUp).Offset(1, 0).Row

或另一种选择：

Text File:
Birmingham
France
Isle of White
Manchester
New-Castle

if Range("A1").Value = "" then 
  nxt_row = 1
else
  if Range("A2").Value = "" then 
    nxt_row = 2
  else
     nxt_row = Range("A1").End(xlDown).Offset(1).Row
  end if
end if

---

谢谢，但这给出了对象的错误方法范围(u Global failed try the alternative)(可选)(谢谢)这很好用!！我是否可以从C列而不是A列开始获取数据行？尽管第二个文本文件没有被导入，但当我这样做时，确实可以从3开始获取curCol？