vb.net을 사용하여 Excel 시트에서 특정 데이터 찾기

Question

Excel에서 WinForm 응용 프로그램을 통해 특정 데이터를 찾은 다음 vb.net을 사용하여 같은 행에 다음 값을 가져 오려고했습니다.

Example: 
ElementName Value 
Age   24 
Name John Clan 
Music Rock 

나이를 찾고 싶다고 가정 해 봅니다. 그럼 나는 Excel 파일에서 검색 24로 코드를 반환하고 싶습니다.

전체 Excel 데이터를 데이터 집합으로 가져 오려고했지만 유용하지 않았습니다.

친절하게 안내해드립니다. 저를 도와

Answer 1

Imports Interop = Microsoft.Office.Interop.Excel 

'Find In Excel 
    Private Function FindValueInExcel(ByVal sTextToFind) 
     Dim currentFind As Interop.Range = Nothing 
     Dim firstFind As Interop.Range = Nothing 
     Dim xlappFirstFile As Interop.Application = Nothing 
     Dim sSearchedValue As String 

     xlappFirstFile = CreateObject("Excel.Application") 

     xlappFirstFile.Workbooks.Open("D:\Sample.xlsx") 

     Dim rngSearchValue As Interop.Range = xlappFirstFile.Range("A1", "C5") 

     currentFind = rngSearchValue.Find(sTextToFind, , _ 
      Interop.XlFindLookIn.xlValues, Interop.XlLookAt.xlPart, _ 
      Interop.XlSearchOrder.xlByRows, Interop.XlSearchDirection.xlNext, False) 

     If Not currentFind Is Nothing Then 
      sSearchedValue = DirectCast(DirectCast(currentFind.EntireRow, Microsoft.Office.Interop.Excel.Range).Value2, System.Object)(1, 3).ToString() 
     Else 
      sSearchedValue = "" 
     End If 

     Return sSearchedValue 

    End Function 

링크 - http://msdn.microsoft.com/en-us/library/e4x1k99a.aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1