MS Excel

Skúste niečo podobné. Poriadne to otestujte, napr. 10x stlačte na striedačku na listoch tlačítko. Mne totiž bez dôvodu padá Excel. Tak neviem, či je príčinou aj v tomto prípade len môj Excel, alebo je chybný kód. Nemám možnosť skúšky na inom PC, a nič som nevidedukoval, lebo je to nepravidelné. Šľak ma z toho E2016 trafí...citovat

V tom prípade to vôbec "nejede bez problémů". Skúsim na ešte neskôr možno pozrieť. Inak poprosím skúsenejších, či nemajú typ, prečo to nepravidelne padá.
Skúsil som pridať
DoEvents
na toto miesto
...
wbCiel.SaveAs Filename:=ThisWorkbook.Path & "\" & shCiel.Name, FileFormat:=xlOpenXMLWorkbook
DoEvents
wbCiel.Close
...
bez úspechu. Vypozoroval som ale jednu vec. Akonáhle popri tomto súbore otvorím uložené XLSX, a len ho zavriem. V 100% prípadoch spadne celý Excel, keď následne kliknem na tlačítko.
Padá to na
shZdroj.Copy

EDIT:
Nepomáha ani výmena za
...
Set wbCiel = Workbooks.Add
shZdroj.Copy Before:=wbCiel.Worksheets(1)
wbCiel.Worksheets(Evaluate("=ROW(A2:A" & wbCiel.Worksheets.Count & ")")).Delete
...citovat

Áno to som samozrejme skúšal, nemá to na to vplyv. Vlastne príponu som tam mal najskôr, bez prípony som to skúšal až potom, a nahral sem. Popravde to už asi vzdávam. Ak si zadáte do googlu podobný výraz "excel error vba copy sheet" a prejdete si 20 diskusných fór, zistíte, že to je veľký problém, a žiadne "riešenie" nieje funkčné. Tým "funkčné" myslím, že by pomohlo globálne. Niekomu napr. pomôže debilná rada priamo od MS, že súbor priebežne ukladať každých X použití metódy Copy. Nič nepomáha. Jediné čo som ešte neskúšal, je vytvorenie novej inštancie Excelu.

Zadávateľovi by som teda odporučil ešte ukladať zdrojový súbor pred Copy.
ThisWorkbook.Savecitovat

Pointa!
Včera jsem se tu chvástal, že "U mě (E2010) to jede v pohodě ...".
Ano, testoval jsem tvůj kód cca 10x a všechno opravdu v pohodě.
Jenže jsem měl u toho otevřený svůj projekt a ještě 2 hodiny po testování jsem ťukal v Editoru VBA svoje věci. No a ejhle! Při zavírání sešitu na mě vyskočil bubák: "Fatální selhání systému blebleble!", dvě hodiny práce fuč. Nejsem zvyklý, aby mi MŮJ EXCEL zhavaroval. Snad i proto, že mám zakázané automatické aktualizace! Nevadí. Dnes jsem se pokoušel nasimulovat stejnou situaci, ale už se mi to nepodařilo.
Takže můžu opět říct, že "U mě (E2010) to jede v pohodě ...".
Všem Excelákům držím palce!citovat

@elninoslov
Jak to čtu, je možné, že máte stejný problém jako já.
V tom případě nepomohlo ani to,co navrhujete v posledním příspěvku.
Viz mé vlákno o aktualizaci. Zkuste odinstalovat březnové aktualizace. U mne pomohlo.citovat