Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
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.
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
Join the community of 500,000 technology professionals and ask your questions.