Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.
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
|Create Powershell code with Powershell (or Excel Macro) for a DSC configuration||7||37|
|How to set the sa password in a vb6 code for sql connection||9||30|
|Do Psexec queries install files on remote computers||6||16|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
15 Experts available now in Live!