Odpovím si sám, snad má odpověď ušetří v budoucnu čas někomu dalšímu, kdo bude řešit něco podobného.
Jedná se o stránky s AJAX Javascriptem. Na netu jsou dost složité návody, jak jej obejít, mně nakonec fungovalo celkem primitivní řešení. Protože bylo potřeba "fyzicky" (=klávesnicí) zadat nějaký znak do políčka, napadla mne emulace klávesnice.
Ve Win7 sice asi opravdu ve VBA nefungují kombinace CTRL+C a CTRL+V, a nepodařilo se mi je rozchodit ani úpravou registru, jak zněla rada a porada z netu, avšak funkce "Sendkeys" funguje, takže mohu použít následující:
IE.Document.forms("searchForm").Item(3).Value = cell.Value
IE.Document.forms("searchForm").Item(3).Click
Application.wait (Now + TimeValue("0:00:01"))
Sendkeys " "
V podstatě jsem jenom za vloženou hodnotu z buňky Excelu přidal "jakože fyzickým" stiskem mezeru (kterou vyhledávač následně ignoruje)a vyhledávací formulář vyhledává
Netvrdím, že se jedná o univerzální řešení, v každém případě alespoň mně funguje dobře. Též je možné použít následující:
Sendkeys cell.Offset(0, 1).Value, True
Sendkeys "Tomáš"
V prvním případě "úhoz po úhozu" napíše VBA do formuláře obsah buňky, v druhém případě napíše statický text.citovat
Jedná se o stránky s AJAX Javascriptem. Na netu jsou dost složité návody, jak jej obejít, mně nakonec fungovalo celkem primitivní řešení. Protože bylo potřeba "fyzicky" (=klávesnicí) zadat nějaký znak do políčka, napadla mne emulace klávesnice.
Ve Win7 sice asi opravdu ve VBA nefungují kombinace CTRL+C a CTRL+V, a nepodařilo se mi je rozchodit ani úpravou registru, jak zněla rada a porada z netu, avšak funkce "Sendkeys" funguje, takže mohu použít následující:
IE.Document.forms("searchForm").Item(3).Value = cell.Value
IE.Document.forms("searchForm").Item(3).Click
Application.wait (Now + TimeValue("0:00:01"))
Sendkeys " "
V podstatě jsem jenom za vloženou hodnotu z buňky Excelu přidal "jakože fyzickým" stiskem mezeru (kterou vyhledávač následně ignoruje)a vyhledávací formulář vyhledává
Netvrdím, že se jedná o univerzální řešení, v každém případě alespoň mně funguje dobře. Též je možné použít následující:
Sendkeys cell.Offset(0, 1).Value, True
Sendkeys "Tomáš"
V prvním případě "úhoz po úhozu" napíše VBA do formuláře obsah buňky, v druhém případě napíše statický text.citovat
RSS nejnovější články