Příspěvky uživatele

Á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...

Je tam použitý ProgressBar doplnok, a komu sa nechce inštalovať MSCOMCTL.OCX, môže použiť túto náhradu priebehu pomocou Labelu a TextBoxov.

Prečo to stojí na GetObject(aItem) sa mi nedarí nasimulovať.
Možno mu chýba nejaká referencia, no akú to potrebuje sa mi nedarí zistiť.
Všetky moje Referencie sú:
Visual Basic For Applications
Microsoft Excel 16.0 Object Library
Microsoft Forms 2.0 Object Library
OLE Automation
Microsoft Office 16.0 Object Library
Office 2016 x64 Pro SK a fičí to.

Nahraďte ten riadok zatiaľ týmto
Set SWbk = Workbooks.Open(aItem, False)
ale bude to pomalšie.

Vložte prílohu (musíte sa zaregistrovať, prílohu zabaliť do RAR/ZIP), kde bude vidieť nejaké dáta, ich rozmiestnenie, rozsahy ...

Spúšťate to Hromadne spustením makra "SpustiFormat". V ňom si volíte aj oblasť.

Na E2016 skúšam ten vzorec, a bez problémov funguje. Mením rozsahy hore dole, korektne počíta, v definovanom názve je stále vzorec, skúšam ukladať, otvárať. Ale v jednom momente ak som zvolil mesiace 4 a 9 (nie 4 až 9), tak vzorec zmizol, navyše v takomto prípade (nesúvislé obdobie), tak vzorec ani nepočíta správne. Skúste toto:
=INDEX('tisková sestava'!$A:$A;MATCH(SUBTOTAL(5;'tisková sestava'!$B:$B);'tisková sestava'!$B:$B;0)):INDEX('tisková sestava'!$D:$D;MATCH(SUBTOTAL(4;'tisková sestava'!$B:$B);'tisková sestava'!$B:$B;0)+COUNTIF('tisková sestava'!$B:$B;SUBTOTAL(4;'tisková sestava'!$B:$B))-1)

=INDEX('tisková sestava'!$A:$A;POZVYHLEDAT(SUBTOTAL(5;'tisková sestava'!$B:$B);'tisková sestava'!$B:$B;0)):INDEX('tisková sestava'!$D:$D;POZVYHLEDAT(SUBTOTAL(4;'tisková sestava'!$B:$B);'tisková sestava'!$B:$B;0)+COUNTIF('tisková sestava'!$B:$B;SUBTOTAL(4;'tisková sestava'!$B:$B))-1)
Tento počíta správne aj v takom prípade, ale či bude miznúť neviem, ani dôvod nepoznám.

Prípadne poprosím niekoho s E2010 o vyskúšanie aj vzorca aj hlavičky v súvisiacom vlákne.

A kde to pozeráte, keď Vám to "nefunguje" ?
-Zmente hodnotu v bunke E1
-Kliknite na Súbor - Tlačiť (alebo Ctrl+P)

To sa Vám normálne nezobrazuje. Až pri tlači, alebo ak to chcete (netuším načo) stále vidieť, tak musíte prepnúť zobrazenie na karte Zobraziť - Rozloženie strany (alebo vpravo-dole v stavovom riadku sú vedľa lupy 3 tlačítka). Ale to Vám zruší ukotvenie hornej priečky.

Prípadne si to pozrite na karte Vložiť - skupina Text, a tam Hlavička a päta, tu dajte Zrušiť, ak na Vás škrieka okno o zrušení priečky.

Alebo Rozloženie strany - Okraje - Vlastné okraje - Hlavička alebo päta

...

Všade to je zobrazené, tak ako ste chcel. Excel nieje Word, v Exceli nemáte mať čo stále zobrazenú hlavičku - zaberá miesto a znepríjemňuje ovládanie a prehľad (v tom režime "Rozloženie strany")

Tak som nakoniec urobil aj tú akokoľvek ohraničenú oblasť, s patričným výsekom z daného formátovania podľa oblasti. Ako vidíte, taká drobnosť podstatne zkomplikuje kód.

Šmarjá, veď to musíte vidieť, že to máte celé červené. To preto, lebo fórum pridáva medzi riadky prázdne riadky. A teda rozdelí náš jednoriadkový kód. On je totiž jednoriadkový, aj keď ho máme s pomocou " _" akože rozdelený na viac.

Zmažte tie medzery medzi riadkami.

Alebo si to nechajte v dlhej jednoriadkovej forme.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$1" Then PageSetup.LeftHeader = "Příloha č. 3 ke Kolovadlu č. " & CStr(Range("E1").Value) & " IPP" & Chr(10) & "&""-,Bold""Přehled vydaných částek Sbírky zákonů s obsahem za dané období"
End Sub

Tak makrom...

A ešte som zabudol, že už sa mi nechcelo ošetrovať, prípadné umiestnenie na 1.riadok/stĺpec A. Vzniká tam totiž pretečenie. Používajte to od riadku 2 a od stĺpca B.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje