复制一个文本文件并粘贴在Excel中

Question

我试图复制一个文本文件并使用以下代码在Excel中粘贴数据。代码的工作效果令人满意，其目的是在目标Excel表格中复制和粘贴数据，另外还打开另一个与Text文件名称相同的Excel文件和工作表，而不会在代码中的任何地方提示，并将数据粘贴为好。这是不可取的。我不想将数据拆分为列或执行任何其他操作。这是一个简单而简单的复制和粘贴任务。我已经搜索了这个和其他各种网站的答案，但没有得到一个适当解决我的问题。我无法找出代码中的缺陷，因此，寻求你的帮助。任何帮助都会得到最多的感谢。随着亲切问候，

这里是我的代码

Sub CopyTextFile() 
Set TxtFileName = Workbooks.Open("D:\Spares\Inventory\list_of_spares.txt") 
TxtFileName.Sheets(1).Range("A1").CurrentRegion.Copy 
Workbooks("Macro Test.xlsm").Activate 
ActiveWorkbook.Sheets(1).Range("A1").Select 
ActiveSheet.Paste 

End Sub 

Answer 1

你得到“额外文件”，因为您打开在Excel中的文本文件（与Workbooks.Open语句），然后从中复制数据。

相反，打开用filesystemobject文件和读取数据，然后直接写入到您的工作簿：

Sub CopyTextFile() 
Dim oFso : Set oFso = CreateObject("Scripting.FileSystemObject") 
Dim oFile : Set oFile = oFso.OpenTextFile("D:\Spares\Inventory\list_of_spares.txt", 1) 
Dim sText 
sText = oFile.ReadAll 
oFile.Close 
ThisWorkbook.Sheets(1).Range("A1").Value = sText 
End Sub 

请参阅如何工作的吗？