Zaslal/a dizcz 19.11.2018 11:46
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")
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/
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.