vba将txt文件中的内容列表到excel中

我试图让我的vba脚本从文本文件中复制内容，并将其放在单个单元格中。到目前为止，我可以从一个文件中提取内容，但它只将所有内容放在一个单元格中。是否有办法修改下面的脚本，使其在txt文件上每次“输入”后都位于每个单元格中

  Set objFSO = CreateObject("Scripting.FileSystemObject")
    objStartFolder = "C:\Users\mohammad.anwar\Desktop\Newfolder4\"
    Dim strNow, strDD, strMM, strYYYY, strFulldate
    strYYYY = DatePart("yyyy", Now())
    strMM = Right("0" & DatePart("m", Now()), 2)
    strDD = Right("0" & DatePart("d", Now()), 2)
    fulldate = strYYYY & strMM & strDD
    ForReading = 1
    Set objFolder = objFSO.GetFolder(objStartFolder)


    Set colFiles = objFolder.Files


    For Each objFile In colFiles
    strFileName = objFile.Name


    If InStr(strFileName, fulldate) > 0 = True Then


    Set file = objFSO.OpenTextFile(objStartFolder + strFileName, 1)
    Content = file.ReadAll
    Range("A3").Select
    ActiveCell.FormulaR1C1 = Content

---

我通过实现前一篇文章中的另一个部分来实现它。 供参考。

脚本添加到IF字符串中，能够按日期查找文件，并在每个单元格上列出文件中的内容

子样本（）
使用ActiveSheet.QueryTables.Add（连接：=_
“TEXT；C:\“您的文件路径”\&**strFileName，**目的地：=范围（$A$1）”_
)
.Name=“样本”
.FieldNames=True
.rowNumber=False
.FillAdjacentFormulas=False
.PreserveFormatting=True
.refreshinfoleopen=False
.RefreshStyle=xlInsertDeleteCells
.SavePassword=False
.SaveData=True
.AdjustColumnWidth=True
.RefreshPeriod=0
.TextFilePromptOnRefresh=False
.TextFilePlatform=437
.TextFileStartRow=1
.TextFileParseType=xlDelimited
.TextFileTextQualifier=xlTextQualifierDoubleQuote
.textfileconsutivedelimiter=False
.TextFileTabDelimiter=True
.TextFileSemicolonDelimiter=False
.textfilecommadelimitor=True
.TextFileSpaceDelimiter=False
.TextFileColumnDataTypes=数组（1,1,1,1,1）
.TextFileTrailingMinusNumbers=True
.Refresh BackgroundQuery:=False
以
末端接头