Ještě by mě zajímala jedna věc...kopírovaný list je plný funkcí, potřeboval bych kopírovat pouze hodnoty, tak aby zůstalo formátování, je to možné? Díky
Omlouvám se za "export LISTU".
Funguje, super...díky moc!!
Rejpal napsal/a:
Ahoj, koukni sem:
https://office.lasakovi.com/excel/vba-soubory/excel-vba-vytvorit-smazat-adresar/
https://office.lasakovi.com/excel/vba-soubory/SaveAs-metoda-ulozit-jako/
Ahoj všem, můžete mi poradit? Potřeboval bych vytvořit složku dle názvu určité buňky a do vytvořené složky následně vyexportovat sešit se stejným názvem.
A nejlépe pokud bude již složka existovat, aby ji to nebralo v potaz. Díky
FJmeno = Sheets("Neshoda").Range("D2").Text
FSlozka = Sheets("Neshoda").Range("D2").Text
MkDir "D:\N - Neshody\" & a & FSlozka
Sheets("Formulář").Visible = True
Sheets("Formulář").Select
ActiveSheet.Copy
ActiveWorkbook.SaveCopyAs Filename:="D:\????????????????????????????"
ActiveWorkbook.Close (False)
Sheets("Formulář").Visible = False
Sheets("Neshoda").Select
i = MsgBox("Uložení do složky neshod dokončeno", vbOKOnly + vbInformation, "INFO")
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.