访问固定路径下的最新的文件夹里面的文件

liudi_911

需要访问如下路径的txt文件
C:\EE\SR86340\20180817_0901\SR86340_20180817_0901_01.txt
现在的问题是

\20180817_0901\
这个文件夹是每天生成的, 20180817是日期, 0901是操作的时间
就是说每天需要访问的是不同的文件及文件夹

SR86340_20180817_0901_01.txt
里面的文件也是一样, 按照操作的日期和时间生成的

特点就是
日期是固定的格式, 时间按照操作的时间不同是不一样的

希望大神帮助编写Excel VBA的程序


C:\EE\G038\SR86340\20180817_0901\SR86340_20180817_0901_1.txt

liujialin0o0

20180817_0901文件夹生成是每天只一次吗,还是多次的?

liudi_911

liujialin0o0 发表于 2018-8-20 14:06
20180817_0901文件夹生成是每天只一次吗,还是多次的?

每天只生成一次

liujialin0o0

liudi_911 发表于 2018-8-20 16:54
每天只生成一次

这应该好解决,下班估计没时间了今天
用Dir函数匹配C:\EE\SR86340下的当天日期的文件夹,然后在匹配txt文件

liudi_911

Open "C:\EE\SR86340\" & Dir("C:\EE\SR86340\SR86340_" & Format(Date, "yyyy") & "" & Format(Date, "mm") & "" & Format(Date, "dd") & "*.TXT") For Input As #1

使用上面的程序可以打开SR86340文件夹内的最近建立的txt文件

但是不能打开SR86340子文件夹下面的文件

liudi_911

顶一下...........

liudi_911

有路过的高手帮助解决一下不 谢过了

zopey

Sub ListFilesDos()
    Set myFolder = CreateObject("Shell.Application").BrowseForFolder(0, "GetFolder", 0)
    If Not myFolder Is Nothing Then myPath$ = myFolder.Items.Item.Path Else MsgBox "Folder not Selected": Exit Sub
   
    myFile$ = InputBox("Filename", "Find File", "20180817")
    '在这里输入需要指定的关键字，可以是文件名的一部分，或指定文件类型如 ".xl"
    tms = Timer
    With CreateObject("Wscript.Shell") 'VBA调用Dos命令
        ar = Split(.exec("cmd /c dir /a-d /b /s " & Chr(34) & myPath & Chr(34)).StdOut.ReadAll, vbCrLf) '所有文档含子文件夹
        '指定Dos中Dir命令的开关然后提取结果 为指定文件夹以及所含子文件夹内的所有文件的含路径全名。
        s = "from " & UBound(ar) & " Files by Search time: " & Format(Timer - tms, " 0.00s") & " in: " & myPath
        '记录Dos中执行Dir命令的耗时
        tms = Timer: ar = Filter(ar, myFile) '然后开始按指定关键词进行筛选。可筛选文件名或文件类型
        Application.StatusBar = Format(Timer - tms, "0.00s") & " Find " & UBound(ar) + IIf(myFile = "", 0, 1) & " Files " & s
        '在Excel状态栏上显示执行结果以及耗时
    End With
    [a:a] = "": If UBound(ar) > -1 Then [a2].Resize(1 + UBound(ar)) = WorksheetFunction.Transpose(ar)
    '清空A列，然后输出结果
End Sub

liudi_911

zopey 发表于 2018-8-23 15:35
Sub ListFilesDos()
    Set myFolder = CreateObject("Shell.Application").BrowseForFolder(0, "GetFold ...

[a:a] = "": If UBound(ar) > -1 Then [a2].Resize(1 + UBound(ar)) = WorksheetFunction.Transpose(ar)
    '清空A列，然后输出结果

请问如果这个输出想在指定的sheet里面的指定位置该如何修改代码

例如
Worksheets("SR86340").Cells(4, 4)

liudi_911

zopey 发表于 2018-8-23 15:35
Sub ListFilesDos()
    Set myFolder = CreateObject("Shell.Application").BrowseForFolder(0, "GetFold ...

已经解决了 十分感谢