MS Excel

- vytvorím novú kópiu „Martin_1.xlsm“ ktoréj názov určuje hodnota v bunke B1 => „Firma_A.xlsm“
- po vyplnení súboru „Firma_A.xlsm“ potrebujem niektoré hodnoty z buniek tohto súboru v kopírovať (ako hodnoty) do môjho pôvodného súboru „Martin_1.xlsm“. (na ďalšie spracovanie, vyhodnotenie)
Otvorenie súboru „Firma_A.xlsm“ priamo z „Martin_1.xlsm“:
(info: v prílohe je nastavené makro „Otvor“)

No nech skúšam čokoľvek, neviem prísť na spôsob ktorým by som dokázal z konkrétnych buniek suboru „Firma_A.xlsm“ kopírovať hodnoty do „Martin_1.xlsm“.
Keďže názov „Firma_A.xlsm“ je v podstate premenná.

ďakujem za pomoc
Martin

Zaslat odpověď >

Pavlus(28.2.2013 22:35)#011949

Nevím jestli ti rozumím, ale jak píšeš, je to proměnná, tak do kódu nepiš "natvrdo" jméno, ale dej tam odkaz na buňku.
P.

Př.:
Odkazování na otevřený sešit:Workbooks(Range("B1").Value).Sheets("List1").Range("E5").ValueDynamický název souboru:nazev_souboru = Range("B1").Value & ".xlsm"citovat

Martin.B(6.3.2013 16:21)#012098

Dobrý deň,
ďakujem za radu. funguje to super. (dokonca sa nemusím zaoberať odklikávaním tlačidiel v nejakom „Open okne“)

V prílohe je graf spracovaný ako Tacho. dá sa nadradiť aj obyčajným „koláčovým grafom, takže 100% použiteľné aj v starých verziách Excelu. možno sa to niekomu zíde.

otázočka:
ak použijem: ActiveWindow.SelectedSheets.Delete tak musím potvrdiť (dať súhlas) na dokončenie makra. stlačiť „súhlasím“ / „OK“. nedá sa to nejako obýsť. skúšal som niečo ako True na konci no nič.

Ďakujem

Příloha: zip

12098_tacho.zip (74kB, staženo 27x)

citovat

eLCHa(6.3.2013 16:36)#012099

Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = Truecitovat

Téma: Open *.xlsm kde meno = hodnota bunky

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje