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
--
To unsubscribe e-mail to: users+unsubscr...@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
