时间戳

首页 > 解决方案 > 从更改日期文件中复制 VBA

excel - 从更改日期文件中复制 VBA

问题描述

我有一个问题希望你能帮助我。我需要将 5 个文件复制到一个文件中，但挑战是文件以它们的创建日期命名。

例如。文件名可以是；

TTDU 20191113 (for today).
TTDU 20191112
TTDU 20191111
etc.

（TTDU 是报告的名称，永远不会改变）有没有办法创建一行代码，从文件名中减去 -1 天？它可以在工作日工作而不包括周末吗？或者也许你有一个想法如何以另一种方式做到这一点

非常感谢！

标签： excelvba

解决方案

沿着这些思路，使用split和mid

像这样称呼

SortDateOut("TTDU 20191123")

Function SortDateOut(strInput As String) As Date

Dim s As String

s = Split(strInput, Chr(32))(1)

SortDateOut = DateSerial(Mid(s, 1, 4), Mid(s, 5, 2), Mid(s, 7, 2))

End Function

推荐阅读