» Poradna » Programy

Excel – VBA, práce s vloženým objektem „List“

 |   | 

Dobrý večer,
potřeboval bych poradit s tímto problémem: mám excelovský soubor (Soubor1), kde počítám jistý finanční model. Chci v něm využít „mezivýsledek" z jiného excel. souboru (Soubor2, obsahuje 3 listy), a to asi takhle:
Na pomocný list v Souboru1 jsem vložil objekt Soubor2, nepropojený, jako ikonu (přes menu Vložit/Objekt/Vložit ze souboru).
V proceduře VBA umím tento vložený objekt najít, aktivovat (tím se mi otevře nové okno s titulkem „List v ‘název Souboru1‘ “), zadat vstupní parametry pro výpočet mezivýsledku a výsledek si zapamatovat/předat do Souboru1, ale pak nevím, jak mám zavřít to okno s vloženým objektem?

Příklad asi takto:

Sub MakroPokus()
jmeno = ActiveWorkbook.Windows(1).Caption 'titulek okna se Souborem1

'otevře se nové okno s vloženým objektem Soubor2:
ActiveSheet.Shapes("Object 1").Select
Selection.Verb Verb:=xlPrimary

'výpočet mezivýsledku:
Range("F11").Value = 28
Range("F17").Value = 1000000
vysledek = Sheets(2).Range("H10").Value

'Aktivuji Soubor1:
Windows("4bn_pomucka_se_zmenou_a_hypo_200807_bez hesla.xls").Activate

'??? jak nyní zavřu okno se Souborem2
End Sub

Help mi moc nepomohl a na webu nevím, jaké bližší heslo hledat ...
Poradíte někdo?

Mohlo by vás také zajímat

Odpovědi na otázku

 |   | 

aktivuj Subor2
a potom:

Application.DisplayAlerts = False = pre zatvorenie bez upozornenia
Application.DisplayAlerts = True = pre zatvorenie s upozornenim

ActiveWorkbook.Close

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: List, Nové okno, Objekt, Vložený objekt, Finanční model


Určitě si přečtěte

Nejlepší notebooky do 20 000 Kč. Tipy, co se dnes vyplatí koupit

Nejlepší notebooky do 20 000 Kč. Tipy, co se dnes vyplatí koupit

** S cenou do 20 tisíc lze vybrat solidní notebook na práci i hry ** Přenosné notebooky nabídnou i kovová těla a rychlý hardware ** Možná největší problém je nedostupnost, nejžádanější kusy jsou vyprodané

David Polesný | 36

David Polesný
VánoceNotebooky
Čestné prohlášení při cestě mimo okres může být i elektronické. Stačí k tomu mobil
Lukáš Václavík
COVID-19eGovernmentDoprava
Dostali jste nový počítač? Tohle s ním udělejte, než ho začnete používat

Dostali jste nový počítač? Tohle s ním udělejte, než ho začnete používat

** Každý nový počítač si zaslouží počáteční péči ** Odinstalujte bloatware a nezapomeňte na vhodné nastavení ** Poradíme, jak se o počítač s Windows 10 postarat

David Polesný, Stanislav Janů | 76

David PolesnýStanislav Janů
PočítačeNotebooky
Konec modrých obrazovek smrti? Microsoft vydává mimořádnou aktualizaci pro Windows 10
Karel Kilián
Windows UpdateAktualizaceWindows 10
Jak zaznamenat dění na obrazovce: našli jsme 5 nejlepších programů

Jak zaznamenat dění na obrazovce: našli jsme 5 nejlepších programů

** Nahrávat dění lze snadno a kvalitně i zdarma ** Některé programy zvládnou i streaming na videoservery ** U placených se dočkáte nadstandardních funkcí

Vladislav Kluska | 20

Vladislav Kluska
Nejlepší programySoftware
Týden Živě: On fakt dnes ještě někdo stahuje filmy z Ulož.to?

Týden Živě: On fakt dnes ještě někdo stahuje filmy z Ulož.to?

** Kauza Ulož.to a proč my dva už (moc) newarezíme ** Windows 10X existují, ale nabízí se otázka proč ** Nissan ukázal vizi kanceláře v podobě karavanu

Jakub Čížek, Vladislav Kluska | 152

Jakub ČížekVladislav Kluska
Týden ŽivěVideo
9 nejlepších českých webů, kde lze stáhnout filmy a seriály

9 nejlepších českých webů, kde lze stáhnout filmy a seriály

** Když selžou legální zdroje, můžete se zkusit obrátit na služby pro stahování souborů ** Ulož.to není zdaleka jediné, které nabízí videoobsah ke stažení ** Konkurenční služby nabízí levnější placené účty

redakce | 112

redakce
TipyHudba, filmy, seriályWeb