複製一個文本文件並粘貼在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 

請參閱如何工作的嗎？