Všemožné problémy aneb ať nemusím pořád zakládat nová vlákna – Visual Basic – Fórum – Programujte.com

Pisu ve VBA (pod Excelem 2003).

Pokud sem napisu nejaky kod kde mam s necim problem, tak me zajma samozdrejme hlavne jeho reseni, ale rad budu i za
opravu necoho, co na nej zadny vliv nema, ale proste se vam jen pri koukani na neco takoveho sviraji pesti (rozumej jde to
napsat lepe).

Mam problemek s prebiranim objektu z Wordu (makro se spousti v Excelu). Prebrat chci vlastni obsah stranek (jen "hlavniho
bloku" zapati, zahlavi a kdovico tam je jeste me nezajma). Prebrani funguje, ale zda se me byt nezkutecne pomale - presneji
zpocatku prebira jednu stranu snad minutu a v 30%-40% poctu stran se zrychli na nekolik sekund.
Takze co nechapu: a) Co se deje zpocatku (vytizeni procesoru 100%)?
b) Pokud zpocatku dam focus na Word (spustim makro v Excelu a pak kliknu na
Word) a v nem dojedu na konec dokumentu, opet se prebirani stran zrychli
na par vterin.

trochu to zkratim, takze kodu predchazi
Dim stranky As Word.Pages
Dim stranka As Word.Page
Dim odpocet As New Doba_trvani
...
Set stranky = app_word.Documents(1).ActiveWindow.Panes(1).Pages

i_stranky = -1

stranek = stranky.Count

neni = stranek

procento = 100 / stranek

ReDim p_stranky(stranek - 1)

odpocet.Caption = "Odpočet přebírání stránek z Wordu"

odpocet.Show 0



For Each stranka In stranky

  i_stranky = i_stranky + 1

  p_stranky(i_stranky).strana = i_stranky + 1

  pocet = stranka.Rectangles.Count

  

  If pocet > 0 Then

    If pocet = 1 Then

      p_stranky(i_stranky).i_radky = stranka.Rectangles(1).Lines.Count - 1

      Set radky = stranka.Rectangles(1).Lines

    Else

      j = stranka.Rectangles(1).Lines.Count

      idx = 1

      For i = 2 To pocet

        k = stranka.Rectangles(i).Lines.Count

        If j < k Then

          j = k

          idx = i

        End If

      Next i

      p_stranky(i_stranky).i_radky = stranka.Rectangles(idx).Lines.Count - 1

      Set radky = stranka.Rectangles(idx).Lines

    End If



    ReDim p_stranky(i_stranky).radek(p_stranky(i_stranky).i_radky)

    For k = 0 To p_stranky(i_stranky).i_radky

      p_stranky(i_stranky).radek(k) = radky(k + 1).Range.text

    Next k

  End If

  

  neni = neni - 1

  je = je + 1

  cas = ((Timer - cas_start) / je) * neni

  procent = je * procento

  odpocet.cas = Vteriny_na_cas(CLng(cas))

  odpocet.procent = Round(procent, 2)

  odpocet.Repaint

Next



odpocet.Hide

Set stranky = Nothing

Set stranka = Nothing

Set radky = Nothing

If zavrit = True Then app_word.Quit

Set app_word = Nothing

Bohužel toto je další věc po nepřesných desetinných číslech, se kterou se musíš smířit. Možná máš v tom programu nějakou chybku (žádnou sice nevidím), která to třeba i více brzdí, ale spíše jde o princip. To, že tahání dat z Wordu do Excelu přes makro je pomalé, je dáno jednak Visual Basicem a pak také OLE (COM) Automation. Intepretovaným jazykem provádíš příkazy, které přes RPC pasírují data z jedné aplikace do druhé. Než se přes IDispatch přežvejkají všechny parametry, najde se správná funkce, která se má zavolat ... Prostě to není jako když zavoláš v Cčku funkci. Každá operace bude trvat několikanásobně dlouho dobu.

Chapu ze to muze trvat (takze je mnohem rychlejsi spustit Word, dat ctrl+A a v Excelu ctrl+V), ale proc to chvili bezi pomalu a najednou 100x rychlejs... Toto by se teda tim, ze ma moc prace s tim prezvejkanim, dalo vysvetlit - jakmile s tim skonci probiha makro rychle nez kdyz dela jeste neco zaroven, nicmene logicky by me prislo, ze me zadnou stranu neprebere dokud neprobehne Automation a vse kolem toho. Takze me prijde, ze to co tak pracne (a dlouho) pocita k tomu co ja potrebuju ani nepotrebuje... otazkou je tedy co se presne deje a jestli to nejde ovlivnit (pokud je to neco co nepotrebuji, tak to vypnout).
A to proc ma na to vliv, ze predam rizeni Wordu (+aspon se me zda, ze musim najet na konec souboru) uz si nedokazu vysvetlit vubec.

Z počátku se musí dělat inicializace (proxy/stub), prostě se musí "profouknout kanál". A následně se neustále musí převádět volání procedur ... marshaling (http://msdn.microsoft.com/en-us/library/ms692621%28VS.85%29.aspx).

To, že rychlost ovlivňuje kde co, tak tomu se nedivím. Excel rozhodně není na psaní real-time aplikací. A určitě ho lidi nevyhledávají kvůli rychlosti. Makra jsou tam z toho důvodu, aby bylo možné práci zautomatizovat. To, že je to vymyšlené tak, že se z Excelu dostaneš třeba do Wordu nebo do nějaké jiné komponenty (třeba i svojí), tak to je přece báječné. A že to je to pomalé jaxviňa? Ale nemusíš to dělat všechno znovu ručně.

Existuje teda jine (rychlejsi) reseni, pokud mam vstupni data ve Wordu a vystup potrebuju v Excelu?

Můžeš to zkusit udělat v C++ (nebo jiného jazyka, třeba Python), ale bude to řádově pracnější (např. http://support.microsoft.com/kb/216686). Pokud s tím němáš zkušenosti, tak to ani není nic k doporučení. A rozhodně není jisté, jestli to bude o tolik rychlejší :smile11: . Jak jsem psal, v tomto případě nejde o rychlost, ale o snadnost. Stačí pár řádek makra v Excelu a funguje to. A daň, která se z toho platí, je právě ta rychlost.

A pak je tu ještě jiná možnost, změnit formáty. Třeba přes XML. Z wordovského dokumentu udělat třeba WordML a přes XSLT vytvořit jiné XML, které načte Excel. To by mohlo být i rychlé, ale vytvoření XSL souboru pro neznalého taky není záležitost na hodinku.

Kam se standardne umistuje vytvoreni objektu nejake tridy? Do tridy samotne (jako sub, function, property..?), nebo spis do
standardniho modulu? Chtel bych, aby to slo pak pouzivat takto: set a = Vytvor(parametry...), ale to jde jen pokud to napisu jako
funkci v nejakem standardnim modulu. Pokud bych to napsal v tride samotne, tak funkci musim volat pres objekt tridy:
set a = objekt.Vytvor(parametry...) coz se me moc nelibi, stejne jako: Call objekt.Vytvor(parametry...) v pripade, ze to mam jako
Sub v tride. Tak jestli to jde nejak lip, nebo se to musi opravdu cpat mimo tridu.

* Editace me nefunguje a pokud neco na forum vlozim odjinud, tak asi editor, ve kterem se pisou prispevky nemaze znak konce radky, nebo nevim proc se to takhle rozplizne.

Kam se standardne umistuje vytvoreni objektu nejake tridy?

A jak vytvorit kopii tridy jinak nez kopirovanim vlastnosti?

Pokud se nepletu, tak ve VB už nijak. Stejně nejlepší (a asi i nejsprávnější) cestou je kopírovací konstruktor.

Konstruktor jsem videl naposled kdysi davno v Ccku, nemas odkaz jak to ma vypadat?

Ty to vlastně píšeš v Excelu, že? Tam zapomeň i na tuto možnost, je tam pouze implicitní konstruktor (událost) Class_Initialize(). Takže jedině kopírování atributů.

Kopirovani pomoci API by neslo? Ikdyz pokud by to bylo pomalejsi, nez kopirovanim atributu, tak to asi stejne pro me nema vyznam.

V API není žádná podpora pro "kopírování tříd". Maximálně kopírování bloku paměti, ale používat to ve VB(A) ... :smile13:

kopírování bloku paměti.. Jo to jsem myslel.

Původně jsem chtěl na trvat na svém :smile13: , ale pak mi to nedalo, zkusil jsem google a asi to jde :smile19: http://www.codeproject.com/KB/vbscript/UB_Pointers_In_VB.aspx.

V cem je teda problem, nebo co je na tom spatneho, ze jsi psal :-[ ?

Původně jsem měl za to, že dostat se k pointerům bude ve VBA problém. Ale jak je vindo zříti :smile1:

Ted resim, jak vytvorit cokoliv (sub, fce, property) Friend. Problemem po zmene z Public/Private na Friend je Late Bounding.

A můžeš se o to tvém problému více rozepsat? Chybí ti dispinterface nebo co?

Z Private procedury class modulu, chci zavolat Friend proceduru z jine tridy (ve stejnem projektu). Po spusteni to hodi chybu:

Object doesn't support this property or method (Error 438)

Not all objects support all properties and methods. This error has the following cause and solution:

You specified a method or property that doesn't exist for this Automation object.
See the object's documentation for more information on the object and check the spellings of properties and methods.

You specified a Friend procedure to be called late bound.
The name of a Friend procedure must be known at compile time. It can't appear in a late-bound call.

Pripadne sem hodim nakej kod, pokud z toho nejde poznat o co me jde.

Asi nejdůležitější věta je dle mě tato: You specified a method or property that doesn't exist for this Automation object. Jinak řečeno, to co voláš není součástí (duálního) rozhraní - volané přes IDispatch. Bez kódu to asi nepůjde, takový šílenosti :smile1: jsem ještě ve VBA netvořil.

Ja bych prave cekal, ze na me se vztahuje:
You specified a Friend procedure to be called late bound.
The name of a Friend procedure must be known at compile time. It can't appear in a late-bound call.
Protoze, kdyz tu Friend proceduru zmenim na Public nebo Private, tak bez problemu zavolat jde, kompilator chodi chybu viz vyse jen pokud je ta sama procedura Friend. Navic v tom co ted delam zadnej automation object aspon vedome nepouzivam.

Na zaklade toho co jsi psal, jsem zkusil zavolat proceduru jinak nez z indexu kolekce (collection) objektu a to chybu nehodi ani pokud je volana procedura Friend. Takze jestli je mozny ze automation se pouziva pri pouzivani kolekci... Stejne ale nechapu proc mu to pri Public/Private nevadi...

1) Dalsi problem s tridama - nelibi se mi, ze se private default property zobrazuji ve watches (sledovani promenych) a to i mimo tridu i mimo projekt. Ty private sledovani hodne zneprehlednuji, treba :

Private p_bod2d as point2d 'nejde public (user defined type)

Public Property Get bod2d(point As Point2d) As Point2d
point = bod2d
End Property

a ve watches mam oboji p_bod2d i bod2d.

2) Pro test programu ho spustim a sleduju, jestli je vse spravne, ale doba behu se porad prodluzuje a do nejakeho mista, do ktereho je program jiz odladeny, stejne nema opetovne spousteni smysl (vysledek se nemeni). Otazka zni, jak se vyhnout pocitani casti, ktera me nezajma a rovnou nacist jeji vysledek jako vstup pro cast co teprva ladim. Neco jako treba ulozit data do pameti (tak aby se zachovala i po zruseni debugu) a pak je jen nacitat.

add 1) Nečekal bych, že v Excelu budou takové vychytávky jako filtrace ve watches, ale možné je, že to tam někde je. NIkdy jsem to nepotřeboval, takže buď google nebo jestli neví někdo jiný.

add 2) Tak v paměti je těžko udržíš, ale na disku v souboru už to problém není. Říká se tomu serializace. Jak je to s podporou serializace ve VBA ti opět nepovím neb jsem to opět nikdy nepotřeboval.

add 1) Pak me teda zajma, jak jsou udelany treba tridy excelu, tam zadny private ve watches nevidim.

add 2) Kdysi davno, kdyz jsem neco tvoril v Ccku, tak tam myslim je operator new, kterej ulozi promenou tak, ze je v pameti i po ukonceni programu (dokud na ni neni pouzit operator na uvolneni pameti). Neco podobneho teda nejspis VB nema, ale neni treba ve win API nejaka pouzitelna funkce?

add 1) :smile11:

add 2) Alokovat paměť a ukončit program ... hmm ... to dostaneš toto: http://cs.wikipedia.org/wiki/%C3%9Anik_pam%C4%9Bti. Jediná (mě) známá možnost ukládání stavu je disk a je jedno, jestli je to soubor, register nebo něco podobného. Stejně tak dobře si to můžeš uložit do toho Excelovského souboru, ale paměť k tomuto ohnout nelze resp. uložit si adresu pointeru a očekávat, že při dalším spuštění na té adrese budou opět moje data .... to je cesta do :smile20: . Leda bys měl aplikaci, která by ty mezivýsledky spravovala a měla je uložené třebas v paměti, ale ta taky musí běžet stále.

Pro zmenu me trapi objekty, mam treba tridu Cara, napisu kod:

Dim oo as Cara
Dim cc as new Collection

cc.add new Cara
Set oo=cc(1)
cc.Remove(1)

A ted nechapu na co ma referenci objekt oo, kdyz objekt cc(1) uz neni v kolekci. Vubec mam chaos v tom na co je vlastne dobry operator NEW. Podle me, by mel alokovat pamet pro novy objekt a pokud tedy neni pouzit, tak se objekt pouze odkazuje na jiny objekt. Ale..

Dim o1 as new Cara
Dim o2 as new Cara

Set o2=o1

Coz ale opet vytvori pouze referenci (problem je asi ve VBA, ze nedokaze kopirovat objekty). Ale ve vysledku je tedy kazdy objekt ulozeny v pameti, nebo je ulozen pouze jeden a druhy objekt je jen ukazatel na prvni stejne jako kdybych o2 pouzil bez NEW?
Je tedy mozne, ze se v prvnim pripade po odmazani alokovaneho objektu stane z puvodni reference objekt, jako kdyby byl deklarovan s operatorem NEW?

Reference je reference a nový objekt je nový objekt. Každý objekt si počítá počet referencí, které na něj vedou a pokud klesne na 0, tak se smaže. Pokud chceš nový objekt, tak vytvoř nový objekt, pokud chceš pracovat se stávajícím, tak předej referenci.

Viz vyse, proste vytvorim objekt, udelam na nej referenci a pak objekt smazu, ale reference stale funguje, tak se ptam jak je to mozny. Jak pises, tak asi proto, ze ikdyz ho odstranim, tak v pameti zustane, prestoze promenna, ve ktere byl puvodne ulozen jiz obsahuje jiny objekt nebo vubec neexistuje? Takze "nazivu" ho drzi reference a ne promenna?

Zjednodušeně řečeno takto: když vytvoříš objekt, tak do proměnné se ti dostane zase jen reference (objekt má počet referencí 1). Když přidáš další referenci, tak je počet 2. Zrušíš původní a má referenci 1, takže ho opravdu drží při životě ta druhá reference. A k těm tvým příkladům:

Dim o1 as new Cara 

Dim o2 as new Cara 



Set o2=o1

Chtel bych vedet jak (pokud to jde), jde udelat toto:
Ze souboru se nactou nejaka data, minimalne jedna polozka a muze jich byt vicemene libovolne (ikdyz nepredpokladam ze jich bude vic nez 100). A ted bych potreboval, aby se tyto polozky volaly z objektu pod ktery patri jejich jmenem - to jmeno je taky v souboru co se nacetl. Chci tedy aby se volaly objekt.jmeno_ze_souboru.

Druha vec je, jestli jde ve VBA vytvaret neco jako tusim sablony v C, abych nemusel porad kvuli kazdemu datovemu typu delat jiny kod nebo jiny datovy typ, tak jestli neexistuje jina moznost.

Možná by stačilo použít pro všechno typ Variant.

To by samo stacilo, ale snazim se to co delam udelat aspon trosku rychle, takze se snazim pouzivat nejmin narocne typy. Tak pokud by to slo i jinak...

Ale spis me trapi ta vec vyse...
Coz by vyresilo treba :

type pole
pole() as nejaky_objekt
end type

dim a() as pole 'ted bych potreboval tem jednotlivym polim priradit jmeno, primo asi tezko, ale treba
'jen, aby se to jmeno, ktere ziskam az za behu, odkazovalo na nejaky index pole

Podobne neresitelny je to s kolekci:

dim a as new collection

a.add new collection 'sice by kolekce kolekci resila to co chci, ale opet nedokazu jednotlive kolekce
' volat objekt.a.jmeno. ale jen objekt.a.item(..)

ale opet nedokazu jednotlive kolekce volat objekt.a.jmeno. ale jen objekt.a.item(..)

No chci neco udelat viz vyse, neco vymyslim a ptam se jestli to nejde lepe... Treba pouziti trech do sebe vnorenych kolekci, je to hodne neprehledne oproti zapisu, ktereho bych chtel docilit (pro uzivatele tridy), neni z toho vubec patrne co se vubec vola. To uz to asi radsi udelam jako funkci...

dim a as collection
set a=objekt.typKolekce("jmeno") 'nicmene pokud se kouknu do Watches jak se jednotlive kolekce vetvi
' bude tam porad stejny chaos collection a item, ktery jen tak nekdo
' nepobere

chci neco udelat viz vyse

asi radsi udelam jako funkci

bude tam porad stejny chaos

Neni na to kdyz poradi nekdo jako ty

No jo, já jsem nervák :) Ale nevím, co jsi jako čekal. Ve VBA šablony nejsou, proměnné za běhu deklarovat nejdou. Variant není zas tak pomalý, když ho nepoužíváš jako prase. Složité struktury si udělej jednodušší a/nebo napiš pomocné funkce. Telepatii nezvládám, víc poradit nemůžu, snad ještě to, že pro účely "asociativního pole" je lepší Dictionary, hotovo.

Stacilo rict ze to lip nejde, ze VBA na to nic nema, coz v odpovedi co si psal predtim neni. Znam z VBA jen neco malo, tak nevim jestli nekdo, kdo to ma prosle nezna odpoved na moje problemy ve stylu pouzij "...". nebo na todle VBA nic nema.

Napadla me jeste silena moznost, ono jde myslim psat makrem jine makro, takze teoreticky, kdyby se nacetli data a podle nich napsalo makro promenne a pak ten kod spustilo... ale to je asi moc slozity :(

liborb napsal:
Zjednodušeně řečeno takto: když vytvoříš objekt, tak do proměnné se ti dostane zase jen reference (objekt má počet referencí 1). Když přidáš další referenci, tak je počet 2. Zrušíš původní a má referenci 1, takže ho opravdu drží při životě ta druhá reference. A k těm tvým příkladům:

Dim o1 as new Cara 
Dim o2 as new Cara 

Set o2=o1

Založíš objekt, pak druhý a pak z jednoho předáš referenci na druhého, takže ta původní jde do kytek i s objektem (počet referencí je 0). Výsledkem je to, že bys měl mít jeden objekt a na něj 2 reference.

V tom případě by to mělo být tak, že v kolekci sice už není (reference), ale drží ji ta proměnná, takže objekt by měl existovat.

Keny napsal:
To by samo stacilo, ale snazim se to co delam udelat aspon trosku rychle, takze se snazim pouzivat nejmin narocne typy. Tak pokud by to slo i jinak...

Ale spis me trapi ta vec vyse...
Coz by vyresilo treba :

type pole
pole() as nejaky_objekt
end type

dim a() as pole 'ted bych potreboval tem jednotlivym polim priradit jmeno, primo asi tezko, ale treba
'jen, aby se to jmeno, ktere ziskam az za behu, odkazovalo na nejaky index pole

Podobne neresitelny je to s kolekci:

dim a as new collection

a.add new collection 'sice by kolekce kolekci resila to co chci, ale opet nedokazu jednotlive kolekce
' volat objekt.a.jmeno. ale jen objekt.a.item(..)