Do You Know How Hackers Steal Your Credentials? Join us and Skyport Systems to learn how hackers steal your credentials and why Active Directory must be secure to stop them. Thursday, July 13, 2017 10:00 A.M. PDT
For Each FoundFile As String In My.Computer.FileSystem.GetFiles(My.Settings.DefFolder, _ FileIO.SearchOption.SearchAllSubDirectories, "*.xls") ' add each found file to the list box ' search each file for the specified string Dim xlApp As Object = CreateObject("Excel.Application") Dim xlWB As Object = xlApp.Workbooks.Open(FoundFile) Dim xlWS As Object = xlWB.Worksheets("Sheet1") Dim xlFndCell As Object = xlWS.Cells.Find(SearchBox.Text, , -4163, 1) If Not xlFndCell Is Nothing Then If xlWS.range("E21").value.ToString = SearchBox.Text Then FileNm = """" + FoundFile + """" ProcID = Shell("C:\Program Files\Microsoft Office\Office\excel.exe " & FileNm, AppWinStyle.NormalFocus) ' Activate the application. AppActivate(ProcID) *** At this point the Excel file opens as a read-only
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.