Create Text File with FSO and VBA CreateTextFile

[arnelgp]

try:

im objXMLHTTP, xml
targetURL = https://cvpp.eviesiejipirkimai.lt/?Q...=1&PageSize=90
Set xml = CreateObject("Microsoft.XMLHTTP")
Set fso = CreateObject("Scripting.FileSystemObject")
xml.Open "GET", targetURL, False
xml.setRequestHeader "Cache-Control", "no-cache"
xml.Send
Set tfile = fso.CreateTextFile(Environ$("UserProfile") & "\Desktop\failas.asp", True)
tfile.Write xml.ResponseText   ' Have Run-time error '5': Invalid procedure call or argument
Set fso = Nothing
tfile.Close