Příspěvky uživatele

Ahoj, tuto funkci Excel nabízí.
Mám tu verzi 2007 tak Ti to popíšu na ní.
Na kartě "Data" z pole "Načíst externí data" vybereš "z webu". Otevře se něco jako prohlížeč, kde si vybereš web z kterého chceš "tahat" data. Bohužel KB mi to nebere, u ČNB (http://www.cnb.cz/cs/index.html) to jde.

Po pravé straně je kurzovní lístek a u něj malá šipka na žlutém podkladu. Po kliknutí se změní na zatržítko. Poté stačí kliknout na "Importovat". Excel se zeptá na umístění, ještě než to potvrdíš jdi na tlačítko "Vlastnosti" kde si nastavíš jak se mají data aktualizovat a je hotovo.

Snad sem to popsal srozumitelně

EDIT:
tady to máš i s obrázky http://www.office4you.cz/rady-a-navody-ms-excel/260-excel-import-dat-z-internetu.html

Ošetření chyby. (31.5.2011 20:35)

Tak se mi po dlouhém boji podařilo dosáhnout kýženého výsledku. Sice to nejí nejelegantnější ani nejlepší řešení, ale hlavní je, že funguje

Private Sub CommandButton1_Click() 'vloží nový list
Application.ScreenUpdating = False
x = Application.InputBox("Zadejte jméno nového listu", "Vložení nového listu")
If x = vbNullString Or x = False Then
Exit Sub
End If

On Error GoTo chyba2
Sheets.Add after:=Worksheets(1)
ActiveSheet.Name = x
Sheets("index").Select
Sheets(x).Select
Exit Sub

chyba2:
Application.DisplayAlerts = False
MsgBox "List s požadovaným názvem již existuje !!", vbExclamation, "Duplicita názvu listu"
ActiveSheet.Delete
Sheets("index").Select
Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

Tímto bych chtěl poděkovat všem zůčastněným za jejich rady a náměty.

Ošetření chyby. (30.5.2011 22:32)

Díky chlape za rychlou reakci. Tak sem ten Tvůj kód vyzkoušel a funguje, bohužel né tak jak sem si představoval, že bude. Ten sešit bude využívat více lidí, proto se snažím udělat to co možná nejvíce "blbuvzdorné". Situace je taková, že zadám jméno přes inputbox (např: Leden)- vytvoří se list a pokud se pokusím zadat stejné jméno (Leden), tak se ukáže msgbox s upozorněním a makro se ukončí to je super, ale když v sešitu zůstanou defaultně vložené listy (3 - List1, List2, List3) a uživatel zadá např do inputboxu "List2" tak opět přijde havárie.
Taková kravina s vkládáním listů a člověk nad tím stráví věčnost.

Nemáš tucha jestli by se dala ošetřit i tato situace nebo už toho chci moc?
Díky za Tvůj čas strávený nad takovou ptákovinou.

Ošetření chyby. (30.5.2011 18:21)

Ahoj potřeboval bych pomoct s ošetřením chyby v makru, které mi vkládá nový list od sešitu. Už si s tím nějakou dobu hraju a nedaří se.
Situace: Pomocí tlačítka vyvolám inputbox, do kterého uživatel napíše požadovaný název listu a list se vytvoří - to mi běhá bez problému. Situace se ovšem změní když by se zadal název listu, který už je v sešitu obsažen (duplicita). Tady makro havaruje. Snažil sem se tuto situaci řešit, ale né zcela úspěšně.
Prosím o radu nebo nakopnutí správným směrem. Díky

Private Sub CommandButton1_Click() 'vloží nový list
Application.ScreenUpdating = False
x = Application.InputBox("Zadejte jméno nového listu", "Vložení nového listu")
If x = vbNullString Or x = False Then
Exit Sub
End If

Sheets.Add after:=Worksheets(1)
ActiveSheet.Name = x
Sheets("index").Select
Sheets(x).Select

Application.ScreenUpdating = True

End Sub