Příspěvky uživatele
< návrat zpět
Zdravím všechny, mám tady funkční kód na stahování a otevírání obrázků z adresy http prostřednictvím VBA v excelu.
Obrázek se stáhne a otevře prostřednictvím IE což mě nevyhovuje, je možnost využít nějaký objekt ve vba k tomu, aby se mi obrázek přímo otevřel ve výchozím programu např. prohlížeč fotografií tj. bez použití IE.
Děkuju
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Path As String, s As String
'první část odkazu
Path = "http://1.7.13.4:6464/PumpaServer/get_doc.pl?doc_id="
If Not Intersect(Target, Range("J6:J100")) Is Nothing And Target.Count = 1 Then
If IsNumeric(Target) And Len(Target) > 0 Then
'druhá část odkazu
s = Left(Target, Len(Target) - 2)
'otevrit odkaz
ActiveWorkbook.FollowHyperlink Path & s
End If
End If
End Sub
Děkuju za pomoc, pomohlo to, jen my není pořád jasné proč prochází všechny datumy a neoznačí přímo poslední. Ještě budu pátrat. Pěkný den MArek
Zmenšil jsem výběr datumů z databáze na třicet dní. Makro postupně projede všechny dny až k dnešnímu datu a potom začne přepočítávat, ale vůbec nevím co.
Díky za nakopnutí.
Už jsem na to přišel, dělá to co chci, jen je problém, že to dělá cca 20 s, protože to prochází všechny datumy, které jsou v průřezu. Víte jak by to šlo zrychlit?
Sub GroundHogDay()
Dim today As Date
today = Now
Dim todayString As String
todayString = Format$(today, "yyyy-mm-dd")
Dim item As SlicerItem
ThisWorkbook.SlicerCaches("Průřez_ProcessingDate").ClearManualFilter
With ActiveWorkbook.SlicerCaches("Průřez_ProcessingDate")
'earliest data available in the data
.SlicerItems("2015-02-16").Selected = True
End With
For Each item In ThisWorkbook.SlicerCaches("Průřez_ProcessingDate").SlicerItems
If item.Name = todayString Then
item.Selected = True
Else
item.Selected = False
End If
Next item
ThisWorkbook.RefreshAll
End Sub
Pro názornost přikládám soubor.
Zdravím dnes po druhé, mám KT kde se data aktualizují při otevření a potom co 60 min. Jakmile soubor uzavřu a příští den otevřu tak data se aktualizují, ale dnešní datum není označený jako aktuální, označení je včerejší tj. musím pokaždé na něj kliknout, aby se mi načetla za tento aktuální datum data. Šlo by toto vyřešit tak, že po otevření souboru vy byl označený poslední datum v KT? Díky MArek
Vyřešeno:
SELECT CAST(DatExp AS date)
[DatExp]
,[IDDokumentu]
.
.
.
..
Díky.
Když tam dám čárku tak se mi vypíše asi 30 položek s datumem a časem za poslední tři dny a mě by přitom stačili tři datumy.
Zdravím, mám menší problém: z MS SQl databáze získávám data do KT viz obrázek v zipu. Text příkazu získávání dat je uvedený v txt v zipu.
Hned na prvním řádku mám:
SELECT CONVERT (DATE, GETDATE())
[DatExp]
což mi převádí datum a čas ze sloupce DatExp z databáze (2015-02-18 10:57:30.000) na dny 2015-02-18.
Poslední řádek:
WHERE DatExp >= dateadd(day,datediff(day,0,GETDATE()),-3)
mě bere údaje za poslední tři dny.
Můj problém je ten, že v průřezu KT vidím datum jen za poslední den 2015-02-18, ale já bych chtěl vidět datumy tři tj. poslední tři dny.
Děkuju za pomoc Marek
Děkuju je to super. Existuje něco ve vba co by zobrazilo výsledek toho odkazu, ať nemusím používá t IE.
Jestli to chápu dobře tak to nepůjde, protože ty řádky jsou součástí KT a počet řádků se může měnit v rozmezí od H7-H30.
mám dotaz
V sloupci H7 - H30 čísla.
1234567891
1231231233
1010203010
Potřeboval bych při kliknutí na buňku s číslem spustit makro, které spustí http odkaz a zároveň do id odkazu dosadí číslo z buňky na kterou jsem klikl, ale bez posledních dvou čísel.:
např:
http://08.15.40.22:0603/tralala/get_doc.pl?doc_id=12345678
Výsledek by se měl Zobrazit v IE.
Děkuju za pomoc.
Marek
Vřelé díky. Ať se Vám to tisíckrát vrátí. Marek
V příloze zasílám příklad s KT, pokud rozkliknete Popisky řádků v KT a vyberete např. jen Jmeno3 tak se vybarveni rozhodí a pokud to dáte vše zpět tak jen jeden sloupec je vybarvený.
Ještě připojuju přílohu, kde je to líp čitelné.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články