Import 使用单元格值导入到excel文本文件

我想在excel中导入一些.txt输出文件

理想情况下，我想使用Sheet1作为索引；我将在其中写入标题、工作表的名称以及.txt文件的路径和名称。宏应创建一个名为单元格的新闻表，并在该表中导入相应的.txt文件

我一直试图录制宏并更改VBA代码，但到目前为止都失败了

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\UserXP\My Documents\My Dropbox\CIPPEC\1-MIRA\Procesamiento base\OEDE\Tablas\trim\q_employ_pcia_23.txt" _
, Destination:=Range("$A$1")).Name = "q_employ_pcia_23"

有什么想法吗

谢谢

---

用于将导入内容导入到新工作表中，并且您还希望为新工作表命名。

您的数据在

Sheet1

中的外观如何？

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\UserXP\My Documents\My Dropbox\CIPPEC\1-MIRA\Procesamiento base\OEDE\Tablas\trim\q_employ_pcia_23.txt" _
, Destination:=Range("$A$1"))
.Name = "q_employ_pcia_23"
.Refresh BackgroundQuery:=False
End With
ActiveSheet.Name = "q_employ_pcia_23"