Question

我正在尝试编写用于打开文件夹中最新文件的代码。在此文件夹中，我们有许多不同文件的版本，这些文件的名称本身以日期和时间分隔。我编写了执行此操作的代码，但是我无法弄清楚如何按修改时间分开。你们能帮我吗？

格式如下：“ Raio X-Grafico-17.09.2018 07.39.pdf”唯一更改的是每个新版本的日期和小时，文件名的末尾。

 Dim FileSys, objFile, myFolder, c As Object
 Dim Fldname As String
 Dim FPath As String
 Dim FileN As String
 Dim MDataFile As String
 Dim Date1 As Date
 Dim RDate As String
 Dim Hour1 As Date
 Dim RHour As String


 Date1 = Now()
 RDate = Format(Date1, "dd.mm.yyyy")
 Hour1 = Time
 RHour = Format(Hour1, " hh.mm")
 FPath = "R:\TL - Comando de Montagem - Relatorios Internos\Raio X"
 FileN = FPath & "\" & "Raio X - Grafico - " & RDate & RHour & ".pdf"
 ActivePresentation.FollowHyperlink _
 Address:=FileN, _
 NewWindow:=True, AddHistory:=True

 End Sub

我需要比较系统小时数和文件夹中文件的小时数，我不知道该怎么做。

Answer 1

由于位置与末端的距离固定，因此可以使用Mid和Len功能。
这是一个示例：

FileName = "Raio X - Grafico - 17.09.2018 07.39.pdf"
FileHour = Mid(FileName, Len(FileName) - 8, 2)
FileMinute = Mid(FileName, Len(FileName) - 5, 2)

PowerPoint VBA：在文件夹中打开最新的PDF

1 个答案: