< návrat zpět

MS Excel


Téma: Uložení souboru rss

Zaslal/a 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ěď >

#000759
Jeza.m
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.citovat
#007695
avatar
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íkcitovat

Uživatelské menu

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

Menu

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.

Aktivní diskuse

Zaokrouhlování

JoKe • 14.6. 15:19

Zaokrouhlování

Mirek-Kraus • 14.6. 13:52

excell uprava riadku vzorca

veny • 14.6. 7:52

excell uprava riadku vzorca

orangezradca • 13.6. 20:37

pomala tlac s exelu

jano5 • 12.6. 9:44

GRAF teploty

JoKe • 12.6. 9:22

Filtrování dat

Imh0tep • 12.6. 8:35