テキストファイルをコピーしてExcelに貼り付けます。

Question

テキストファイルをコピーし、次のコードを使用してExcelにデータを貼り付けようとしました。このコードは、目的のExcelシートのデータをコピーして貼り付ける程度には問題ありませんが、コード内のどこにでもプロンプトが表示されることなく、別のExcelファイルとシートをテキストファイルと同じ名前で開き、そこにデータを貼り付けますよくこれは望ましくない。データを列に分割したり、他のアクションを実行する必要はありません。これは単純で簡単なコピー＆ペーストのタスクです。私はこれと様々な他のウェブサイトを検索して答えを出しましたが、私の問題に適切に対処するものは得られませんでした。私はコード内の欠陥を把握することができないので、あなたの助けを求める。どんな援助も感謝の意をもって認められます。暖かいに関しては、ここで

は私のコードは、あなたが（Workbooks.Open文で）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

です。

代わりに、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 

は、それはあなたのためにどのように動作するかを参照してください？