Excel fájl mentése mappába

Excel fájl mentése mappába
2021-01-27T22:45:39+01:00
2021-01-28T11:26:59+01:00
2022-10-15T21:25:50+02:00
GIttyo91
Sziasztok!

Szeretnék segítséget kérni.
Excel-ben jelenleg van egy gombom SaveAs makróval, ami a holnapi nap néven elmenti a fájlt, ezt mindig át kell helyeznem a "helyére". Örülnék, ha alapból oda mentené, mert ha elúszok a munkával és kimarad a mozdulat, akkor hiába csináltam meg, mások nem találják.

Tehát van egy mappa, pl.: "közösmeghajtó/2021/január/1...31"
Ebben a január mappába van 1-től 31-ig minden napra egy mappa, mivel egy másnapi fájlt készítek elő én is és kollégáim is, ezért nekem, pl a mai napon, 27-én, a "közösmeghajtó/2021/január/28" mappába kéne mentsek, akkor ha létezik a mappa, ha nem létezik még, akkor hozzon létre neki egy 28ai mappát valamint jó lenne, ha minden nap tudná magától léptetni a számot, szóval 28-án már a 29be mentsen.
A január nem érdekel, hónap fordulónál átírom a makróban februárra és így tovább.

Remélem maradhat a kérdés, 
Próbáltam az fso-val barátkozni, de nem megy egyedül.

Köszönöm előre is a segítséget!
Mutasd a teljes hozzászólást!
Szia GIttyo91!

Egy menetben nem jön létre a mappa, almappa rendszer, azonban lépésekre bontva működik:
<!-- Természetesen a per jelek helyett visszaper jeleket kell írni.  Nem értem miért nem jelenik meg a kódszerkesztőben a visszaper -->

Sub mentés() On Error Resume Next Dim path As String path = "E:/" & Year(Now() + 1) MkDir (path) path = path & "/" & Month(Now() + 1) MkDir (path) path = path & "/" & Day(Now() + 1) MkDir (path) ActiveWorkbook.SaveAs Filename:="E:/" & Year(Now() + 1) & "/" & Month(Now() + 1) & "/" & Day(Now() + 1) & "\20210129.xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub
Nyilván a hónap mappáknak kis átalakítással (Select Case) lehet betűvel kiírt nevet is adni.  Azonban úgy visszamenőleg kevésbé lesz átlátható a mappa rendszer, mert a naptári hónapok - mint tudjuk  - nem abc rendben követik egymást. (április - augusztus - december- február - ... - október - szeptember. Meglehetősen zavaros!)
Viszont, ha meghagyod ebben a formában, akkor a hónap- és évfordulókat sem kell kézzel átírnod. :)

üdvözlettel
verax
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd