Příspěvky uživatele
< návrat zpět
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
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články