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]
