Příspěvky uživatele
< návrat zpět
Vyskúšajte aj filter rušiť inak (viď príklad). Toto minimakro nebude asi jediné vzhľadom na neexistujúce makro na tlačítku.
A čo tých cca 1000 definovaných názvov a 200 prepojení (alebo koľko tam toho máte) ? To všetko je tam potrebné ?
Veľkosť bude narastať možno aj kvôli "prázdnym" riadkom a stĺpcom, ktoré často ostávajú v listoch, ale nie sú úplne dealokované. Ak máte napr posledný používaný riadok 50, vľavo-hore kde je názov bunky/oblasti napíšte 51:1048576, označia sa úplne všetky riadky dole, pklik na ušká (čísla) riadkov - Odstrániť. To isté stĺpce napr. AA:XFD, a všetko pre všetky listy. Keď súbor potom uložíte, uvidíte, či máte nejakú úsporu veľkosti.
Po každom
Set ws = Sheets(nazev)
by na konci malo nasledovať uvoľnenie pamäti
Set ws = Nothing
Skúste to teda niekam upnúť, nech to skúsime na x64...
Skúsil som to aj pre Office 2016 Pro x64, no škoda, nepodarilo sa mi pomocou tohto opraviť pády. Nainštalovať odtiaľ môžem iba KB3178673. Ostatné buď nieje určené pre 2016, alebo treba pridať to tlačítko do Office, no to sa mi nepodarilo ani pomocou Deployment Tool, ani gpedit, a samotný WinUpdate to nenájde (s povolenými aktualizáciami ďalších MS produktov). Počkám na nejakú automatickú KB, nechce sa mi pátrať hlbšie...
Výsledok (?):
Žiadne púšťanie sa do veľkých projektov, ukladať čo 5 min :)
Niektoré z nich mám nainštalované aj 5x. Rovnaký názov aj číslo.
Toto je zoznam mojich aktualizácií za Marec (Březen). Viete, ktoré treba killovať ? Či všetky ?
Windows 10 x64 SK Pro / Office 2016 Pro x64
Zoznam z "Nastavenie PC":
29.3.2017
Aktualizácia systému Windows 10 Version 1607 pre systémy s procesorom x64 (KB4017100)
Kumulatívna aktualizácia pre Windows 10 Version 1607 pre systémy s procesorom typu x64 (KB4015438)
17.3.2017
Aktualizácia systému Windows 10 Version 1607 pre systémy s procesorom x64 (KB3150513)
16.3.2017
Aktualizácia zabezpečenia pre produkt Skype for Business 2016 (KB3178656) 64-bitové vydanie
Aktualizácia zabezpečenia pre produkt Microsoft Excel 2016 (KB3178673) 64-bitové vydanie
Aktualizácia zabezpečenia pre produkt Microsoft Word 2016 (KB3178674) 64-bitové vydanie
Nástroj na odstránenie škodlivého softvéru systému Windows pre systémy Windows 8, 8.1,10 a 64-bitové vydania systémov Windows Server 2012, 2012 R2, 2016 - marec 2017 (KB890830)
Aktualizácia systému Windows 10 Version 1607 pre systémy s procesorom x64 (KB4013418)
Kumulatívna aktualizácia pre Windows 10 Version 1607 pre systémy s procesorom typu x64 (KB4013429)
Aktualizácia zabezpečenia programu Adobe Flash Player v systéme Windows 10 Version 1607 pre systémy s procesorom x64 (KB4014329)
8.3.2017
Aktualizácia pre produkt Microsoft Access 2016 (KB3128054) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Visio 2016 (KB3178654) 64-bitové vydanie
Aktualizácia pre produkt Microsoft OneDrive for Business (KB3141458) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Publisher 2016 (KB3128047) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3141452) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3178663) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3178655) 64-bitové vydanie
Aktualizácia pre produkt Microsoft PowerPoint 2016 (KB3178657) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Project 2016 (KB3178669) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3178661) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3178660) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3178668) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3127991) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3141504) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3114389) 64-bitové vydanie
Aktualizácia pre produkt Microsoft OneNote 2016 (KB3141512) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3128052) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Office 2016 (KB3141509) 64-bitové vydanie
Aktualizácia pre produkt Microsoft Outlook 2016 (KB3141511) 64-bitové vydanie
Aktualizácia pre produkt Skype for Business 2016 (KB3141501) 64-bitové vydanie
Microsoft - WPD - 2/22/201612:00:00 AM - 5.2.5326.4762
Nástroj na odstránenie škodlivého softvéru systému Windows pre systémy Windows 8, 8.1,10 a 64-bitové vydania systémov Windows Server 2012, 2012 R2, 2016 - február 2017 (KB890830)
Zoznam z "Ovládací panel":
Office 8.3.2017
Update for Microsoft Publisher 2016 (KB3128047) 64-Bit Edition
Update for Microsoft Office 2016 (KB3141509) 64-Bit Edition
Update for Microsoft Office 2016 (KB3141509) 64-Bit Edition
Update for Microsoft Office 2016 (KB3141509) 64-Bit Edition
Update for Microsoft Office 2016 (KB3141509) 64-Bit Edition
Update for Microsoft Office 2016 (KB3141509) 64-Bit Edition
Security Update for Microsoft Office 2016 (KB3085635) 64-Bit Edition
Update for Microsoft Office 2016 (KB3128052) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178661) 64-Bit Edition
Update for Microsoft OneNote 2016 (KB3141512) 64-Bit Edition
Update for Microsoft OneDrivefor Business (KB3141458) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178661) 64-Bit Edition
Update for Microsoft OneDrivefor Business (KB3141458) 64-Bit Edition
Office 16.3.2017
Update for Microsoft Office 2016 (KB3115141) 64-Bit Edition
Security Update for Microsoft Office 2016 (KB3115135) 64-Bit Edition
Update for Microsoft Office 2016 (KB3128052) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178655) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178661) 64-Bit Edition
Update for Microsoft OneDrivefor Business (KB3141458) 64-Bit Edition
Update for Microsoft Office 2016 (KB3127990) 64-Bit Edition Definition
Update for Microsoft Office 2016 (KB3115407) 64-Bit Edition
Update for Microsoft Office 2016 (KB3115276) 64-Bit Edition
Update for Microsoft Office 2016 (KB2920684) 64-Bit Edition
Update for Microsoft Office 2016 (KB3141452) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178663) 64-Bit Edition
Security Update for Microsoft Office 2016 (KB3085538) 64-Bit Edition
Update for Microsoft Office 2016 (KB3115100) 64-Bit Edition
Update for Microsoft Outlook 2016 (KB3141511) 64-Bit Edition
Security Update for Microsoft Excel 2016 (KB3178673) 64-Bit Edition
Update for Microsoft Office 2016 (KB3115081) 64-Bit Edition
Update for Microsoft Office 2016 (KB3118262) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178660) 64-Bit Edition
Update for Microsoft Office 2016 (KB2920720) 64-Bit Edition
Update for Microsoft Office 2016 (KB2910954) 64-Bit Edition
Security Update for Microsoft Word 2016 (KB3178674) 64-Bit Edition
Update for Microsoft Office 2016 (KB3114903) 64-Bit Edition
Update for Microsoft OneNote 2016 (KB3141512) 64-Bit Edition
Update for Microsoft Office 2016 (KB3118263) 64-Bit Edition
Update for Microsoft Office 2016 (KB3127991) 64-Bit Edition
Update for Microsoft Visio 2016 (KB3178654) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178668) 64-Bit Edition
Update for Microsoft Access 2016 (KB3128054) 64-Bit Edition
Update for Microsoft Project 2016 (KB3178669) 64-Bit Edition
Update for Microsoft Office 2016 (KB2920712) 64-Bit Edition
Update for Microsoft Office 2016 (KB2920724) 64-Bit Edition
Update for Microsoft Office 2016 (KB2910970) 64-Bit Edition
Update for Microsoft Office 2016 (KB3114709) 64-Bit Edition
Update for Microsoft Office 2016 (KB3118264) 64-Bit Edition
Update for Microsoft Office 2016 (KB3141509) 64-Bit Edition
Update for Microsoft Office 2016 (KB3115497) 64-Bit Edition
Update for Microsoft Office 2016 (KB3128056) 64-Bit Edition
Update for Microsoft Office 2016 (KB3114389) 64-Bit Edition
Security Update for Skype for Business 2016 (KB3178656) 64-Bit Edition
Update for Microsoft Office 2016 (KB2920678) 64-Bit Edition
Update for Microsoft Office 2016 (KB3141504) 64-Bit Edition
Update for Microsoft Publisher 2016 (KB3128047) 64-Bit Edition
Update for Microsoft PowerPoint 2016 (KB3178657) 64-Bit Edition
Security Update for Microsoft Excel 2016 (KB3178673) 64-Bit Edition
Update for Microsoft Office 2016 (KB3115497) 64-Bit Edition
Security Update for Microsoft Excel 2016 (KB3178673) 64-Bit Edition
Update for Microsoft PowerPoint 2016 (KB3178657) 64-Bit Edition
Update for Microsoft Outlook 2016 (KB3141511) 64-Bit Edition
Security Update for Microsoft Word 2016 (KB3178674) 64-Bit Edition
Security Update for Microsoft Excel 2016 (KB3178673) 64-Bit Edition
Security Update for Microsoft Word 2016 (KB3178674) 64-Bit Edition
Update for Microsoft Office 2016 (KB3128052) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178661) 64-Bit Edition
Update for Microsoft OneDrivefor Business (KB3141458) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178663) 64-Bit Edition
Security Update for Microsoft Office 2016 (KB3085538) 64-Bit Edition
Security Update for Microsoft Excel 2016 (KB3178673) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178660) 64-Bit Edition
Security Update for Microsoft Word 2016 (KB3178674) 64-Bit Edition
Update for Microsoft OneNote 2016 (KB3141512) 64-Bit Edition
Update for Microsoft Office 2016 (KB3127991) 64-Bit Edition
Update for Microsoft Visio 2016 (KB3178654) 64-Bit Edition
Update for Microsoft Office 2016 (KB3178668) 64-Bit Edition
Update for Microsoft Access 2016 (KB3128054) 64-Bit Edition
Update for Microsoft Project 2016 (KB3178669) 64-Bit Edition
Update for Microsoft Office 2016 (KB2910970) 64-Bit Edition
Security Update for Skype for Business 2016 (KB3115408) 64-Bit Edition
Update for Microsoft Office 2016 (KB2920678) 64-Bit Edition
Update for Microsoft Office 2016 (KB3141504) 64-Bit Edition
Update for Microsoft Publisher 2016 (KB3128047) 64-Bit Edition
Update for Microsoft PowerPoint 2016 (KB3178657) 64-Bit Edition
Security Update for Microsoft Word 2016 (KB3178674) 64-Bit Edition
Security Update for Skype for Business 2016 (KB3178656) 64-Bit Edition
Windows 16.3.2017
Aktualizácia pre Microsoft Windows (KB4013418)
Windows 29.3.2017
Aktualizácia pre Microsoft Windows (KB4017100)
Aktualizácia pre Microsoft Windows (KB4015438)
To ma mrzí, že ste aj Vy prišiel o svoje veci. Ja tiež. Ŝkoda že stále platí "Každý dobrý skutok, musí byť po zásluhe potrestaný".
Testoval ste teda ten posledný návrh s novou inštanciou Excelu a vravite KO? Tak to je blbé. Mne sa sice chybu nepodarilo nasimulovať, a prd z toho, chyba pride vždy, len ten nevhodný okamžik mepoznáme.
Mal by som predsa ešte jeden návrh. Nekopírovať list, ale uložit kópiu súboru, tú otvoriť, vykuchať,uložiť. To by mohlo byť OK, nieje tam žiadne Copy.
Problémy, ktoré dokáže narobiť aktualizácia W10 a celkovo nový aktualizačný systém, teda aj na Office, drivery a pod, riešim neustále. Kolabsy OS sú docela bežné. Nový aktualizačný systém ale zámerne (?) kurví aj W7. Vysvetľujem to ľudom tak, že Win10 sa snaží byť "autonómny systém" - teda rozhodovať sám. No a v tom je práve ten pudel zakopaný. A to sa teším na jarnú inováciu Creators Update. To bude zase telefónátov ...
Súcítim s Vami.
Skúste toto. Môj posledný pokus, a vyčerpal som všetky svoje nápady. Je to teda cez novú inštanciu Excelu, a zdá sa, že to nepadá, a nieje to až také zlé s rýchlosťou. Treba otestovať...
Dobrú noc 
Á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.Save
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
...
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í...
Presne tak, lebo nieje možné ulož kópiu ako iný formát. Preto sa to trošku komplikuje, ale vyriešiť sa to dá.
PS: Module2 si samozrejme nevšímajte, to je nahrané makro, nepotrebné, môžete zmazať.
Pre otvorenie XLSX na Office 2003 treba doinštalovať na všetkych PC s Office 2003 balíček kompatibility.
Ak chcete uložiť kópiu XLSM ako XLS ale bez makra, napadá ma, uložiť kópiu ako XLSX, tú otvoriť a uložiť ako XLS. Bude z toho XLS bez makra.
Skúsil som, ale fakt nemám šajn, čo máte na mysli.
Skúste zatiaľ to čo som spomenul vo vedľajšom vlákne.
Môže to byť aj nejaká aktualizácia Office...
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články