Příspěvky uživatele
< návrat zpět
Dobrý den,
potrebuju ovladat jednim souborem radu dalsich.
vytvroil jsem si makro, ktere chci spoustet ve vsech ovladanych souborech, ale nedari se mi to rozchodit.
vsechny "podsoubory" mam v jedne slozce a halvni makro by je melo po jednom pootvirat a v kazdem spustit dalsi makro.
nevim jak zadat cestu do souboru. navic pri otevirani kazdeho souboru, excel vyhodi hlasku "Soubor, který chcete otevřít.. je v jiném formátu , než určuje přípona souboru...Chcete soubor nyní otevřít?" potreboval bych aby makro automaticky odpovedelo Ano.
Sub nejmakro()
Application.ScreenUpdating = True
'On Error GoTo my_error
Dim poleNazvu()
Dim a As Integer
Dim c As Integer
Dim x As Integer
Dim xlApp As New Excel.Application
w = Range("List1!i4").Text
'nacte adresu slozky se zdrojovymi soubory
MyFile = FileSystem.Dir(w & "\" & "*.*")
Do While MyFile <> ""
ReDim Preserve poleNazvu(x)
poleNazvu(x) = MyFile
MyFile = FileSystem.Dir
x = x + 1
Loop
a = UBound(poleNazvu) + 1
'spocita soubory ve slozce
Range("a1").Value = a
Application.ScreenUpdating = True
For c = 0 To a - 1
xlApp.Workbooks.Open (w & "\" & poleNazvu(c))
Application.Run "'" + poleNazvu(c) + "'" + "!makro25"
'a je pocet souboru, poradi posledniho je ale a-1
xlApp.Workbooks(poleNazvu(c)).Close
Next
Application.ScreenUpdating = True
'my_error:
'If Err.Number = 1004 Then
Range("B1").Select
ActiveWorkbook.Save
End Sub
Ahoj, poslal jsem Vám oběma vzkaz ;)
zkoušel jsem to teď ještě přes funkci Countifs, ale musim všechny hodnoty ještě upravit, protože ani hodnoty hluku ani datum nejsou ve správném formátu.
Je toto cestou?
Díky
hmmm rozhdone mi pride zbytecny se tu hadat. ja mam excel 2007. priste muzu uvest.
za uplatu chapu, ale tady tomhle foru hledam spis radu, nez hotovy reseni a jsem rad ze v prubehu vsech vychytavek, ktery jsem kdy v excelu delal, jsem se dost naucil, at uz sam nekonecnym hledanim, nebo radou od nekoho tady. a je super, ze to tady funguje zdarma. ze ti zkusenejsi poradi zacatecnikum.
DIKY
Jinak pocet zdrojovych souboru je promenny a format nazvu je "4_17-08-14 21.23" (meni se snad vsechno v tom nazvu :)
Co se tyce poctu - mam vsechny zdrojaky v jedny slozce, kde uz nic jinyho neni, coz kdyz jsem delal jeste neco podobnyho jindy, tak jsem naprgramoval aby proste projel vsechny soobory co v konkretni slozce jsou :) ted mam nejvetsi problem s tim aby makro v materskem souboru dokazalo psat vzorce ve zdrojovych a nejak z nich nasavalo informace...
Ja bych si mohl doinstalovat (ted tento nastroj nemam), ale melo by to pak pouzivat vice lidi a ti muzou/nemusi nastroj mit k dispozici, nemluve o tom, jestli by umeli pouzit nebo ne.
Moje predstava je vepsani okrajovych hodnot hluku, zadat rozmezi terminu sledovaneho obdobi a stisknout tlacitko ovladaci makro.
Zdrojove soubory je mozne uvazovat soubory v priloze "zdroj var1, zdroj var2". skutecne soubory uplne stejne, jen s mnohem vice radky (pres 60000, takze jsem musel umazat, abych sem vubec mohl nahrat kvuli velikosti).
melo by mi stacit me trosku nakopnout spravnym smerem, jestli je efektivni rozhodovani pomoci pridanych sloupcu, jak by makro mohlo pridavat vzorce ve zdrojovych soiborech a podobne, pak bychm el byt schopen dopracovat, aspon doufam :)))
diky
Diky mepexg. Ale nevim jak to presne pouzit. Navic nechci kopirovat data z jednotlivych souboru rucne, ale pouzit jeden "hlavni soubor", ktery vsechny zdrojove soubory pootvira a nasosa z nich postupne data...
slo by tohle takhle pouzit? Dekuju
Prikladam soubor. Musel jsem umazat radky, hodnoty jsou az do cisla mereni 60000 v jednom sloupci, pak se zalozi druhy sloupec...
Dobrý den, potřeboval bych poradit s vyhodnocením dat z několika souborů. Sensor mi zaznamenává hladinu hluku v čase (napr kazdých 5vterin) a zapisuje hodnoty do xls souboru ve formatu - cislo mereni, hodnota hluku, datum a cas mereni. potreboval bych jeden soubor ktery otevre postupne soubory techto namerenych hodnot (techto souboru je vzdy vice) a vypise mi kolikrat se stalo, ze hodnota byla pod/nad urcitou vysi. a to vse v acasovem rozmezi od do (potrebuju zadat). Zkusil jsem zacit s vyhodnocovanim dat v jednotlivych souborech. Jak ale udealt aby mi tohle vsechno behalo z materskeho souboru? dekuji moc za pomoc!
up
please
up
marjankaj napsal/a:
No ty si fakt dobrý. prílohu dáš až to tu niekto uhádne a vyrieši?
Asi je to lepší s přílohou, ok. Jen jsem si myslel, že případ tisku jednoho listu tak a jiného onak by možná mohl být jasný i bez přílohy.
Ale každopádně tady prosím o rady, tak se vzdávám, nemyslel jsem to nijak negativně. peace :)
chtel jsem vlozit prilohu az pri dalsich dotazech, ale spojim to tedy.
1. pri tisku prvnich dvou listu chci zakodovane zapati (cisla stranek + text). ale pri tisku tretiho listu (samostatny tisk), zapati nehci.
2. potreboval bych pri pouziti tlacitka "novy bod" aby se mi bod oznacil dle kapitoly (podle toho do ktery ho vkladam) a ocisloval dle toho kolikatej bod je to v ramci kapitoly a cisla zapisu. jak byste to udelali? napr. A.1.1 - A.1.2 - A.1.3 - ale pak A.2.1 atd.
3.makrem bych potreboval pak nektere body vyradit do nasledujicicho listu a aby se zase zaridili podle cisel do jednotlivych kapitol..
? diky za navedeni spravnym smerem
any hints please?
Chapu, neznal jsem ani oznaceni vice listu a nasledny tisk :/ no poucil jsem se, diky. ted vsechno funguje podle popisu.
Puvodne jsem si ale predstavoval, ze budu tisknout jednotlive listy zvlast, to ted nemusim. JENZE naopak mam listy (ve stejnem souboru), u kterych nechci aby spolecne zahlavi/zapati pri tisku bylo... takze finaleni dotaz - da se toto nastaveni specifikovat pro jake listy bude a pro jake nebude aplikovano?
DIKY
Chyba byla, že jsem to měl v kodu konkretniho listu, musel jsem to vepsat do ThisWorkBook a udalost urcit pro konkretni list primo kodem.
Ted funguje! Díky za vodítka.
posledni dotaz-
pokud pouzivam &P a &N odkud se cisluje? Na prvni strane mam cislo 2/3 a na ctvrte 4/3..
jak vepsat v jednom listu celkovy pocet stran z listu jineho?
mam titulni stranu na jednom listu, tam ma byt "strana 1 (celkem" a pocet stran z druheho listu+1")"
na druhem listu uz je vice stran a ty by se meli cislovat od "strana 2 (celkem" pocet stran na druhem listu+1 ")"
napr Strana 5 ( Celkem 8 )
uf diky
jasny, prvni priklad jsem pouzival doted, ale potrebuju to trochu zkomplikovat.
koukal jsem na pripady maker (lasakovi web), to pomuze. jak to jen zprovoznim na konkretnim listu? napr nejak pres
Worksheet.beforeprint? nebo neco lepsiho? kazdopadne ani to mi nefunguje..
Predem diky moc!
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