Inserire Dati Web in un Foglio Elettronico

[Mandrake]

Ciao ragazzi,

Scuse in anticipo se la richiesta puo sembrare stupida, ma effettivamente per me sta diventando un po complicato trovare la soluzione.

Ho trovato una macro che permette di scricare tabelle da siti internet. La macro, tuttavia, scarica la tabella partendo dalla cella selezionata tramite il mouse. Mi interesserebbe scaricare la tabella partendo da una determinata cella. Ho provato questo, ma non mi funziona.

Codice: Seleziona tutto

Sub InserTest(url As String)
   Dim oDoc As Object
   Dim oSheet As Object
   Dim oCell As Object
   Dim oAddress As new com.sun.star.table.CellAddress
   
   oDoc = ThisComponent
   oSheet = oDoc.Sheets.getByName("Sheet2")
   if oSheet.supportsService("com.sun.star.sheet.SheetCell") then
      oAddress = oSheet.getCellRangeByName("A9")
      oCell.AreaLinks.insertAtPosition(oCell,url,"HTML_5","calc_HTML_WebQuery","0 0")
   endif

Questo e' il codice originale

Codice: Seleziona tutto

Sub Insert(url As String)
   Dim oDoc As Object
   Dim oSelection
   Dim oAddress As new com.sun.star.table.CellAddress
   
   oDoc = ThisComponent
   oSelection = oDoc.getCurrentController().getSelection()
   if oSelection.supportsService("com.sun.star.sheet.SheetCell") then
      oAddress = oSelection.getCellAddress()
      oDoc.AreaLinks.insertAtPosition(oAddress,url,"HTML_5","calc_HTML_WebQuery","0 0")
   endif

End Sub

Qualche suggerimento?

Grazie

[patel]

Codice: Seleziona tutto

sub Insert(url As String)
   Dim oAddress As new com.sun.star.table.CellAddress
   oDoc = ThisComponent
   oSheet = oDoc.Sheets.getByName("Foglio1")   
   oAddress = oSheet.getCellRangeByName("A9").getCellAddress()
   oDoc.AreaLinks.insertAtPosition(oAddress,url,"HTML_5","calc_HTML_WebQuery","0 0")
End Sub

se non funziona fornisci un url da testare

[Mandrake]

Ottimo! Grazie mille. Funziona alla perferione.

Grazie