< návrat zpět

MS Excel


Téma: Uložení více listů ze sešitu do nového souboru rss

Zaslal/a 27.5.2020 14:11

Dobrý den,

poradí prosím někdo, jakým způsobem uložit více listů do samostatného souboru?

Uložit celý sešit do nového souboru není problém (viz příloha), ale nevím si rady s uložením vybraných listů (např. list "faktura" a "doprava"). Případné vzorce by měly zůstat zachovány, nechci kopírovat jen hodnoty.

Příkazem Sheets(Array("faktura", "doprava")).Copy jsem schopen vytvořit nový soubor pouze s těmito listy, ale bohužel jsem nepřišel na to, jak tento nový soubor uložit (název by měl být vytvořen stejným způsobem, jak je uvedeno v příloze tzn. název "sample_" + text z buňky A1 na listu faktura).

Díky moc

Miroslav

Příloha: zip46715_ukladani.zip (20kB, staženo 20x)
Zaslat odpověď >

#046717
elninoslov
Zatiaľ bez kontroly existencie adresára, predošlého súboru s rovnakým názvom, bez odchytu chyby pri uložení, a so zatvorením na konci. Je potrebné aby bol nový tiež XLSM?
Private Sub CommandButton1_Click()
Dim Jmeno As String, Cesta As String

Cesta = "C:\pokus\"
Jmeno = "sample_" & Worksheets("faktura").Range("A1").Value & ".xlsm"
Application.ScreenUpdating = False
Worksheets(Array("faktura", "doprava")).Copy
ActiveWorkbook.SaveAs Filename:=Cesta & Jmeno, FileFormat:=xlOpenXMLWorkbookMacroEnabled
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub

EDIT: Odstránil som jedno ".xlsm" z názvu súboru, bolo tam omylom 2x :)citovat
#046726
avatar
Díky moc, funguje skvěle. Existenci daného adresáře si ošetřím. Co se týče existence souboru o stejném názvu, nabídne excel sám možnost přepisu stávajícího souboru.

Problem solved

ještě jednou díkycitovat

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

nezavre samo outlock

€Ł мσşqμΐτσ • 24.7. 9:01

kopirovanie s predosleho mesiaca

€Ł мσşqμΐτσ • 24.7. 8:49

automaticky generator VBA

Michalko • 23.7. 20:32

kopirovanie s predosleho mesiaca

ivana1 • 23.7. 19:25

nezavre samo outlock

peter2 • 23.7. 18:59

upozornění na již existující soubor

Kalous • 23.7. 17:41

Porovnání dat a doplnění.

lachis • 23.7. 12:39