Hi Stephan, thank you for your prompt message.
I tried VISIBLE = TRUE also. It shows the the link "LINK", but I do not see the contents. The problem seems to be to get the contents into a defined cell. Apparently, I have to enlarge the size of the cell. Is there a method to transfer the contents of the web-page of the cess from my spreadsheet table to CSV-format file. Once I can achieve this I can solve the problem. I checked all IE-internetoptions and Options of OOo with no luck. Do I have to set certain parameters when I load OpenOffice? Have a nice week. Regards, Rudi ----- Original Message ----- From: "Stephan Wunderlich" <[EMAIL PROTECTED]> Newsgroups: openoffice.api.dev To: <[email protected]> Sent: Friday, February 17, 2006 11:05 AM Subject: Re: [api-dev] Unanswered Request - Fw: [api-dev] HTML and Spreadsheet - BASIC > 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] > --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
