Jak otevřít nejnovější soubor ve složce v aplikaci Microsoft Excel
V případě, že chcete kód VBA, který vám umožní otevřít nedávno uložený soubor ve složce pouhým kliknutím na tlačítko makra.
Otázka): Mám tým 10 lidí a naléhavě hledám makro, které mi pomůže s otevřením nejnovějšího souboru uloženého členem týmu, abych nemusel jít cestou, kde je soubor uložen.
Musíme postupovat podle následujících kroků:
- Klikněte na kartu Vývojář
- Ze skupiny kódů vyberte Visual Basic
- Do modulu listu zadejte následující kód
Možnost Explicitní
Dílčí nejnovější soubor ()
Dim MyPath jako řetězec
Dim MyFile jako řetězec
Dim LatestFile jako řetězec
Dim LatestDate As Date
Dim LMD as Date
MyPath = "C: \ Users \ Documents \"
Pokud správně (MyPath, 1) "\" Then MyPath = MyPath & "\"
MyFile = Dir (MyPath & "*.xls", vbNormal)
Pokud Len (MyFile) = 0 Then
MsgBox "Nebyly nalezeny žádné soubory …", vbExclamation
Ukončit dílčí
Konec If
Do While Len (MyFile)> 0
LMD = FileDateTime (MyPath & MyFile)
Pokud LMD> LatestDate Then
LatestFile = MyFile
LatestDate = LMD
Konec If
MyFile = Dir
Smyčka
Sešity. Otevřete MyPath a LatestFile
End Sub
Tímto způsobem pomocí kódu makra budeme moci otevřít nejnovější soubor uložený členem týmu.
Stáhnout - Jak otevřít nejnovější soubor ve složce - xlsm