Macro to load data from a webservice

Mon, 28 Jul 2014 16:04:32 GMT

Hello Friends,

Your helps are always appreciated!

I am loading data from a web server, so I have downloaded the below script from community to achieve the same and while executing I am getting an error saying

Expected ';'

The script below:

sub GetWebServiceData()

Define the URL of the service

url = "http://mywebservicesite.com/projets.xml"

' Define parameters to post (in this case will return data for all projects)

request = "project_id=allprojects"

Set objHTTP = Createobject("MSXML2.ServerXMLHTTP")

'Open channel

objHTTP.open "POST", url, False

' Send header

objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

' Send parameters

objHTTP.send request

' Get responce xml in string

responce = objHTTP.responseText

Set objHTTP = Nothing

' At this point web service responded and gave back the response xml (if there is no error)

' Common case is to return errors in xml format

' Since the returned xml is in the memory we will need to store it in local file

' Set folder name where file will be save

foldername = "C:\ProjectFiles"

' Set file name where data will be stored

filename = "xmlReponce.xml"

Set objFSO = CreateObject("Scripting.FileSystemObject")

' Check if folder exists else create it

If objFSO.FolderExists(foldername) Then

Set objFolder = objFSO.GetFolder(foldername)

Else

Set objFolder = objFSO.CreateFolder(foldername)

End If

' Check if file exists else create it

If objFSO.FileExists(foldername & filename) Then

Set objFolder = objFSO.GetFolder(foldername)

Else

Set objFile = objFSO.CreateTextFile(foldername & filename)

End If

set objFile = nothing

set objFolder = nothing

' Constant that indicate that file content will be overwritten and not appended

Const ForAppending = 2

' Open the text file

Set objTextFile = objFSO.OpenTextFile (foldername & filename, ForAppending, True)

' And paste the content

objTextFile.WriteLine(responce )
objTextFile.Close

end function

Kindly let me know your opinions

Thanks,

Kiru

Re: Macro to load data from a webservice

rwunderlich — Tue, 29 Jul 2014 00:23:46 GMT

Did you put the above text in the script editor (Ctrl-E) or the module editor (Ctrl-M)?

-Rob

Re: Macro to load data from a webservice

Tue, 29 Jul 2014 12:44:03 GMT

Hello Rob,

Thanks so much for your time; I put the above code in module editor(Ctrl+M)

Regards,

Kiru

topic Re: Macro to load data from a webservice in QlikView

Macro to load data from a webservice

Re: Macro to load data from a webservice

Re: Macro to load data from a webservice