VBA EXCEL – Import dat z jiného souboru

Ahoj, rád bych si naprogramoval nějaká makra v VBA, ale jsem úplný začátečník. Pokusím se popsat co potřebuju. Nějaká aplikace mi generuje soubor, má vždy jiný počet řádků. Tento vygenerovaný soubor obsahuje určitou část, kterou já potřebuji dále zpracovávat v jiném excelovském souboru. Nyní to probíhá tak, že otevřu oba soubory a musím to co chci z jednoho do druhého souboru vytáhnout ručně přepsat. Rád bych, aby toto šlo nějak zautomatizovat. Jde o to, abych si vytvořil kód, který po stisknutí tlačítka v jednom excelovském souboru, který má připravenou tabulku např: Název Počet A "prazdna buňka" B "prazdna buňka" C "prazdna buňka" D "prazdna buňka" E "prazdna buňka" F "prazdna buňka" Dokázal automaticky přepsat data z jiného souboru, který si to samo (po tom co ho ručně vyhledám v otvíracím dialogu souboru) do této připravené tabulky. Tabulka v souboru ze kterého se to má kopírovat, ale vypadá pokaždé jinak, třeba takto: Název Počet A 48 B 95 E 25 Daná čísla potřebují nakopírovat do příslušných řádků připravené tabulky v původním souboru. Ty řády jsou pokaždé jiné, někdy chybí řádek A jindy chybí jiný atd.. takže je nemožné to jen označit a překopírovat, ale je nutné vyhledávat, která buňka (řádek) ke kterému patří. Myslím, že ten kód by měl pracovat asi takto: - část s dialogem na otevření souboru - po jeho otevření nalezení části, ze které se bude kopírovat - následně nalezení buňky, ve které je napsáno "A" a kopírování obsahu z buňky, která je o jednu vedle buňky "A" do původního excel souboru zase do buňky, která je o jedno vedle buňky "A", přičemž v tomto souboru už přesně vím, která je to buňka a není nutné jí vyhledávat. - Následné provedení s dalšími buňkami, těch hodnot je několik, ale to už by bylo v podstatě to samé, jen se něco jiného hledá a kopíruje - pak asi i zavření souboru ze kterého bylo kopírováno Tohle kdyby se mi povedlo byl bych nadšenej! Zatím se mi povedlo získat dialog na otvírání souboru: Sub ExcelDialogOtevrit() 'volitelné filtry pro přípony 'popisekA,filtrA1;filtrA2 RetA = "Excel soubory (*.xls; *.xlsx),*.xls;*.xlsx" 'popisekB,filtrB1 RetB = "Databáze Access (*.mdb),*.mdb" 'dialog Otevřít SouborKOtevreni = Application.GetOpenFilename _ (RetA & "," & RetB) 'test If SouborKOtevreni <> False Then 'Akce MsgBox SouborKOtevreni End If End Sub Tím, ale moje umění záhy skončilo, mohl by mě někdo z Vás nasměrovat jak dál? Moc si nevím rady. Moc děkuju!

Když mi trochu víc rozepíšete, jak přesně chcete, aby to fungovalo, tak Vám poradím. Z toho zadání výše to, přiznávám, není úplně jasné.Zkuste to popsat krok za krokem a já Vám to vrátím v kódu.