Hi Rudolf,
your basic code inserts an invisible sheet to host your weblink ...
changing the line
oSheet.IsVisible = FALSE
to
oSheet.IsVisible = TRUE
should show you the sheet "Link" with the data inside.
Hope that helps
Regards
Stephan
Hello,
since I did not get a response to my question below I try again. Also I
tested numerous variations to handle
the "LINK" in connection with various filters to store the contents of a
web-page in a file of "CSV" format,
I was not successful up-to-now. Maybe somebody can help me.
Have a nice week-end.
Rudi
----- Original Message -----
From: "Rudolf Huber" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Wednesday, November 16, 2005 9:15 AM
Subject: [api-dev] HTML and Spreadsheet
Hello,
I am trying to get the following routine with the functions HTTP and
Spreadsheet to run under OOo 1.1.4. Neither the HTML- nor the
CSV-filter-options function. When I look at the spreadsheet I see no
link;
however, when I check the menue Edit-Sheet-Select the sheet names show the
LINK for the HTML-page. Although the following lines show the entire
routine,
only the last ten lines are really important:
=================================================================
REM ***** BASIC *****
Option Explicit
Const STOCK_COLUMN = 2
Const STOCK_ROW = 7
Sub Main
GetHyperllinkT
End Sub
Sub GetHyperlinkT
Dim Desktop As Object
Dim sName As String
Dim oDoc As Object
Dim NoParm()
Dim oSheets As Object
Dim oSheet As Object
Dim oRanges As Object
Dim oCells As Object
oDoc = ThisComponent
oDoc.addActionLock
oSheets = oDoc.Sheets(0)
Desktop = CreateUnoService("com.sun.star.frame.Desktop")
oSheets = oDoc.getSheets()
If oDoc.Sheets.hasByName("Link") Then
oDoc.Sheets.removeByName("Link")
End If
sName = "AMD"
Dim sUrl As String, sFilter As String
Dim sOptions As String
oSheets = oDoc.Sheets
If oSheets.hasByName("Link") Then
oSheet = oSheets.getByName("Link")
Else
oSheet =
oDoc.createInstance("com.sun.star.sheet.Spreadsheet")
oDoc.Sheets.insertByName("Link", oSheet)
oSheet.IsVisible = FALSE
End If
sUrl = "http://finance.yahoo.com/q?s="; + sName rem +
".html"
sFilter = "HTML (StarCalc)"
sOptions = ""
rem sFilter = "Text - txt - csv (StarCalc)"
rem sOptions =
"44,34,SYSTEM,1,1/10/2/10/3/10/4/10/5/10/6/10/7/10/8/10/9/10"
oSheet.link(sURL, "Link", "", "",
com.sun.star.sheet.SheetLinkMode.NONE)
oDoc = Desktop.loadComponentFromURL(sUrl, "_blank", 0, NoParm())
oSheet = oSheets.getByIndex(0)
If oSheets.hasByName("Link") Then
oSheet = oSheets.getByName("Link")
MsgBox "sheet o.k."
else
MsgBox "no sheet"
oSheet =
oDoc.createInstance("com.sun.star.sheet.Spreadsheet" )
oDoc.Sheets.insertByName( "Link", osheet )
End If
End Sub
============================================================================
==============
I have no problem to store the HTML-page as a normal text-file under IE
6.0.
Maybe, I have the incorrect parameter settings for OOo 1.1.4, which
prevent
the display of the web-page in the sheet.
Thanks.
Rudi
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
