< návrat zpět

MS Excel


Téma: Uložení listu makrem rss

Zaslal/a 1.4.2017 17:08

Zdravím Vás,
chtěl bych poprosit o radu. Vymýšlím makro, kterým chci ukládat jeden určitý list na kterém budu mít tlačítko na uložení. Buňky na listu obsahují funkce ale já bych potřeboval aby se mi do nového souboru uložily pouze hodnoty bez vzorců. Původní soubor musí zůstat se vzorci. Děkuji

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#035895
elninoslov
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í...
Příloha: zip35895_uloz-list-bez-vzorcov.zip (21kB, staženo 41x)
citovat
#035896
avatar
Z 10ti pokusů mi Excel spadnul jednou, jinak to jede bez problémů. Mockrát děkujicitovat
#035897
elninoslov
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
#035898
avatar
elnino, to není v kódu, ale v Excelu. U mě (E2010) to jede v pohodě ...
Možná zkus Filename i s příponou ...citovat
#035899
elninoslov
Á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
#035900
elninoslov
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 5
Příloha: zip35900_uloz-list-bez-vzorcov-2.zip (23kB, staženo 39x)
citovat
#035903
avatar
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
#035904
elninoslov
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.citovat
icon #035905
eLCHa
@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
#035913
avatar
Ne ne elnino. Testoval jsem původní rutinu. Chtěl jsem znovu dosáhnout chybového stavu, lépe ho zmapovat.
Ale už se mi to nepodařilo, všechno pořád OK.
Domnívám se, že těmi operacemi "Copy" a "Save" došlo k přepsáni některých paměťového sektorů a následně k Fatal Error. Nevím, tipuji. Jak říkám W7 i MSOff2010 mám celkem stabilní, snad protože mám zakázané aktualizace. Mám pocit, že 99% těch záplat jsou jen kraviny. Raději jednou za čas(2-3 roky), když mám pocit zpomalení Compu, reinstaluji s dostupnými, vyladěnými(snad) balíky.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje