< návrat zpět
MS Excel
Téma: Uložení souboru 
Zaslal/a rhalas 6.10.2009 14:12
Ahoj, mam nasledujici akci pro tlacitko, ktere po zmacknuti ulozi soubor do predem definovaneho adresare na siti a vse funguje.
Nechci ale, aby se mi pak excel prepnul do toho NOVE vytvoreneho souboru s novym jmenem, chci aby zustal v tom zdrojovem souboru. Kdyby nekdo vedel, tak dik yza odpoved..
Private Sub CommandButton1_Click()
Dim Adresa, Jmeno_souboru, Ulozit_jako As String
Dim Den, Mesic, Rok, Hodina, Minuta, Sekunda As Integer
Den = Day(Now())
Mesic = Month(Now())
Rok = Year(Now())
Hodina = Hour(Now())
Minuta = Minute(Now())
Sekunda = Second(Now())
Adresa = "c:\reporty\"
Jmeno_souboru = "Report z " & Den & "-" & Mesic & "-" & Rok & " " & Hodina & "-" & Minuta & "-" & Sekunda
Ulozit_jako = Adresa & Jmeno_souboru
'MsgBox Ulozit_jako
On Error GoTo 1 ' zachytí Error (chybu) a přejde na odkaz 1
ActiveWorkbook.SaveAs Filename:=Ulozit_jako _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Hlaseni = MsgBox("Soubor:" & vbCrLf & vbCrLf & Jmeno_souboru & vbCrLf & vbCrLf & "byl uložen na adrese:" & vbCrLf & vbCrLf & Adresa, vbInformation + vbOKOnly, "Soubor byl uložen ...")
Exit Sub
1: Hlaseni = MsgBox("Adresář " & vbCrLf & vbCrLf & Adresa & vbCrLf & vbCrLf & "neexistuje !!!" & vbCrLf & vbCrLf & "Musíte jej vytvořit !!!", vbCritical + vbOKOnly, "Chybí adresář ...")
End Sub
Jeza.m(7.10.2009 19:15)#000759 
Ahoj, napadají mě jen 2 možnosti jak to obejít.
1) Uložit sám sebe a pak se zkopírovat do daného umístění, přičemž sám zůstane pořád otevřený. Problém je, že zdrojový soubor se bude přepisovat, což nevím jestli nežádoucí.
2) Před "Save as" si do proměnné uložit cestu sám k sobě. Provést uložit jako, otevřít zdrojový soubor z adresy z proměnné a nově uložený soubor zavřít.
citovatSkoky(19.3.2012 13:35)#007695 
Ahoj měl bych k tomu kodu na uložení jeden dotaz. Jak udělat aby se mi do nově vygenerovaného souboru přenesl ze toho zdrojového pouze např. List2?
Dík
citovat
RSS nejnovější články