vba将txt文件中的内容列出到excel中答案

【问题标题】：vba listing content from txt file into excelvba将txt文件中的内容列出到excel中
【发布时间】：2019-12-03 16:15:44
【问题描述】：

我试图让我的 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

【问题讨论】：

标签： excel vba

【解决方案1】：

我设法通过实现以前找到的帖子中的另一个部分来使其正常工作。供参考。 vba: Importing text file into excel sheet

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

Sub Sample() With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\"Your file path"\ & **strFileName,** Destination:=Range("$A$1") _ ) .Name = "Sample" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 437 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub

【讨论】：