Loop for downloading files with url of websites

asked 2018-08-20 18:43:24 +0100

sokolowitzky gravatar image

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" )

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 
If Not IsMissing( uValue ) Then 
  oPropertyValue.Value = uValue 
MakePropertyValue() = oPropertyValue 
End Function
edit retag flag offensive close merge delete