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