Hello to All,
I have an already working code to open files in my own pc.
When I modify this code to download a list of files from web, it gives me various errors.
There are urls on column A. And new names I give them are on column B.
I want to save and rename bunch of csv files with one click, The same code could open files from a directory.
I have modified it to open urls. But I could not manage it work. It might seem a bit confusing but I left it intentionally this way so may be some might see the point I make mistake(s)
Thanks in advance to whomever honours my question with their replies.
REM ***** BASIC ***** Global oDocument as Object Global Fname as string Global fnURL as string Sub OpenData dim i as integer Dim oSheet as object Dim oCell1 as object oDocument = ThisComponent oSheet = oDocument.getCurrentController.getActiveSheet i = 0 oCell1 = oSheet.getCellByPosition(i,0) while oCell1.Type <> com.sun.star.table.CellContentType.EMPTY i = i+1 oCell1 = oSheet.getCellByPosition(i,0) 'Create new document and import data oDocument = StarDesktop.LoadComponentFromURL( fnURL, "_blank", 0, _ Array(MakePropertyValue( "FilterName", "Text - txt - csv (StarCalc)" ), _ MakePropertyValue( "FilterOptions", "44,34,0,1,1" ) wend fnURL=oCell1.string End Sub 'property function Function MakePropertyValue( Optional cName As String, Optional uValue ) As com.sun.star.beans.PropertyValue oPropertyValue = createUnoStruct( "com.sun.star.beans.PropertyValue" ) If Not IsMissing( cName ) Then oPropertyValue.Name = cName EndIf If Not IsMissing( uValue ) Then oPropertyValue.Value = uValue EndIf MakePropertyValue() = oPropertyValue End Function