Zavrieť
Upraviť
Hlavné
- Auto Moto [x]
- Cestovanie [x]
- Deti [x]
- Domácnosť [x]
- Elektronika [x]
- Foto [x]
- Hoby [x]
- Hudba [x]
- Iné [x]
- Kaviareň Porady [x]
- Kultúra [x]
- Mobily a Tablety [x]
- Móda [x]
- Mzdy a personalistika [x]
- Neziskové organizácie [x]
- Počítače [x]
- Podnikanie [x]
- Porada (o stránke Porada) [x]
- Právo [x]
- Recenzie [x]
- Recepty [x]
- Software [x]
- Stavba [x]
- Šport [x]
- Účtovníctvo a dane [x]
- Vzdelávanie [x]
- Záhrada [x]
- Zdravie [x]
- Zvieratá [x]
Otázku
Pravidlá
Položte novú otázku, ak:
- Potrebujete odpoveď (na diskusiu slúžia Debaty).
- Ste nenašli odpoveď cez vyhľadávanie
Tip
Pravidlá a tipy
Vaše rady, tipy a vedomosti!
Tip môžete napísať stručne ale môže ísť aj o dlhší článok.
Ak chcete zdieľať cudzí článok, zdieľajte link.
Tip môžete napísať stručne ale môže ísť aj o dlhší článok.
Ak chcete zdieľať cudzí článok, zdieľajte link.
Zdieľaj link
Pravidlá a tipy
Zdieľajte s nami link na články z iných webov.
Komentáre k linku budú zoradené podľa počtu hlasov,
môžete využiť aj filter komentárov a zobraziť
len komentáre od členov ktorých na Porade sledujete.
Komentáre k linku budú zoradené podľa počtu hlasov,
môžete využiť aj filter komentárov a zobraziť
len komentáre od členov ktorých na Porade sledujete.
Sledovať
Excel VBA - nazov ukladaneho suboru s premennou (datum)
Dobrýdeň.
Narazil som v exceli na komplikáciu kedy chcem ukladat súbor pre záložné účely s dátumom v názve.
Týmto sposobom:
ThisWorkbook.SaveAs "C:\Zaloha.xlsm"
ale v názve by som chcel dátum napr. Zaloha(30.9.2010).xlsm
A tu mam problem pretože ked napíšem ThisWorkbook.SaveAs "C:\Zaloha&Date.xlsm" tak to neberie.
Poradí mi niekto ako sa dá pri ukladaní zlúčiť názov súboru (Zaloha) s premennou (Date ale može byt aj iná premenná) do jedného názvu ?
Už som čítal že býva problém s formátom dátumu ked dáva Win lomítka (tie nie su povolene v nazve suboru) ale mne dava bodky a to vyhovuje.
Len neviem príst na to ako to spojit do jedného názvu...
Nefunguje niečo ako odkaz na premennú >> .SaveAs "C:\Zaloha%.xlsm", Date ?
Také niečo sa používalo v C++...(že sa doplnilo date za nazov Zaloha)
Narazil som v exceli na komplikáciu kedy chcem ukladat súbor pre záložné účely s dátumom v názve.
Týmto sposobom:
ThisWorkbook.SaveAs "C:\Zaloha.xlsm"
ale v názve by som chcel dátum napr. Zaloha(30.9.2010).xlsm
A tu mam problem pretože ked napíšem ThisWorkbook.SaveAs "C:\Zaloha&Date.xlsm" tak to neberie.
Poradí mi niekto ako sa dá pri ukladaní zlúčiť názov súboru (Zaloha) s premennou (Date ale može byt aj iná premenná) do jedného názvu ?
Už som čítal že býva problém s formátom dátumu ked dáva Win lomítka (tie nie su povolene v nazve suboru) ale mne dava bodky a to vyhovuje.
Len neviem príst na to ako to spojit do jedného názvu...
Nefunguje niečo ako odkaz na premennú >> .SaveAs "C:\Zaloha%.xlsm", Date ?
Také niečo sa používalo v C++...(že sa doplnilo date za nazov Zaloha)
- Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
- Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
- Odpoveď má byť viac o faktoch ako o názoroch.
Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
❤ Buďte priateľskí ❤
Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!
Usporiadať podľa času 
Tie parametre si môžeš prispôsobiť. Najlepšie tak, že si dáš nahrávať makro a potom si to uprav o ten dátum. Ja mám iba Excel 2003, tak som to nemohol urobiť pre excel 2007.
Skús toto. Daj si to do makra.
ActiveWorkbook.SaveAs Filename:= _
"C:\Záloha(" & Date & ").xls", FileFormat:=xlNormal, Password:="" _
, WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False _
ActiveWorkbook.SaveAs Filename:= _
"C:\Záloha(" & Date & ").xls", FileFormat:=xlNormal, Password:="" _
, WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False _
Ano SUPER funguje.
Ešte som to urobil takto : ... \Záloha(" & Date & ").xlsm", FileFormat:=52, ...
aby mi to uložilo komplet dokument aj s vba ...
Ďakujem za radu marjankaj.
Ešte som to urobil takto : ... \Záloha(" & Date & ").xlsm", FileFormat:=52, ...
aby mi to uložilo komplet dokument aj s vba ...
Ďakujem za radu marjankaj.
DVX 
ahoj . nemate nahodou ten vysledny subor kde uzh je nastavene automaticke zalohovanie aj s vba pri kazdom spusteni ? dakujem
Ahoj...
to by bolo ťažké hľadanie pretože to je veľmi obsiahly súbor ...
Vytiahol som proceduru ktorou som to robil - jej gro zbytok si už doladíš...
to by bolo ťažké hľadanie pretože to je veľmi obsiahly súbor ...
Vytiahol som proceduru ktorou som to robil - jej gro zbytok si už doladíš...
-
Zošit1.zip
(17.9 KB, 28 videní)
dakujem uplne postaci ..!
jj ide to : napriklad takto
Dim Dnes As String
Dim Mesiac As Integer
Private Sub Workbook_Open()
Dnes = Date
Mesiac = Month(Date)
If Dnes <> Worksheets("nazovpracharkukdesanachdza").Label1.Ca ption Then ' label1 je v bunke C4
Worksheets("nazovpracharkukdesanachdza").Label1.Ca ption = Date
Save
If Dir("C:\Zaloha " & Mesiac & "\", vbDirectory) = "" Then
rspCreate = MsgBox("Directory doesn't exist, do you wish to create it?", vbYesNo)
If rspCreate = vbYes Then
MkDir "C:\Zaloha " & Mesiac & "\"
End If
End If
'....
ActiveWorkbook.SaveAs Filename:="C:\Zaloha " & Mesiac & "\testA(" & Date & ").xlsm", FileFormat:=52, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
MsgBox "Ďakujeme, práve ste vytvorili zálohu pre účely zabezpečenia údajov. "
Application.DisplayAlerts = False
Application.Quit
End If
End Sub
Dim Dnes As String
Dim Mesiac As Integer
Private Sub Workbook_Open()
Dnes = Date
Mesiac = Month(Date)
If Dnes <> Worksheets("nazovpracharkukdesanachdza").Label1.Ca ption Then ' label1 je v bunke C4
Worksheets("nazovpracharkukdesanachdza").Label1.Ca ption = Date
Save
If Dir("C:\Zaloha " & Mesiac & "\", vbDirectory) = "" Then
rspCreate = MsgBox("Directory doesn't exist, do you wish to create it?", vbYesNo)
If rspCreate = vbYes Then
MkDir "C:\Zaloha " & Mesiac & "\"
End If
End If
'....
ActiveWorkbook.SaveAs Filename:="C:\Zaloha " & Mesiac & "\testA(" & Date & ").xlsm", FileFormat:=52, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
MsgBox "Ďakujeme, práve ste vytvorili zálohu pre účely zabezpečenia údajov. "
Application.DisplayAlerts = False
Application.Quit
End If
End Sub
Excel VBA - nazov ukladaneho suboru s premennou (datum)
Vieš, kto pozná odpoveď?
Porady, ktoré by vás mohli zaujímať
Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.32
Odpovedáte na otázku?
Zoznámte sa s novými pravidlami.Áno, poznám odpoveď.
Každý môže napísať 1 odpoveď, neskôr ju môže vylepšiť. Pokračovať v odpovedi
Nie, chcem sa ešte spýtať na upresnenie otázky.
Upresnenie si vyžiadajte v komentári otázky (nájdete pod otázkou). Vyžiadať upresnenie
Copyright © PORADA.sk, s.r.o. - žiadna časť stránky nemôže byť rozširovaná, alebo reprodukovaná bez predchádzajúceho súhlasu
