Come see why top tech companies like Mailchimp and Media Temple use Linux Academy to build their employee training programs.
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
|Example unit tests with AngularJS||3||45|
|ICACL switch help. How to include current folder||2||43|
|Need VB Script to scan through XML file and export content to csv file||9||32|