Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
`` `VBA
Sub SaveAndCreateNewweeklyworkbook ()
Dim WB ako zošit
Dim NewWB ako zošit
Dim strfilename ako reťazec
Dim StrFilepath ako reťazec
Stlmte DT ako dátum
„Získajte aktuálny zošit
SET WB =ThisWorkbook
„Získajte aktuálny dátum
DT =dátum
„Vypočítajte dátum začiatku aktuálneho týždňa (nedeľa)
dt =dt - týždenný deň (dt, vbsunday) + 1
„Formátujte dátum názvu súboru (YYYY-MM-DD)
StrFileName =Format (DT, „Yyyy-Mm-dd“) a „inerve.xlsx“
'Zadajte cestu súboru (zmeňte to na požadované umiestnenie)
StrFilePath ="C:\ Your \ File \ Path \" '<--- Zmeňte to na svoju požadovanú cestu
„Celá cesta súborov
StrFilepath =StrFilePath &StrFileName
„Uložte aktuálny zošit
Pri chybovom pokračovaní ďalej „Zoznámte sa s potenciálnymi chybami počas uloženia
wb.Saveas filename:=strfilelepath, fileFormat:=xloPenxmlworkbook
Ak err.Number <> 0 potom
Msgbox „CHRYBA SASING CORKBOOK:“ a err.description, vBcritical
Výstupný
Skončiť
Na chybu goto 0
„Vytvorte nový zošit
Set newWB =workbooks.add
„Uložte nový zošit s rovnakou cestou súboru, ale iným dátumom
dt =dt + 7 'budúci týždeň dátum
StrFileName =Format (DT, „Yyyy-Mm-dd“) a „inerve.xlsx“
StrFilePath ="C:\ Your \ File \ Path \" &strfilename '<--- Zmeňte to na požadovanú cestu
Pokiaľ ide o chybu, pokračujte ďalej
newwb.Saveas fileName:=StrFilePath, FileFormat:=XLopenxmlWorkbook
Ak err.Number <> 0 potom
MSGbox „Chyba Vytváranie nového zošita:“ a err.description, vBcritical
newwb.close savEchanges:=false 'Close bez uloženia, ak dôjde k chybe
Výstupný
Skončiť
Na chybu goto 0
'Voliteľné:Pridajte políčko správy na potvrdenie dokončenia.
MSGBOX „Uložený zošit a vytvorený nový týždenný zošit“., VBInformation
Koncový
`` `
Pred behom:
1. Zmena `" c:\ your \ file \ path \ "`: Absolútne zásadný Ak chcete tento zástupný symbol nahradiť skutočnou cestou priečinka, kde chcete uložiť súbory Excel. Nesprávne cesty povedú k chybám. Uistite sa, že priečinok existuje.
2. Otvorená editor VBA: V programe Excel stlačte Alt + F11 a otvorte editor VBA.
3. Vložte modul: V editore VBA prejdite na vloženie> modul.
4. prilepte kód: Vložte celý kód do modulu.
5. Spustite makro: Vráťte sa späť do programu Excel a spustite makro (možno ho budete musieť priradiť k tlačidlu alebo ho spustiť z karty vývojára> makrá).
Ako to funguje:
* uloží aktuálny zošit: Kód najskôr uloží aktívny zošit pomocou názvu súboru na základe dátumu začiatku aktuálneho týždňa (nedeľa).
* Vytvára nový zošit: Potom pridá nový, prázdny zošit.
* mená a ukladá nový zošit: Nový zošit je uložený s názvom súboru na základe dátumu počiatku * nasledujúceho * týždňa.
* Manipulácia s chybami: Vyhlásenia `On chybové pokračovanie a príkazy na kontrolu chýb bránia zlyhaniu makra, ak existujú problémy s ukladaním súborov (napr. Nedostatočné povolenia, súbor už existuje). Poskytuje informatívne chybové správy.
* Formát súboru: `XLOPENXMLWORKBOOK` zaisťuje kompatibilitu s modernými verziami Excel (.xlsx).
Nezabudnite pravidelne zálohovať svoje údaje, pretože automatizované procesy sa niekedy môžu stretnúť s neočakávanými problémami. Pred použitím s dôležitými údajmi dôkladne otestujte toto makro na vzorkovom súbore.