Experts Exchange connects you with the people and services you need so you can get back to work.
Sub ExportReport(strReport, strFile)
dim xml, oStream
Set xml = CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", strReport, False
set oStream = createobject("Adodb.Stream")
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Const adSaveCreateNotExist = 1
oStream.type = adTypeBinary
' Do not overwrite an existing file
oStream.savetofile strFile , adSaveCreateOverWrite
' Use this form to overwrite a file if it already exists
' oStream.savetofile DestFolder & ImageFile, adSaveCreateOverWrite
set oStream = nothing
Set xml = Nothing
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.