Vba 将多个CSV文件导入主excel电子表格，并将数据附加到以前的导入中

我有一个将.csv文件导入工作表“数据”的脚本

第一次导入后，所有后续导入将显示在先前导入的右侧，而不会添加到底部（最后一行）

我认为这个问题涉及到剧本的这一方面： 目标：=ThisWorkbook.Sheets（“数据”）.Range（$A$1））

---

您需要检查目的地，以查看下一个未使用的单元格是什么

With ThisWorkbook.Sheets("Data")
    .QueryTables.Add(Connection:= _
  ..., Destination:=.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
'lots of other stuff
End With

---

您可以重复参考ThisWorkbook.Sheets（“数据”），但使用更简单。

您是否查看了本网站上已解决此问题的答案？

With ThisWorkbook.Sheets("Data")
    .QueryTables.Add(Connection:= _
  ..., Destination:=.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
'lots of other stuff
End With