Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
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.
Dim xlApp, xlWkb, SourceFolder, TargetFolder, file Set xlApp = CreateObject("excel.application") Set fs = CreateObject("Scripting.FileSystemObject") Const xlNormal = 1 SourceFile = "ALDEALSPOT_?????.xls" '<== ****EDIT THIS**** SourceFolder = "C:\Temp\xml\" & SourceFile '<== ****ONLY EDIT THE FOLDER LOCATION**** TargetFolder = "C:\Temp\xls" ' <== ****EDIT THIS**** xlApp.Application.DisplayAlerts = False 'Hide Excel xlApp.Visible = False 'Open file in SourceFolder Set xlWkb = xlApp.Workbooks.Open(SourceFolder) 'Concatenate full path. Extension will be automatically added by Excel FullTargetPath = TargetFolder & "\" & SourceFile 'Save as XLS file into TargetFolder xlWkb.SaveAs FullTargetPath, xlNormal 'Saves in xls 'xlWkb.SaveAs FullTargetPath, xltext ' Saves in txt 'Close file xlWkb.Close 'Next Set xlWkb = Nothing Set xlApp = Nothing Set fs = Nothing