Příspěvky uživatele

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é.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje