Question

我正在尝试获取我的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

Answer 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

VBA将内容从TXT文件列出到Excel

1 个答案: