Re: [libreoffice-users] opening file via macro failes

Download AndrewBase.odt

Listing 41 (ShowFlatDriverArgs) will display the supported arguments. In 
fact, just before the listing, there is a button that you can click in 
the document that will run the macro and display the arguments for you.

The macro may be structured such that the file must exist on disk 
because it calls methods like GetSourceCodeDir and LoadDBLibs. Check it 
out and let us know if you are not able to run it.

I have not looked at this in a few years, so my memory is a bit vague, 
but, it should help....

http://www.pitonyak.org/database/AndrewBase.odt


On 02/26/2014 11:01 AM, Niklas Johansson wrote:
> Hi HP
>
> So first of all I tried your macro with the LibreOffice 4.2.0 and did 
> not experience any problems, once I set up a valid url of course. I 
> used the following code.
>
> Sub TryToOpenCsvFromTheInternet
>    Dim loadArgs2(1) as New com.sun.star.beans.PropertyValue
>
>    lurl = 
> "http://download.finance.yahoo.com/d/quotes.csv?s=%40%5EDJI,GOOG&f=nsl1op&e=.csv";
>    lsfo = "44/32,34,ANSI,2,"
>
>    loadArgs2(0).Name = "FilterName"
>    loadArgs2(0).Value = "Text - txt - csv (StarCalc)"
>    loadArgs2(1).Name = "FilterOptions"
>    loadArgs2(1).Value = lsfo
>
>    lDoc = StarDesktop.LoadComponentFromURL(lurl,"_blank",0,loadArgs2())
>    lSheet = lDoc.Sheets().getByIndex(0)
> End Sub
>
>
> When it comes to the documentation of the filter options this is 
> probably as close as you get:
> https://wiki.openoffice.org/wiki/Documentation/DevGuide/Spreadsheets/Filter_Options#Filter_Options_for_the_CSV_Filter 
>
>
> There is also a simple and effective way to find out different 
> options, as described by Villeroy [1]
>
> <quote>
> Open the csv manually with all bells and whistles. Then run the 
> following code and copy the FilterOptions.
>
> |Sub showFilterOptions()
> Dim args(),i%
>    args() = ThisComponent.getArgs()
>    for i = 0 to uBound(Args())
>       if args(i).Name = "FilterOptions" then inputbox 
> args(i).Name,"",cStr(args(i).value)
>    next
> End Sub|
> <end of quote>
>
> [1] http://140.211.11.67/en/forum/viewtopic.php?t=58105&p=256500#p256500
>
> Med vänlig hälsning
> Niklas Johansson
>
> HP4 skrev 2014-02-25 16:57:
> > Hi,
> > I can't find any information on how to set the arguments for
> > "LoadComponentFromURL" when loading a csv-file via macro over the 
> > network.
> > The example below worked fine with OpenOffice some time ago, but yields
> > exceptions when running it with LibreOffice because the function call
> > returns a NULL pointer. So my question:
> >
> > - where can I find a list of valid filters for LibreOffice?
> > - what arguments do I have to provide to read csv-files?
> >
> > The available documentation in the API on how to supply these 
> > arguments is
> > useless when it doesn't provide the allowed values or a hint how to
> > construct them. Also I couldn't find any helpful information via Google.
> >
> > BR
> > HP
> > --------------------------------------------------------------------
> > Sub Main
> >     Dim loadArgs2(1) as New com.sun.star.beans.PropertyValue
> >
> >     lurl = "http://domain.org/file.csv";
> >     lsfo = "44/32,34,ANSI,2,"
> >
> >     loadArgs2(0).Name = "FilterName"
> >     loadArgs2(0).Value = "Text - txt - csv (StarCalc)"
> >     loadArgs2(1).Name = "FilterOptions"
> >     loadArgs2(1).Value = lsfo
> >
> >     lDoc = StarDesktop.LoadComponentFromURL(lurl,"_blank",0,loadArgs2())
> >     lSheet = lDoc.Sheets().getByIndex(0)
> > End Sub

--
Andrew Pitonyak
My Macro Document: http://www.pitonyak.org/AndrewMacro.odt
Info:  http://www.pitonyak.org/oo.php


--
To unsubscribe e-mail to: users+unsubscribe@global.libreoffice.org
Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/global/users/
All messages sent to this list will be publicly archived and cannot be deleted