import - 使用单元格值导入到 Excel 文本文件

Question

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

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

任何想法？

谢谢

Answer 1

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"

工作以将导入导入新工作表，并且您还想命名新工作表。