VBA na otvorenie najnovšieho súboru v priečinku

Anonim

Ako otvoriť najnovší súbor v priečinku v programe Microsoft Excel

V prípade, že chcete kód VBA, ktorý vám umožní otvoriť nedávno uložený súbor v priečinku jednoduchým kliknutím na tlačidlo makra.

Otázka): Mám tím 10 ľudí a súrne hľadám makro, ktoré mi pomôže s otvorením najnovšieho súboru uloženého členom tímu, aby som nemusel ísť cestou, kde je súbor uložený.

Musíme postupovať podľa nasledujúcich krokov:

  • Kliknite na kartu Vývojár
  • V skupine Kód vyberte položku Visual Basic

  • Do modulu pracovného hárka zadajte nasledujúci kód

Možnosť explicitná

Vedľajší najnovší súbor ()

Dim MyPath ako reťazec

Dim MyFile ako reťazec

Dim LatestFile as String

Dim LatestDate as Date

Dim LMD ako dátum

MyPath = "C: \ Users \ Documents \"

Ak správne (MyPath, 1) "\" Then MyPath = MyPath & "\"

MyFile = Dir (MyPath & "*.xls", vbNormal)

Ak Len (MyFile) = 0 Potom

MsgBox „Neboli nájdené žiadne súbory …“, vbExclamation

Ukončiť sub

Koniec Ak

Do Len (MyFile)> 0

LMD = FileDateTime (MyPath & MyFile)

Ak LMD> LatestDate Then

LatestFile = Môj súbor

LatestDate = LMD

Koniec Ak

MyFile = Dir

Slučka

Zošity. Otvorte aplikáciu MyPath a súbor LatestFile

Koniec pod

Takýmto spôsobom budeme môcť pomocou kódu makra otvoriť najnovší súbor uložený členom tímu.

Stiahnuť - Ako otvoriť najnovší súbor v priečinku - xlsm