Macro per aggiornare automaticamente il foglio Calc

[Piergiorgio]

Buon Pomeriggio ragazzi!

Questa volta vi chiedo aiuto per qualcosa che per me è completamente sconosciuta, ossia le Macro.

Nel foglio allegato ci sono i prezzi di chiusura dell' indice Nikkei, e il sito da dove si possono prendere i dati di chiusura.
Il mio intento sarebbe quello di creare una Macro che ogni settimana scarichi il nuovo prezzo settimanale, in modo tale che io non debba farlo a mano, in quanto non è l' unico indice sul quale intendo applicarlo ed essendo molti, perderei molto tempo.

Potete aiutarmi?

Se qualcosa non è chiaro, ditemelo!

Grazie!

[charlie]

Sarebbe meglio chiamare le cose con il loro nome: Calc (titolo modificato)

[Piergiorgio]

Hai ragione! Scusa!

[charlie]

L'argomento non è nuovo, già viste le soluzioni proposte?

[patel]

prova questa macro

Codice: Seleziona tutto

Sub importtext 
Dim Doc as Object, Sheet as Object
   fileName = "http://real-chart.finance.yahoo.com/table.csv?s=%5EN225&a=00&b=1&c=2008&d=01&e=28&f=2015&g=w&ignore=.csv"
   Doc = thisComponent
   Sheet = Doc.Sheets.getByName("Foglio1")
      sURL = ConvertToURL(fileName)
      sOrigin = ""
      sFilter = "Text - txt - csv (StarCalc)"
      sOpc = "44, , , ," '"59/44,34,ANSI,1,"
      nModo = com.sun.star.sheet.SheetLinkMode.NORMAL
      Sheet.link(sURL, sOrigin, sFilter, sOpc, nModo)
      Sheet.setLinkMode(com.sun.star.sheet.SheetLinkMode.NONE)
End Sub 

[Piergiorgio]

Ciao Patel, grazie, lo provo subito!

[Piergiorgio]

Ciao Charlie, no non ho visto soluzioni già proposte, adesso provo a cercarle.