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

Question

我希望将整个文本文件输入到 excel 中的新工作表中。 现在我只将所有值放入一个单元格中，我希望它看起来像在文本文件中。 就像每一行在 excel 中得到一行。

我已经尝试过本教程，但没有得到它。

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

Answer 1

我为想知道如何查看以下内容的您解决了

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