• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Problem vyresen, bylo potreba nastavit kodovano na urovni odeslani poazadvku do webove sluzby

Zdravím,
v excelu mám vytvořené makro, které odesílá data do webové služby. Mám však problém, s tím, že pokud odešlu údaj s diakritikou do webové služby, tak po zpracování je zkomolená diakritika . Mohl by mi prosím někdo poradit jak problém vyřešit.

Dle mého názoru bude problém někde na úrovni kodování, webová služba má nastaveno encoding="utf-8"

Děkuji

Zdravím, mám macro v excelu ve kterém volám webovou službu. V odpovědi se mi mi však vrací chyba encryption error. Mohl by mi prosím někdo poradit? Děkuji

Public Sub httplogin()
 
Dim result As String
Dim xmlDoc As Object, post As Object
Dim sEnv As String
Set xmlDoc = CreateObject("MSXML2.DOMDocument")
Dim HTTPRequest As WinHttp.WinHttpRequest
Set HTTPRequest = New WinHttp.WinHttpRequest
sEnv = sEnv & "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"
sEnv = "<?xml version=""1.0"" encoding=""utf-8""?>"
sEnv = sEnv & "<soap:Envelope xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"
sEnv = sEnv & "<soap:Body>"
sEnv = sEnv & "<logUser xmlns=""http://www.webservice.com/Sws/"">"
sEnv = sEnv & "<LOGIN>user</LOGIN>"
sEnv = sEnv & "<PASSWORD>pass</PASSWORD>"
sEnv = sEnv & "</logUser>"
sEnv = sEnv & "</soap:Body>"
sEnv = sEnv & "</soap:Envelope>"
 
With HTTPRequest
.Open "POST", "http://server.com/webservice.asmx?WSDL&op=logUser", False
.SetRequestHeader "Content-Type", "text/xml; charset=utf-8"
.SetRequestHeader "Upgrade-Insecure-Requests", "1"
.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
.send sEnv
Debug.Print .responseText
 
End With
End Sub

Dobrý den,
v excelu mám vytvořené kontingeční tabulky, ze kterých mám nastavené průřezy (viz přiložený soubor. Po kliknutí na jméno se automaticky vyfiltrují data v listu5 a v listu6. Mohl by mi prosím někdo poradit jak vytvořit makro, které po kliknutí na tlačítko automaticky postupně projde všechny položky průřezu, následně dle názvu průřezu vytvoří soubor opatří heslem a uloží do PC.

V současné době mám na tuto operaci vytvořeny dvě makra. Postupně jednotlivě klikám na položky průřezu a opakovaně aplikuji makro zamknout a odemknout. Přiložený soubor je pouze ukázkou v reálu mám v průřezu nějaký 20 položek. Děkuji moc za pomoc.

Sub Zamknout()
Dim fname, fpath
fname = InputBox("enter a name")
fname = fname & ".xlsx"
Application.DisplayAlerts = False
ThisWorkbook.CheckCompatibility = False
ThisWorkbook.Protect Password:="mojeheslo", Structure:=True, Windows:=True
Dim wsh As Worksheet
For Each wsh In Worksheets
wsh.Protect Password:="mojeheslo"
Next wsh
fpath = "C:\soubory\"
ThisWorkbook.SaveAs fpath & fname, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True
End Sub

Sub Odemknout()
ThisWorkbook.Unprotect Password:="mojeheslo"
Dim wsh As Worksheet
For Each wsh In Worksheets
wsh.Unprotect Password:="mojeheslo"
Next wsh
End Sub

Zdravím, dle tohoto návodu http://wall.cz/nastenka/outlooku-automaticke-ukladani-prilohy jsem zprovoznil automatické ukládání přílohy do počítače. Problém mám však s tím, že se makro nespustí v případě, že outlook běží na pozadí a daný PC je zamknutý. Mohl by mi prosím někdo poradit, jak daný problém vyřešit. Děkuji

Děkuji za odpověď.
zajímají mě všechny sloupce v listech. Odkaz uvadim nize. Např. v listu celek se mi natáhla jen hodnota prvního sloupce, který se nachází v listu OCRaI a další sloupce už se nenatáhli. Ještě se chci zeptat zda je možné i nějak zkopírovat formát dat (např. pokud jsou údaje tučně...)

odkaz

zdravim,
mohl by mi prosim nekdo poradit s google tabulkami..v sesite mam 5 listu a potrebuji aby se mi udaje ze 4 listu propisovali do 5 listu, ve kterem by byl souhrn. zkousel jsem nize uvedeny kod, ale mam pocit ze se mi obcas neco nepropise

=QUERY({OMS!A2:I500;OI!A2:I500;OE!A2:I500} ; "select Col1 WHERE Col1 is not null")

dekuji

kliknout Alt-d-e-f? tomu nerozumím

super. Díky moc

Zdravím, používám Excel 2013. V dokumentu mám sloupeček datum, ve kterým chci filtrovat dle data. Problém však je v tom, že filtr vezme datum jako text. Pokud do buňky kliknu datum upravím, tak filtr již datumovou hodnotu pozná. Nešlo by to nějak hromadně upravit, abych nemusel do každé buňky klikat? děkuji
viz také příloha

zdravím, mám tabulku, ze které jsem následně vygeneroval graf. Dnes jsem v tabulce změnil hodnoty, ale graf zůstal beze změny. Může prosím někdo poradit co mám udělat pro to, aby se mi i hodnoty v grafu zaktualizovali.

Děkuji

Zdravím, v aplikaci MS OUTLOOK 2013 mám ve veřejných složkách nasdílený kalendář. Můžete mi prosím poradit macro, jak z kalendáře získat data a uložit je do excelu (případně do CSV nebo ICS). Export by měl probíhat pravidelně (ideální by byl skript, který by se dal spouštět pomocí naplánované úlohy)

Ve vlastnostech sdílené složky je cesta ke složce následující
\kalendař\plocha

Děkuji

Zdravím, v excelu mám číslo 859182400200712000
a potřebuji ho přepsat na 859182400200712247. Po změně čísla mi však excel místo koncového čísla 247 napíše opět jen 000. Nevíte čím by to mohlo být?

Problematický soubor přikládám.

Děkuji

Moje druha priloha obsahuje upravena data vcetne sloucenych bunek..kdyz ctu vsechny prispevky tak nikde jsem nepsal ze mam sloucene zdrojove bunky

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse