Запись данных в Excel в первую свободную ячейку

'Добавить ссылку на Microsoft.Office.Interop.Excel
'Меню Проект - Добавить ссылку... - слева выбрать Сборки - Расширения. В списке найти Microsoft.Office.Interop.Excel и поставить слева от неё галочку
 
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel
Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim xlApp As New Excel.Application 'приложение Excel
        Dim xlWB As Excel.Workbook 'книга
        Dim xlSht As Excel.Worksheet 'лист
        Dim iLastRow As Integer 'числовая переменная
        Dim iFillFileName As String = String.Empty
 
        iFillFileName = "G:\VB.NET TEST\Book1.xlsx" 'путь к нашему Excel файлу
 
        Try
            xlWB = xlApp.Workbooks.Open(iFillFileName)
        Catch ex As Exception
            MessageBox.Show("Не удалось открыть файл " & iFillFileName, "Внимание", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        End Try
 
        Try
            xlSht = xlWB.Worksheets("Лист1") 'укажите имя листа 
        Catch ex As Exception
            MessageBox.Show("Не удалось найти указанный лист в файле " & iFillFileName, "Внимание", MessageBoxButtons.OK, MessageBoxIcon.Information)
            xlWB.Close(SaveChanges:=True) 'сохраняем файл и закрываем его
            xlApp.Quit() 'закрываем Excel
            Exit Sub
        End Try
 
 
        With xlSht
            iLastRow = .Cells(.Rows.Count, "B").End(XlDirection.xlUp).row 'номер последней заполненной строки в столбце B
            .Cells(iLastRow + 1, "B").value = Me.TextBox1.Text 'переносим данные из TextBox1 в ячейку столбца В
            .Cells(iLastRow + 1, "C").value = Me.TextBox2.Text 'переносим данные из TextBox2 в ячейку столбца С
        End With
 
        xlWB.Close(SaveChanges:=True) 'сохраняем файл и закрываем его
        xlApp.Quit() 'закрываем Excel
 
        'Закрытие Excel, чтобы он не весел в диспетчере задач
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
            xlApp = Nothing
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            GC.Collect()
        End Try
 
        MessageBox.Show("Данные в книгу Excel добавлены. Книга закрыта", "Внимание", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
 
End Class

iLastRow = .Cells(.Rows.Count, "B").End(XlDirection.xlUp).row

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        'кнопка Найти
        Dim xlApp As New Excel.Application 'приложение Excel
        Dim xlWB As Excel.Workbook = Nothing 'книга
        Dim xlSht As Excel.Worksheet = Nothing  'лист
        Dim iFillFileName As String = String.Empty
        Dim Rng As Excel.Range 'найденная ячейка
        Const xlFormulas = -4123 'искать только в формулах
        Const xlwhole = 1 'искать "Ячейка целиком"
        Const xlPart = 2 'искать "часть ячейки"
        Dim TextToFind As String = String.Empty
 
        If Me.TextBox3.Text = "" Then
            MessageBox.Show("Вы не указали текст для поиска!", "Внимание", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        End If
 
        TextToFind = Me.TextBox3.Text
 
        iFillFileName = "G:\VB.NET TEST\Book1.xlsx" 'путь к нашему Excel файлу
 
        If xlWB Is Nothing Then
            Try
                xlWB = xlApp.Workbooks.Open(iFillFileName)
            Catch ex As Exception
                MessageBox.Show("Не удалось открыть файл " & iFillFileName, "Внимание", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Exit Sub
            End Try
 
            Try
                xlSht = xlWB.Worksheets("Лист1") 'укажите имя листа 
            Catch ex As Exception
                MessageBox.Show("Не удалось найти указанный лист в файле " & iFillFileName, "Внимание", MessageBoxButtons.OK, MessageBoxIcon.Information)
                xlWB.Close(SaveChanges:=True) 'сохраняем файл и закрываем его
                xlApp.Quit() 'закрываем Excel
                Exit Sub
            End Try
        End If
 
        With xlSht
            Rng = .Columns("B").find(TextToFind, , xlFormulas, xlwhole)
            If Rng Is Nothing Then
                MessageBox.Show("В столбце В не удалось найти текст: " & TextToFind, "Внимание", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Exit Sub
            End If
 
            Form2.TextBox1.Text = .Cells(Rng.Row, "A").value
            Form2.TextBox2.Text = .Cells(Rng.Row, "B").value
            Form2.TextBox3.Text = .Cells(Rng.Row, "C").value
            Form2.TextBox4.Text = .Cells(Rng.Row, "D").value
            Form2.TextBox5.Text = .Cells(Rng.Row, "E").value
            Form2.Show()
        End With
 
        xlWB.Close(SaveChanges:=True) 'сохраняем файл и закрываем его
        xlApp.Quit() 'закрываем Excel
 
        'Закрытие Excel, чтобы он не весел в диспетчере задач
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
            xlApp = Nothing
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            GC.Collect()
        End Try
    End Sub