Как искать значение TextBox в Excel лист Коль и вернуть столбец B в столбец F для других текстовых полей

---

Привет,

Я новичок в Vb.Net и я научились получать данные из excel в datagridview. Теперь кто-нибудь может помочь мне узнать, как получить данные excel в текстовые поля?

У меня есть форма с 6 текстовыми полями и кнопкой поиска. Когда я даю значение textbox1 и нажимаю на кнопку поиска, я хочу найти файл excel, который выбирается opendialogfile и сохраняется в строке destination1

destination1 = destipath & Filename.Text & "_" & dtedate.ToShortDateString & ".xlsx" '& Format(TimeOfDay, "h.mm.ss tt")

На лист1 Excel имеет идентификатор,имя,Отца,Матери,адрес,телефон и VB.net форма имеет 6
текстовые поля соответственно. Пример, когда я ввожу i.e ID как 30 в textbox1, код должен искать ID 30 в col A, если он найден, то textbox 2,3,4,5,6 должен отображать имя,отца,мать,адрес,телефон.

Строка листа динамична, но col фиксирован. Я написал следующий код в excel vba но как я могу реализовать аналогично в excel vba VB.net-что?

Что я уже пробовал:

 Dim FoundRange As Range
 Hide   Expand    Copy Code
Option Strict On
Imports Excel = Microsoft.Office.Interop.Excel
Imports Microsoft.Office
Imports System.Runtime.InteropServices
 
Public class Test
 
    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click

        Dim xlappFile As Excel.Application = Nothing
        Dim xlFile_WB As Excel.Workbook = Nothing
        Dim xlFile_WS As Excel.Worksheet = Nothing
        Dim xlFirstfile_WS1 As Excel.Worksheet = Nothing
        Dim FoundRange As Excel.Range
        Dim searchID As String
        searchID = Textbox1.Text

        xlFile_WB = xlappFile.Workbooks(destination1) ' destination1 is selected by 'user
            MessageBox.Show(destination1)
            xlFile_WS = xlappFile.Worksheets(1)
            FoundRange = xlFile_WS.Cells.Find(What:=searchID, LookIn:=Excel.XlFindLookIn.xlFormulas, LookAt:=Excel.XlLookAt.xlWhole)

            If FoundRange Is Nothing Then
                textbox2.Text = "not found"
                textbox3.Text = "not found"
                textbox4.Text = "not found"
                textbox5.Text = "not found"
                textbox6.Text = "not found"
            Else
                textbox2.Text = FoundRange.Offset(0, 2).Value
                textbox3.Text = FoundRange.Offset(0, 3).Value
                textbox4.Text = FoundRange.Offset(0, 4).Value
                textbox5.Text = FoundRange.Offset(0, 5).Value
                textbox6.Text = FoundRange.Offset(0, 6).Value
            End If
    End Sub
End Class

---