=false ' Turn off security alertyįor e = 1 to ' Loop Through all worksheetsĭim sName : sName = objExcelBook.Worksheets( e ).Name Set objExcel = CreateObject("Excel.application") ' create an excel object Set objFile = FSO.GetFile(objArgs(I)) 'Full Path and file nameīasename = FSO.GetBaseName(objfile) 'base file name without path and extensionĮxtension = FSO.GetExtensionName(objfile) 'file name extensionįilepath = FSO.GetParentFolderName(objFile) 'file path without trailing slashįileName = FSO.GetFileName(objFile) 'file name with extension
Set FSO = CreateObject("Scripting.FileSystemObject") And if you see anyway I can improve this Vbscript let me know. If anyone can look at the Macro and figure out how I can integrate it into this whole process I would appreciate it. One thing I noticed with the Macro is if I select a range of cells with it and one of those cells is just a number I get an error and the macro stops running. It outputs the needed worksheets to another folder and another process watches that and kicks off the SAS program.
Client drops the file into a folder on our ftp site and we have a process that watches that folder and pulls down the XLSX file and kicks off my vbscript to run it. We receive an updated schedule weekly and currently we have this whole process completely automated. Now my issue is how can I automate this from within my vbscript. Now I found a Macro where I can select a range of Cells and run the macro to remove any text with a StrikeThrough effect. Now one of my users has requested if we can remove any text that has the StrikeThrough effect from the excel file before it is saved as the tab delimited file.
We use the tab delimited files as input to a SAS program. The workbook has dozens of worksheets and currently I have a vbscript that saves only the worksheets I need as tab delimited files. We get a schedule from a client that comes in an XLSX file format.
0 kommentar(er)
