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?