Experts Exchange connects you with the people and services you need so you can get back to work.
ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.
One of a set of tools we're offering as a way to say thank you for being a part of the community.
strFolder = "C:\TEMP\Temp\Test script\Excel"
strResultFile = Replace(WScript.ScriptFullName, WScript.ScriptName, "") & "Results.xls"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objExcel = CreateObject("Excel.Application")
Const xlUp = -4162
objExcel.Visible = True
objExcel.ScreenUpdating = False
Set objResultWB = objExcel.Workbooks.Add
For Each objFile In objFSO.GetFolder(strFolder).Files
If Left(LCase(objFile.Name), 3) = LCase("Log") And Right(LCase(objFile.Name), 4) = LCase(".xls") And LCase(objFile.Name) <> LCase(strResultFile) Then
intRow = objResultWB.Sheets(1).Cells(65536, "C").End(xlUp).Row
If intRow > 1 Then intRow = intRow + 1
Set objSourceWB = objExcel.Workbooks.Open(objFile.Path, False, False)
objSourceWB.Sheets(1).Range("C1:C" & objSourceWB.Sheets(1).Cells(65536, "C").End(xlUp).Row).Copy objResultWB.Sheets(1).Range("C" & intRow)
objExcel.DisplayAlerts = False
objResultWB.SaveAs strResultFile, True
objExcel.DisplayAlerts = True
objExcel.ScreenUpdating = True
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
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.