Question

这似乎是一项简单的任务，但我不能指责它，它只是不起作用。我需要通过vba导入一个分隔的txt文件，最后有一个随机值，这是我试过的：

c02 = Dir("T:\bla\DERP-_-" & Format$(Date, "YYYY-MM-DD") & "_*.txt")

    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & c02 _
        , Destination:=Range("$A$1"))
        .Name = _
        "Extract"
        .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 = True
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = True
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

所以今天的完整路径是：T:\bla\DERP-_-2014-06-19_08-19.txt

明天可能是：T:\bla\DERP-_-2014-06-20_09-12.txt

为什么要赢得这项工作？我很沮丧，这个简单的东西不起作用

Huuuuge事先感谢

Answer 1

您需要添加生成查询表的完整路径。 Dir仅返回文件名，而不是完整路径

VBA Excel在具有部分文件名时导入带分隔符的文本文件

1 个答案: