DVX
12.10.10,12:07
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)
marjankaj
12.10.10,10:25
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 _
DVX
12.10.10,11:44
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.
marjankaj
12.10.10,16:59
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.
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.
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.
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.
ScorpionX
22.01.13,10:29
ahoj . nemate nahodou ten vysledny subor kde uzh je nastavene automaticke zalohovanie aj s vba pri kazdom spusteni ? dakujem
DVX
22.01.13,11:10
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íš...
:rolleyes:
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íš...
:rolleyes:
ScorpionX
22.01.13,11:17
nicee :D dakujem uplne postaci ..!
ScorpionX
22.01.13,11:42
to malo zalohovat raz za mesiac ? ..ja by som potreboval raz za den
ScorpionX
22.01.13,12:30
nejde to :(
ScorpionX
30.01.13,11:24
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.Caption Then ' label1 je v bunke C4
Worksheets("nazovpracharkukdesanachdza").Label1.Caption = 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.Caption Then ' label1 je v bunke C4
Worksheets("nazovpracharkukdesanachdza").Label1.Caption = 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