MS Excel

Zdravím
potřeboval bych vyřešit univerzální problém s vyhledáním textu v jednom souboru a doplnění do druhého.
Jako přiklad jsem si z netu stáhl tabulku z nějakými názvy instituci (berte to tedy jako příklad-nikoliv jako pravdivou informaci).
Jde mi o to - v souboru profes_org.xls prohledat sloupec, na kterem bude kurzor (v tomto případě A), a porovnat nalezený text se sloupcem A souboru zkratky.xls. Pokud bude nalezený text přesně souhlasit (neberou se v potaz malá/VELKÁ písmena) pak se do sloupce D doplní zkratka ze sloupce B (zkratky.xls).
Cesta k souborům aby byla v makru editovatelná (proměnná).
Díky

Zaslat odpověď >

Strana: « předchozí 1 2 3 další »

eLCHa(26.6.2013 13:35)#014144

Nevadí
Když(je.chybhodn(VZOREC);"nenalezeno";VZOREC)

VZOREC je to, co je za IFERROR - mělo by fungovat, vyzkoušet ale nemůžucitovat

Palooo(26.6.2013 13:49)#014145

prerobene aby to slo z profes_org.xls

treba si tam potom prepisat cestu k skratkam.xls

Příloha: zip

14145_test.zip (28kB, staženo 19x)

citovat

GeorgeK(26.6.2013 14:37)#014147

příkazem
Set oWB = Application.Workbooks.Open("xxx\zkratky.xls") se otevře soubor zkratky.xls a stane se aktivní
další příkazy
For x = ActiveCell.CurrentRegion......
se provádějí v tomto souboru (čili se neprovede nic) a nikoliv v souboru profes_org.xls.
Jde otevřít soubor "na pozadí" (aby se vůbec uživateli nezobrazoval)?

Když už to budete upravovat, požádám rovnou o upravu aby se daný náze rovnou přepsal zkratkou (pokud nebude nalezena zkratka-neprovede se nic).citovat

GeorgeK(26.6.2013 15:07)#014149

Díky za rozpitvání makra - pochopeno
Používám Excel 2003.

nieje vidiet ze sa otvara
jak říkám, je vidět a stává se aktivní

probíhá to stejně při krokování makra i při přímem spuštění...

Ještě jednou požádám
Když už to budete upravovat, požádám rovnou o upravu aby se daný náze rovnou přepsal zkratkou (pokud nebude nalezena zkratka-neprovede se nic).citovat

Palooo(26.6.2013 15:25)#014150

dnes sa dari :( ... ospravedlnujem sa zas ste mali pravdu

dufam ze do tretice to uz bude dobre

Příloha: zip

14150_test.zip (28kB, staženo 19x)

citovat

GeorgeK(26.6.2013 15:28)#014151

dnes končím, podívam se zítra. zatím děkuji.citovat

GeorgeK(27.6.2013 7:39)#014168

řádek app.Visible = False
způsobí chybu 424-Object required

Pokud oremuju tento řádek, krokuju makro, ručně "zminimalizuji" okno se zkratkami a pak dál pustím makro - udělá co má :-)
Upravil jsem
ActiveSheet.Cells(x, 1) = oWB.Sheets(1).Cells(y, 2)
na
ActiveSheet.Cells(x, ActiveCell.Column) = oWB.Sheets(1).Cells(y, 2)
Teď jen nahradit tu "ruční část"

citovat

Palooo(27.6.2013 9:09)#014173

tak ADODB riesenie ... podla mna jedno z najrychlejsich a na filtrovanie najlepsie (pre labuznikou SQL-ka je idealne) ... samozrejme k tomuto rieseniu sa az tak nehodi .. preto som radsej chcel otvarat cez Open alebo add

... jedine v com je este hacik ze okrem cesty k suboru sa bude musiet zadavat aj range tabulky

Příloha: zip

14173_test.zip (24kB, staženo 19x)

citovat

Palooo(27.6.2013 9:21)#014174

btw. netusim preco vam nefunguje to visible, keby fungovalo tak to makro prejde bezproblemov

edit. uz som si to vygooglil Office 2003 a nihsie nemalo moznost zneviditelnenia dokumentu

http://msdn.microsoft.com/en-us/library/office/aa215950(v=office.11).aspxcitovat

GeorgeK(27.6.2013 12:04)#014175

Bohužel nemám možnost (práva) instalovat doplňky a řádek
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;...." hází chybu
3706 - Zprostředkovatel nebyl nalezen.

Pokud nejde "zneviditelnit" jedna tabulka nedalo by se to pořešit příkazem na "zviditelnění" té druhé profes_org.xls ?
Nějak načíst název otevřeného dokumentu (bude mít různé názvy) do proměnné a pak ji použít?citovat

Strana: « předchozí 1 2 3 další »

Téma: Vyhledání a doplnění textu ve dvou souborech

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje