Uusimman tiedoston avaaminen kansioon Microsoft Excelissä
Jos haluat VBA -koodin, jonka avulla voit avata kansioon äskettäin tallennetun tiedoston vain napsauttamalla makropainiketta.
Kysymys): Minulla on 10 hengen tiimi ja etsin pikaisesti makroa, joka auttaa minua avaamaan viimeisimmän tiimin jäsenen tallentaman tiedoston, jotta minun ei tarvitse mennä polulle, johon tiedosto on tallennettu.
Meidän on noudatettava seuraavia vaiheita:
- Napsauta Kehittäjä -välilehteä
- Valitse koodiryhmästä Visual Basic
- Kirjoita seuraava koodi laskentataulukkomoduuliin
Vaihtoehto Selkeä
Uusin tiedosto ()
Himmennä MyPath merkkijonona
Himmennä MyFile merkkijonona
Himmennä LatestFile merkkijonona
Himmennä viimeisin päivämäärä päivämääränä
Himmennä LMD päivämääränä
Oma reitti = "C: \ Users \ Documents \"
Jos oikein (MyPath, 1) "\" Sitten MyPath = MyPath & "\"
Oma tiedosto = Dir (Oma polku & "*.xls", vbNormal)
Jos Len (MyFile) = 0 Sitten
MsgBox "Tiedostoja ei löytynyt …", vbExclamation
Lopeta Sub
Loppu Jos
Tee samalla Len (MyFile)> 0
LMD = FileDateTime (MyPath & MyFile)
Jos LMD> Viimeisin päivämäärä sitten
LatestFile = Oma tiedosto
Viimeisin päivämäärä = LMD
Loppu Jos
MyFile = Ohj
Silmukka
Työkirjat Avaa MyPath & LatestFile
End Sub
Tällä tavalla voimme makrokoodin avulla avata uusimman ryhmän jäsenen tallentaman tiedoston.
Lataa - Kuinka avata uusin tiedosto kansioon - xlsm