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

Zaslat odpověď >

Jeza.m(7.10.2009 19:15)citovat#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.

Skoky(19.3.2012 13:35)citovat#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

Uživatelské menu

Nejste přihlášen(a)

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.