Příspěvky uživatele


< návrat zpět

Uložení souboru (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


Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje