如何从 a.txt 文件中获取文本并将其写入同一个 excel 文件的新工作表中

Question

I want a whole text file to enter into a new sheet in excel. Right now I am only getting all values in to one cell, I want it to look like in the text file. Like every row get one row in excel.

I have tried this tutorial but this doesn't get it.

https://www.excel-easy.com/vba/examples/read-data-from-text-file.html

Answer 1

I solved it for you who wants to know how check below

Sub GetText()
Dim SheetName As String
Dim TMPWorkBook As Workbook
Dim FilePath As String
Dim TxtFilePath As String
Dim TxtFileName As String

Set WB = ThisWorkbook

SheetName = "Test_Result"
TxtFileName = "C:\getitdone.txt"

Workbooks.OpenText Filename:= _
    TxtFileName _
    , Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
    xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, _
    Comma:=False, Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 1), _
    Array(2, 1)), DecimalSeparator:=".", ThousandsSeparator:=",", _
    TrailingMinusNumbers:=True

Set TMPWorkBook = ActiveWorkbook
Cells.Select
Selection.Copy
Workbooks("Getitdone.xlsm").Activate
Sheets.Add.Name = "Data"
Range("A1").PasteSpecial xlPasteValues


End Sub