I am trying to download yahoo finance data into a calc sheet. I have found the code however it loads the data into a new file. Is there anyway to load these datas into an exsisting sheet?
Here the two options I have tried so far:
Code: Select all
Sub Main
getStockInfo( array("AAPL", "GOOG"))
End Sub
Sub getStockInfo(iCompanySymbols)
Dim oUrl as String
Dim oDoc as Object
Dim oFrame as Object
Dim oSymbols as String
Dim oFields as String
Dim oPropertyValue(0) as New com.sun.star.beans.PropertyValue
REM oDoc = ThisComponent
oFrame = ThisComponent.getCurrentController().getFrame()
oSymbols = join (iCompanySymbols, "&s=")
oFields = "sl1d1t1c1ohgv"
oUrl = "http://download.finance.yahoo.com/d/quotes.csv" & "?s=" & oSymbols & "&f=" & oFields & "&e=.csv"
REM example http://download.finance.yahoo.com/d/quotes.csv?s=AAPL&f=sl1d1t1c1ohgv&e=.csv
oPropertyValue(0).Name = "FilterOptions"
oPropertyValue(0).Name = "44" 'Comma separated tab
oDoc = oFrame.loadComponentFromURL(oURL, "_self", 0, oPropertyValue())
End Sub
Code: Select all
Sub Main
getStockInfo( array("CGA", "GOOG"))
End Sub
Sub getStockInfo(iCompanySymbols)
Dim oUrl as String
Dim oDoc as Object
Dim oFrame as Object
Dim oSymbols as String
Dim oFields as String
Dim oPropertyValue(0) as New com.sun.star.beans.PropertyValue
REM oDoc = ThisComponent
oFrame = ThisComponent.getCurrentController().getViewCursor()
oSymbols = join (iCompanySymbols, "&s=")
oFields = "sl1d1t1c1ohgv"
oUrl = "http://download.finance.yahoo.com/d/quotes.csv" & "?s=" & oSymbols & "&f=" & oFields & "&e=.csv"
REM example http://download.finance.yahoo.com/d/quotes.csv?s=AAPL&f=sl1d1t1c1ohgv&e=.csv
oPropertyValue(0).Name = "FilterOptions"
oPropertyValue(0).Name = "44" 'Comma separated tab
oDoc = oFrame.insertDocumentFromURL(oURL, oPropertyValue())
End Sub
Any solution?
Super thanks for helping
M