Strona 1 z 1

Marko importujace dane XML z url

PostNapisane: Pt paź 05, 2012 1:09 pm
przez eerozeteen
Witam,

Potrzebuje pomocy przy dodaniu funkcjonalnosci do istniejacego marka, ktore znalazlem w internecie. Makro ma za zadanie wypelnic arkusz danymi z pliku .xml z url. Oczywisice odpowiedni filtr xml mam zapisany.

Aktualnie makro działa tak, ze przy uruchomieniu, otwiara nowy dokument i dane wprowadza w arkuszu o nazwie "" (null)

Chcialbym, aby makro zapisywało dane we wskazanym arkuszu (nazwa "na sztywno" w makrze) w aktualnie otwartym pliku.

Kod: Zaznacz cały   Rozszerz widokZwiń widok
Sub GetEveCentralPrices

rem -------------------------------------------------------
rem - Init import URL
dim xmlurl as string
xmlurl = "http://api.eve-central.com/api/marketstat?typeid=34&typeid=37&typeid=38&regionlimit=10000002"

rem -------------------------------------------------------
rem - Import payments
dim properties(0) as new com.sun.star.beans.PropertyValue
properties(0).Name = "FilterName"
properties(0).Value = "MarketStat"

dim doc As Object
doc = StarDesktop.loadComponentFromURL(xmlurl, "_blank", 0, properties())

End Sub


Nie musi to byc jakieś gotowe rozwiązanie, moze to byc przyklad i ewentualnie podpowiedz jak to zrobic i jakiej funkcji uzyc, i jak ewentualnie wtedy sobie nie poradzę to poprosze o gotowe rozwiazanie ;)

Pozdrawiam

Re: Makro importujace dane XML z url

PostNapisane: Pt paź 05, 2012 9:06 pm
przez Jan_J
Wg mnie trzeba by linkować Twój URL do obszaru w istniejącym albo nowo wstawionym arkuszu.
Znajdziesz coś podobnego w http://www.oooforum.org/forum/viewtopic ... ht=#365860. Jedyne różnice, to wg mnie używać adresu URL zamiast file i Twojego filtra zamiast tekstowego "Text - txt - csv (StarCalc)".

Inna metoda to wczytać dane do pliku tymczasowego, nawet bez pokazywania go, a potem przekopiować je w pożądane miejsce. Ukrytą ramkę zrobisz np. tak:
Kod: Zaznacz cały   Rozszerz widokZwiń widok
url = ....
dim properties(1) as new com.sun.star.beans.PropertyValue
properties(0).Name = "FilterName"
properties(0).Value = "Text - txt - csv (StarCalc)" ' albo inny
properties(1).Name = "Hidden"
properties(1).Value = True
dim doc As Object
doc = StarDesktop.loadComponentFromURL(url, "_blank", 0, properties())