VBA Za odpiranje najnovejše datoteke v mapi

Anonim

Kako odpreti najnovejšo datoteko v mapi v programu Microsoft Excel

V primeru, da želite kodo VBA, ki vam bo omogočila odpiranje nedavno shranjene datoteke v mapi z enim samim klikom na gumb makra.

Vprašanje): Imam ekipo 10 ljudi in nujno iščem makro, ki mi bo pomagal odpreti zadnjo datoteko, ki jo je shranil član ekipe, tako da mi ni treba iti po poti, kamor je datoteka shranjena.

Slediti moramo naslednjim korakom:

  • Kliknite zavihek Razvijalec
  • V skupini Koda izberite Visual Basic

  • V modul delovnega lista vnesite naslednjo kodo

Možnost izrecno

Pod najnovejša datoteka ()

Zatemni MyPath kot niz

Zatemni mojo datoteko kot niz

Zatemni LatestFile As String

Zatemni najnovejši datum kot datum

Zatemni LMD kot datum

MyPath = "C: \ Uporabniki \ Dokumenti \"

Če je desno (MyPath, 1) "\" Potem MyPath = MyPath & "\"

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

Če je Len (MyFile) = 0 Potem

MsgBox "Datoteke niso bile najdene …", vbExclamation

Zapri pod

Konec Če

Do While Len (MyFile)> 0

LMD = FileDateTime (MyPath & MyFile)

Če je LMD> Najnovejši datum

Najnovejša datoteka = Moja datoteka

Zadnji datum = LMD

Konec Če

MyFile = Dir

Zanka

Delovni zvezki. Odprite MyPath & LatestFile

End Sub

Na ta način bomo z uporabo makro kode lahko odprli najnovejšo datoteko, ki jo je shranil član ekipe.

Prenos - Kako odpreti najnovejšo datoteko v mapi - xlsm